Programm-Icon anhand des Programm-Pfades rausfinden

[Helmi]

Wunderbar!

Danke hat funktioniert.

Hier nochmal der komplette Code:

Delphi-Quellcode:

uses ShellApi; 

procedure TForm1.Button1Click(Sender:TObject);
var
  IconIndex : Word;
  h         : hIcon;
  S         : String;

begin
  IconIndex :=  0;
  S         :=  'C:\Program Files\Microsoft Office\Office12\WinWord.exe';
  h := ExtractIcon(0, PAnsiChar(S), IconIndex);
  DrawIcon(Form1.Canvas.Handle, 10, 10, h);
end;

(Ich hab ihr noch eine String-Variable geschenkt)