Icon aus fremder EXE laden

[ManuMF]

Hallo,

ich möchte gerne aus der EXE das Icon eines fremden Programms laden (z.B. in ein TImage). Wie kann ich das anstellen?

Ich meine, das irgendwann schon mal hier gelesen zu haben und habe dementsprechend die Suche bemüht, leider erfolglos.

Gruß,
ManuMF

[Mazel]

Das Stichwort ist: SHGetFileInfo.
Damit kannst die alle Größen extrahieren und dann dir anzeigen lassen.

[s-off]

Hallo,

probier es mal hiermit:

Delphi-Quellcode:

//Icon einer Datei auslesen
procedure TfrmMain.GetIconFromFileB(const FileName: String; Icon: TIcon; SmallIcon: Boolean);
var
  sfi: TShFileInfo;
const
  uFlags : array[Boolean] of DWord = (SHGFI_LARGEICON, SHGFI_SMALLICON);
begin
  if SHGetFileInfo(PChar(FileName), 0, sfi, SizeOf(sfi), SHGFI_ICON or uFlags[SmallIcon]) <> 0 then
  begin
    Icon.Handle := sfi.hIcon;
  end;
end;

[ManuMF]

Danke an euch beide, damit klappt es

Gruß,
ManuMF