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

[ichbins]

integer ist der Typ eines Handles. Du versuchst, einem Icon.Handle ein Icon zuzuweisen. Du musst einem Icon.Handle ein Icon.Handle zuweisen.

[Martin K]

Hmm...
irgendwie geht's immer noch nich.

Selbst bei:
  Application.Icon:=fileicon(....); hab ich das normale Windows-Programm-Symbol bei beiner Application, aber nicht das der '.lnk

[Martin K]

Ou, Ou Ou Ou....

hab die ganze Zeit den Falschen Ordner übergeben, und da gab's die *.lnk Datei dann natürlich nich.

Jo, bei mir funzts jetzt auch prima!!!

Vielen Dank, nochmal...
hast mir wirklich weitergeholfen!

[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