EXE, DLL vb. Dosyalarından Icon Çıkartma
Formunuza bir adet imagelist (ImageList1) ve bir adet buton (Button1) ekleyin. Butonun OnClick Eventine aşşağıdaki kodu ekleyin.
procedure TForm1.Button1Click(Sender: TObject);
var
icon1:ticon;
ndx:integer;
begin
icon1:=ticon.Create;
ndx:=0;
repeat
icon1.handle := extracticon(handle,pchar('c:windowsexplorer.exe'),ndx);
if icon1.handle <> 0 then imagelist1.AddIcon(icon1);
inc(ndx);
until icon1.handle = 0;
end;
Yapılan iş bir icon variable'ına extracticon api'si ile iconu yüklemek daha sonra bunu imagelist'e eklemektir. Image list componenti sadece örnek amacı
ile kullanılıyor.
ExtractIcon fonksiyonu ShellApi fonksiyonu içinde yer alıyor. Uses ShellApi satırını programınıza eklemeyi unutmayın.
Formunuza bir adet imagelist (ImageList1) ve bir adet buton (Button1) ekleyin. Butonun OnClick Eventine aşşağıdaki kodu ekleyin.
procedure TForm1.Button1Click(Sender: TObject);
var
icon1:ticon;
ndx:integer;
begin
icon1:=ticon.Create;
ndx:=0;
repeat
icon1.handle := extracticon(handle,pchar('c:windowsexplorer.exe'),ndx);
if icon1.handle <> 0 then imagelist1.AddIcon(icon1);
inc(ndx);
until icon1.handle = 0;
end;
Yapılan iş bir icon variable'ına extracticon api'si ile iconu yüklemek daha sonra bunu imagelist'e eklemektir. Image list componenti sadece örnek amacı
ile kullanılıyor.
ExtractIcon fonksiyonu ShellApi fonksiyonu içinde yer alıyor. Uses ShellApi satırını programınıza eklemeyi unutmayın.