Jak pobrac ikonke aplikacji

[Legalnl]

Siemanko

otoz chciałbym wyposazyc moją aplikację w mozliwość dodawania skrotow do aplikacji za pomocą drag and drop. i czy da się wogole pobrac ikonke upuszczonego pliku? chodzi mi tylko o same pobranie ikonki z pliku exe i zapisanie jej gdzies na dysk za pomocą np sciezki do pliku exe.

Pozdrawiam

// edit

DOBRA WIEM TO BYŁO GŁUPIE PYTANIE

uses ShellApi; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Image1.Picture.Icon.Handle:=
  ExtractIcon(Hinstance,'c:Program.exe',32); 
end;

// EDIT 2

zna ktoś moze jakieś inne sposoby na pobranie ikonki?? ten po kompilacji wylapuje mi antywirus

 

[grzonu]

Mozesz uzyc do tego funkcji WinApi.
Mozesz takze recznie wyjac ja z zasobow ale to juz wymaga znajomosci budowy plikow PE i struktury zasobow.

 

[Legalnl]

Tylko ze jezeli zechcę ją pobrać poprzez winapi to wywali mi alert z antywirusa, a jezeli wylaczę to i tak mi to nie dziala

nie pobiera ikonki. czy nie ma jakiegoś innego sposobu na pobranie ikony jakiegoś programu?? poza oczywiscie res hacker itp

 

[daewod]

moze to ci pomoze, ale nie wiem dokladnie
http://4programmers.net/WinAPI/ExtractIcon

 

[Mo4x]

EnumResourceNames, potem LoadResource itd..