Guten Nachmittag liebe
DP, ich versuche zurzeit, mir meine eigene Schnellstartleiste
zu erstellen, und hierfür muss ich die Icons von .lnk Dateien auslesen.
Hierzu benutze ich eine Funktion, die ich hier
http://www.delphipraxis.net/55412-ic...b-*-lnk-3.html
geschrieben von Martin K gefunden habe, doch ich habe auch schon verschieden andere ausprobiert.
Bei allen habe ich dasselbe Problem: Das Icon des Programms wird erfolgreich ausgelesen, jedoch von
dem Standardmäßigem "Dateityp nicht zugeordnet-Icon" überlagert wird. Anbei ein Screenshot, der deutlich macht
was ich meine. Nun wollt ich fragen ob einer von euch eine Lösung dazu weiß.
Danke im Vorraus,
Edlmann
Hier nochmal die Funktion:
Delphi-Quellcode:
function FileIcon(FileName: String): TIcon;
var FileInfo: TSHFileInfo; AIcon: TIcon;
begin
FillChar(FileInfo,SizeOf(FileInfo),#0);
SHGetFileInfo(PChar(FileName),0,FileInfo,SizeOf(FileInfo),SHGFI_ICON or SHGFI_LARGEICON);
AIcon:=TIcon.Create;
Try
AIcon.Handle:=FileInfo.HIcon;
AIcon.Transparent:=True;
Except end;
Result:=AIcon;
end;