Programm-Icon anhand des Programm-Pfades rausfinden

[Helmi]

Hallo,

wie kann ich ein Programm-Icon anhand der Programm-Pfades rausfinden?

[mkinzler]

Meinst du anhand des Dateinamens?

[Helmi]

ja genau

[mkinzler]

Ermittle die Endung mit ExtractFilePath() und ermittle dann das Icon dafür.

[Helmi]

du hast mich falsch verstanden.

Nehmen wir mal an ich hab einen folgenden Pfad mit dateinamen: "C:\Programme\Microsoft Office\WinWord.exe".
Nun würd ich gerne das Icon dieser Exe (die aber nicht geladen ist) auslesen. Nämlich das selbe, was im
Windows-Explorer als Icon zu sehen ist.

[mkinzler]

Das Icon steckt ja in der Ressource dieser Datei. Ohne sie zu laden wird es nicht möglich sein es auszulesen.

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

[Helmi]

dein code erzeugt ne accessviolation

[taaktaak]

hmmm?????????????????? - ich schau mal, was bei mir passiert

[taaktaak]

Sorry,
bei mir wird zwar keine Zugriffsverletzung erzeugt, aber das Icon wird auch nicht gefunden. Mit folgender Zeile funktioniert es (egal ob Notepad gerade aktiv ist oder nicht):

Delphi-Quellcode:

//..
h:=ExtractIcon(0,'C:\WINDOWS\NOTEPAD.EXE',IconIndex);
//..

Sorry, da muss ich mal meine Schnipsel-Kiste aufräumen

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

[taaktaak]

Prima! Dann noch viel Spaß damit :-D