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?