|
|||||||
| Tags: almak, exelerin, iconlarini |
|
||
![]() |
|
|
Seçenekler | Stil |
|
|
#1 |
![]() |
Bu Cource Code ile bir EXE'nin Iconuna erisip iconu Form üzerinde gösterebilirsiniz. Bunun icin 1 Tane Opendialog1 1 Tane Image1 1 Tane Button1 1 Tane Label1 form üzerine yerlestirin. uses ShellApi; procedure TForm1.Button1Click(Sender: TObject); var Icon: TIcon; IconIndex: word; Buffer: array[0..2048] of char; IconHandle: HIcon; Bulunan:TsearchRec; begin if Opendialog1.Execute then begin StrCopy(@Buffer, PChar(Opendialog1.FileName)); IconIndex := 0; IconHandle := ExtractAssociatedIcon(HInstance, Buffer, IconIndex); Image1.Picture.Icon.Handle:=IconHandle; Label1.Caption:= ExtractFileName(Opendialog1.FileName); end else begin Showmessage('Sectiginiz Dosya Acilamadi'); end; end; end. |
|
|
|
![]() |
| Etiketler |
| icon |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Seçenekler | |
| Stil | |
|
|
|
Bütün Zaman Ayarları WEZ +6 olarak düzenlenmiştir. Şu Anki Saat: 13:11 .
|