Ziel einer Verknüpfung ermitteln

[Angel4585]

Guten Morgen

Ich suche mit folgendem Code nach Verknüpfungen in einem Ordner:

Delphi-Quellcode:

  function LinksToApp(F : TSearchRec; AppName : string):Boolean;
  begin
  
  end;

  function IsAppInFolder(FolderName, AppName : string):Boolean;
  var F : TSearchRec;
  begin
    Result:=False;
    try
      if FindFirst(FolderName+'\*.lnk',faAnyFile-faDirectory,F)=0 then
        begin
          repeat
            Result:=Result or LinksToApp(f,AppName);
          until FindNext(f)<>0;
        end;
    finally
      FindClose(F);
    end;   
  end;

Wie ihr seht finde ich die Verknüpfungen.
Jetzt möchte ich bestimmen, wohin Sie zeigen, bzw. ob Sie an das übergebene Ziel zeigen.
Wie mache ich das? Ich kann mit dem TSearchRec ja nur auslesen ob die Datei schreibgeschützt ist oder so...