Icon aus eine exe in Menu darstellen

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