Delphi dicas

Extrair icone de um executável (exemplo bloco de notas)

//exemplo icone do Bloco de Notas



//Inclua a unit Shellapi na cláusula uses do seu form.



Image1.Picture.Icon.Handle:= ExtractIcon(Handle,PChar('c:windows
otepad.exe'),0);

por : Wagner Frassetto Bortolotto