Icon einer EXE in eigenes PRog

[Florian H]

Hi,

wie kann ich das Icon einer beliebigen EXE-Datei zur Laufzeit in mein Programm integrieren, sodass ich es da als TBitmap beliebig weiterverarbeitenkann? gibt es da was?

grüße
florian

[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;

[phlux]

Servus
vllt helfen die 2 links:
http://www.swissdelphicenter.ch/de/showcode.php?id=720
und
http://www.swissdelphicenter.ch/de/showcode.php?id=22

mfg phlux

[Florian H]

ah super, danke euch beiden!!