Exe ya da DLL'in iconunu alma işlemi için;
Kod:
[/B][/COLOR][COLOR=White][B]Uses shellapi;[/B][/COLOR]
[COLOR=White][B]procedure TForm1.FormCreate(Sender: TObject);[/B][/COLOR]
[COLOR=White][B]var TheIcon: TIcon;[/B][/COLOR]
[COLOR=White][B]begin TheIcon := TIcon.Create;[/B][/COLOR]
[COLOR=White][B]TheIcon.Handle := ExtractIcon(hInstance,'C:\dosya\dosya.EXE',0);[/B][/COLOR]
[COLOR=White][B]image1.picture.Icon:=Theicon;[/B][/COLOR]
[COLOR=White][B]end;[/B][/COLOR]
[COLOR=White][B]