danke für deinen Hinweis auf die JCL
hab es auch versucht:
Delphi-Quellcode:
function GetLinkTarget(const link: string): string;
var
LinkInfo: TShellLink;
begin
try
LinkInfo.IdList := nil;
ShellLinkResolve(Link, LinkInfo);
result := LinkInfo.Target;
finally
ShellLinkFree(LinkInfo);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMEssage(GetLinkTarget('C:\t\1.lnk'));
end;
aber das geht nicht ;( - klicke ich auf den Button ist die Message leer