Problem beim Auslesen von .lnk-Dateien

[DeddyH]

Der erste Punkt lag mir auch schon auf der Seele. Ich persönlich würde aus der Funktion ja eine Prozedur machen, die das zu befüllende Icon entgegennimmt.

Delphi-Quellcode:

procedure GetFileIcon(const FileName: String; aIcon: TIcon);
var FileInfo: TSHFileInfo;
begin
  Assert(Assigned(aIcon));
  FillChar(FileInfo, SizeOf(FileInfo), #0);
  if SHGetFileInfo(PChar(FileName), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON) <> 0 then
    RaiseLastOSError;  
  aIcon.Handle := FileInfo.HIcon;
  aIcon.Transparent := True;
end;