SHGetFileInfo und 'lnk-files'

[xtrnrfe]

Hallo!

Mit dieser Funktion hole ich mir die Icons zu Dateien:

Delphi-Quellcode:

function IconFromFile(S : string): TIcon;
var
  MyIcon : TIcon;
  SHFileInfo: TSHFileInfo;
begin
  MyIcon := TIcon.Create;
  SHGetFileInfo(pchar(S), FILE_ATTRIBUTE_NORMAL, SHFileInfo, SizeOf(SHFileInfo),SHGFI_SYSICONINDEX or SHGFI_ICON or SHGFI_SMALLICON);
  MyIcon.Handle:= SHFileInfo.hIcon;
  Result:=MyIcon;
end;

Das Problem ist, dass bei Verknüpfungen immer der Pfeil links unten im Icon mit angezeigt wird ... den will ich aber weghaben ... und das reine Icon sehen.

Ich bräuchte eigentlich die Umkehr-Funktion von SHGFI_LINKOVERLAY ... hier werden für alle Dateien die Verknüpfungspfeile angezeigt.

Weiss jemand eine Lösung?

Grüsse und Danke im Vorraus!