Imagem - extraindo icone de exes

Top  Previous  Next

Extrair o ícone de um executável

 

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

 

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