Icon aus beliebiger Datei extrahieren (z.B. *.lnk)

[Martin K]

Für alle, die das Icon aus einer beliebigen Datei haben möchten,
hier der endgültige Quellcode:

Delphi-Quellcode:

uses ... ShellApi;

...

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;

Vielen Dank nochmal an ichbins