Icon einer EXE in eigenes PRog

[Alexander]

So müsste das gehen:

Delphi-Quellcode:

var
  FileInfo: SHFILEINFO;
begin
    SHGetFileInfo(PChar('Filename.exe'), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON); 
    icon.Handle := FileInfo.hIcon; 
end;