Verknüpfung auslesen und probleme

[shmia]

OleCheck nicht vergessen:

Delphi-Quellcode:

function GetLinkTarget(const link: string): string;
var
  LinkInfo: TShellLink;
begin
  try
    LinkInfo.IdList := nil;
    OleCheck(ShellLinkResolve(Link, LinkInfo));
  //^^^^^^^^  
    result := LinkInfo.Target;
  finally
    ShellLinkFree(LinkInfo);
  end;
end;