Gönderen Konu: EXE veya DLL'den Icon Almak  (Okunma sayısı 1242 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

CMNSOFT

  • Kıdemli Ãœye
  • *****
  • Rep: +2/-2
  • Çevrimdışı Çevrimdışı
  • Cinsiyet: Bay
  • Ä°leti: 82
    • http://www.cmnsoft.com
EXE veya DLL'den Icon Almak
« : 21 Ekim 2005 16:31:22 »
Kod: (delphi) [Seç]
Uses ShellApi;



procedure TForm1.FormCreate(Sender: TObject);

var

   TheIcon: TIcon;

Begin

TheIcon := TIcon.Create;

TheIcon.Handle := ExtractIcon(hInstance,'C:\dosya\dosya.EXE',0);

image1.picture.Icon:=Theicon;

End;
Kayıtlı
:::::::::::::::::::: www.CMNSOFT.com ::::::::::::::::::::