Programm-Icon anhand des Programm-Pfades rausfinden

[taaktaak]

Vielleicht so ...

Delphi-Quellcode:

Dieses Beispiel holt sich das Icon von NotePad und zeichnet es auf die Form:

uses ShellApi;

procedure TForm1.Button1Click(Sender:TObject);
var IconIndex : Word;
    h         : hIcon;
begin
  IconIndex:=0;
  h:=ExtractAssociatedIcon(HInstance,
                           'C:\WINDOWS\NOTEPAD.EXE',
                           IconIndex);
  DrawIcon(Form1.Canvas.Handle,10,10,h);
end;