EXE'lerin iconlarını almak

**KirLi Kedi** · 05-08-2009

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.

Konu Bilgileri
	Konu Başlığı EXE'lerin iconlarını almak	Konudaki Cevap Sayısı 0
	Şuan Bu Konuyu Görüntüleyenler	Görüntülenme Sayısı 32

05-08-2009	#1
KirLi Kedi yap ./ {hata} yapma ./ {hiLe} Kullanıcıların profil bilgileri misafirlere kapatılmıştır.	EXE'lerin iconlarını almak 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.

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)



			İletişim - Arşiv - Zıplat

				Powered by vBulletin® Version 3.8.5 Forum SEO by Zoints Bu Site vBulletin'den Süresiz LisansLanmıştır.

EXE'lerin iconlarını almak

Delphi