mit Shellexecute auch Links folgen

[yankee]

Nach weiterer erschöpfender Googlelei habe ich doch noch was gefunden:
http://www.informatik.hu-berlin.de/~...index.shtml.de
da habe ich mir TShellLink runtergeladen. Damit ist es dann ganz einfach :

Delphi-Quellcode:

if extractFileExt(datei) ='.lnk' then
begin
    link :=TShellLink.Create;
    link.LoadFromFile(pfad + datei);
    pfad :=link.Path;
    datei :=extractFileName(pfad);
    pfad :=extractFilePath(pfad);
    link.Free;
end;