Kodbank İndir

! CODEBANK 2012 !

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

ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!

Gönderen Konu: Program Çalıştırmak (WinExec)  (Okunma sayısı 4263 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Fatih

  • Emekli Yönetici
  • *****
  • İleti: 2.217
  • Rep: +43/-10
  • Cinsiyet: Bay
    • Delphi Dünyası
Program Çalıştırmak (WinExec)
« : 11 Mayıs 2006 18:46:10 »
Alıntı yapılan: Belirtilmemiş
Bu yazı yazarın Delphi’nin .NET uyumlu versiyonunu konu ettiği kitabının Api fonksiyonları adlı bölümün bir kısmıdır. http://www.seckin.com.tr/urun.aspx?productID=6451

Program Çalıştırmak
Kod: [Seç]
begin
   WinExec('C:\Windows\System32\Control.exe', sw_ShowNormal);
end;

Bildiğiniz gibi Denetim Masası penceresinde sistemle ilgili programları temsil eden simge veya seçenekler bulunmaktadır. Denetim Masası penceresini ekrana getirmedeki amacınız Yazıcılar penceresini açıp yazıcılar ile ilgili ayarlama yapmaksa WinExec() fonksiyonunu aşağıdaki gibi kullanabilirsiniz. Bu şekilde düzenlenen WinExec() fonksiyonu sayesinde Denetim Masası penceresi ekrana getirilmeden direk Yazıcılar penceresi açılır.

Kod: [Seç]
begin
   WinExec('C:\Windows\System32\Control.exe PRINTERS', 9);
end;

Denetim Masasındaki bazı uygulamalar CPL uzantılı dosyalar şeklinde gelmektedir. Örneğin “Tarih ve Saat Özellikleri” penceresini ekrana getirmek için TIMEDATE.CPL adlı dosyayı “Control.exe” programı ile açmak gerekmektedir. Bu işlemin nasıl yapıldığını aşağıda görebilirsiz.

Kod: [Seç]
begin
  WinExec('C:\Windows\System32\Control.exe TIMEDATE.CPL', 9);
end;

Delphi projeleri dahilinde DOS penceresi açmak istiyorsanız WinExec() fonksiyonunu aşaıdaki gibi kullanabilirsiniz.

Kod: [Seç]
begin
  WinExec('Command.com', 9);
end;

Malulen emekli programcı / yazar. Bildiklerini unutmakta olduğundan size cevap veremez.