Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: msc uzantılı dosyaları acmak  (Okunma sayısı 576 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı ec_x

  • Delphi 1 Level 1
  • *
  • İleti: 2
  • Rep: +0/-0
msc uzantılı dosyaları acmak
« : 04 Kasım 2009 16:48:26 »
dfrg.msc - Disk birleştirme programını yaptığım programdan çalıştırmak istiyorum ama bir türlü beceremedim
winexec le  cpl  exe acılıyor  msc için farklı bir yöntem mi var   yoksa winexec  içine farklı şeyler mi yazmak gerekiyor  shelldll rundll falan
cevaplarsanız sevinirim programım bitmek üzere bu gibi bikaç ayrıntı kaldı.Şimdiden herhese teşekkürler iii çalışmalar.
Kayıtlı

Çevrimdışı sabanakman

  • Global Moderatör
  • *****
  • İleti: 796
  • Rep: +13/-0
  • Cinsiyet: Bay
  • Delphi Sürümü: e) Hepsi
Ynt: msc uzantılı dosyaları acmak
« Yanıtla #1 : 04 Kasım 2009 18:18:43 »
Kod:  (Unknown Language)
  1. uses ShellAPI;
  2.  
  3. procedure DosyaAc(const DosyaAdi: string);
  4. begin
  5.   ShellExecute(Application.Handle, 'open', PChar(DosyaAdi), nil, nil, SW_NORMAL);
  6. end;
şeklindeki fonksiyonla verilen dosya sanki çift tıklanmış gibi çalıştırılır. Mesela DosyaAc('dfrg.msc') şeklinde kullanılabileceği gibi, DosyaAc('c:\deneme.txt'), DosyaAc('c:\yol\deneme.pdf'), DosyaAc('d:\program.exe') şekillerinde de kullanılabilir.
Kayıtlı
Şaban Şahin AKMAN

Derin olan kuyu değil kısa olan iptir

Çevrimdışı ec_x

  • Delphi 1 Level 1
  • *
  • İleti: 2
  • Rep: +0/-0
Ynt: msc uzantılı dosyaları acmak
« Yanıtla #2 : 05 Kasım 2009 00:06:06 »
çok teşekkür ederim verdiğin kod sayesinde hallettim olayı tekrar teşekkür ederim
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »