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: Seçilen bir Dosyanın Özellik penceresini açmak(ShellAPI)  (Okunma sayısı 1242 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Kocaturk

  • Administrator
  • *****
  • İleti: 2.474
  • Rep: +56/-5
  • Cinsiyet: Bay
    • Delphi Dünyası
Seçilen bir Dosyanın Özellik penceresini açmak(ShellAPI)
« : 13 Nisan 2007 21:11:14 »
örn button1.click

Kod:  (Unknown Language)
  1. var
  2.   SEInfo: ShellExecuteInfo;
  3. begin
  4. if opendialog1.execute then
  5. begin
  6.   FillChar(SEInfo, SizeOf(SEInfo), 0);
  7.   SEInfo.cbSize := SizeOf(SEInfo);
  8.   SEInfo.lpVerb := 'properties';
  9.   SEInfo.lpFile := PChar(opendialog1.Filename);
  10.   SEInfo.fMask  := SEE_MASK_INVOKEIDLIST;
  11.   ShellExecuteEx(@SEInfo);
  12. end;
end;


« Son Düzenleme: 12 Haziran 2009 20:23:06 by Kocaturk »
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »