Theoretisch müsste es so funken:
Delphi-Quellcode:
uses
shellapi
[...]
function iconhandle(filename:string):hicon;
var
psfi:_shfileinfoa;
c1,c2,c3:cardinal;
begin
shgetfileinfo(pansichar(filename),c1,psfi,c2,c3);
result:=psfi.hicon;
end;
//Verwendung:
var
i:ticon;
begin
i:=ticon.Create;
i.Handle:=iconhandle('c:\file.lnk');
mit der Praxis sieht es immer ein bisschen anders aus
als iconhandle gibt er immer 0 raus
