Icon aus eine exe in Menu darstellen

[kingflo]

Hallo...
Ist es irgendwie möglich, dass Icon eines Programm als Image in ein menüIntem zu benutzen?

Also ich möchte z.B das Icon einer bestimmten Anwendung z.B WINWORD.EXE als Image meines zur laufzeit erzeugten menuItems.

Man müsste also eigentlich das Icon aus der exe extrahieren, dieses dann zur ImageList hinzufügen, sich den ImageIndex speichern und dieses dann im MenüItem benutzen

[Martin K]

Das müsste gehen:

Delphi-Quellcode:

uses ... ShellApi; 

... 

function FileIcon(FileName: String): TIcon; 
var FileInfo: TSHFileInfo; AIcon: TIcon; 
begin 
  FillChar(FileInfo,SizeOf(FileInfo),#0); 
  SHGetFileInfo(PChar(FileName),0,FileInfo,SizeOf(FileInfo),SHGFI_ICON or SHGFI_SMALLICON); //SMALLICON für 16x16
  AIcon:=TIcon.Create; 
  Try 
    AIcon.Handle:=FileInfo.HIcon; 
    AIcon.Transparent:=True; 
  Except end; 
  Result:=AIcon; 
end;

Dann musst Du das Icon halt noch in ein Bitmap umwandeln und dem MenuItem zuordnen.

[kingflo]

Danke ich hatte es auch gerade gefunden und wollte gerade schreiben, das es sich erledigt hat danke