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...

[himitsu]

[DP]Verknüpfung auslesen[/DP] ?

[DeddyH]

Oder http://www.delphipraxis.net/101353-k...knuepfung.html
Ob das Ding unter Unicode-Delphi tut, habe ich nie ausprobiert, zumindest kann man ja in den Source schauen (auch wenn der recht gruselig ist, der stammt noch aus Delphi 3-Zeiten).

[Angel4585]

Vielen Dank euch beide, ich habe es jetzt mit der Methode JclShell.ShellLinkResolve gelöst :):thumb: