TShellLink / ShellLinkResolve "Problem"

[RomanTK]

Hallo zusammen , habe mich nun auch mal angemeldet nach dem ich ein paar Wochen hier mit gelesen habe :)

Und gleich zu beginn habsch ne kleine Frage ;)

Ich möchte von einer Dateiverknüpfung den Pfad der verknüpften Datei auslesen. Bin be der Boardsuche auf TShellink und damit verbunden auf die Funktion ShellLinkResolve gestoßen.

Dort fand ich dieses Code Beispiel :

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;

Das ganze funktioniert und gibt die Pfade aus , was schonmal sehr schön ist ;)

Allerdings wird automatisch nach der Originaldatei gesucht wenn sie nicht vorhanden ist ! Dazu wird der hiweiss "Fehlende Verknüpfung" aufgerufen. Dies ist zwar schön und gut .. aber ich möchte es nicht.

Gibt es vieleicht irgendeine Möglichkeit dies zu unterbinden ??


Gruß Roman