SHGetFileInfo benutzen um verknüpftes Datei-Icon anzuzeigen?

[Dani]

Habe was rausgefunden:

Wenn die Datei/der Ordner im Stammverzeichnis der Festplatte liegt, kommt der richtige Iconindex zurück. (z.B. C:\pagefile.sys)
Liegt die Datei aber in einem Unterordner, schlägt die Funktion fehl. GetLastError liefert "Das System kann die angegebene Datei nicht finden".

Delphi-Quellcode:

procedure TSearchForm.AddSearchResult(Folder: String; var FileInfo: TsearchRec);
var newItem: TListItem;
begin
 newItem := LV.Items.Add;
 with newItem do
  begin
   Caption := FileInfo.Name;
   ImageIndex := GetShellImage( PChar(Folder+FileInfo.Name) );
   SubItems.Add(Folder);
   Subitems.Add(FormatFloat('#0,',FileInfo.Size / 1024)+' kb' );
   Tag := FileInfo.Size;
  end;
end;

Folder + FileInfo.Name. Daran lags... an Folder wurde kein "\" angehängt.