Dateiicon ermitteln schlägt fehl

**Mazel**

Hallo,

normal kann und habe ich Dateiicons immer so auslesen können:

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

 SHFileInfo: TSHFileInfo;

begin

  SHGetFileInfo(PChar('C:\WINDOWS\explorer.exe'), 0, SHFileInfo, SizeOf(SHFileInfo), SHGFI_ICON or SHGFI_SMALLICON);

  Image1.Picture.Icon.Handle := SHFileInfo.hIcon;

end;

Ich habe die Funktion aus einem anderen Programm, herausgenommen und in eine neue Anwendung gesteckt. Jetzt habe ich das Problem, dass Dateien mit der Endung *.msc nicht das eigentliche Icon liefern sondern immer das Icon für eine nicht verknüpfte Datei. In der alten Anwendung funktioniert dies aber. Beispiel: 'C:\WINDOWS\system32\ciadv.msc'

Weis jemand warum das so ist?

Dateiicon ermitteln schlägt fehl

Dateiicon ermitteln schlägt fehl

Forumregeln