INK - Verknüpfungen auslesen

[J Kadison]

Hallo!

Ich habe ein Problem und zwar möchte ich die Auszuführende Exe aus einer Verknüpfung auslesen.
Hat jemand eine Ahnung wie man das machen?

Ich habe mal gegooglet und folgenden QT herausgefunden

Delphi-Quellcode:

function ink(FileName: String): string;
var
  FDir,
  FName,
  ExeName : PChar;
  z       : integer;
begin
  {Speicher für die PChar-Variablen allozieren}
  ExeName:=StrAlloc(255);
  FName:=StrAlloc(255);
  FDir:=StrAlloc(255);

  StrPCopy(FName, ExtractFileName(FileName));
  StrPCopy(FDir, ExtractFilePath(FileName));
  z:=FindExecutable(FName, FDir, ExeName);
  if z>32 then
    Result:=StrPas(ExeName)
  else
    Result:='';

  {Speicher der PChar-Variablen freigeben}
  StrDispose(FDir);
  StrDispose(FName);
  StrDispose(ExeName);
end; {Michael Hanel}

Mein Problem ist nun nur noch,

[Fehler] Autostart.pas(58): Undefinierter Bezeichner: 'FindExecutable' Weiß jemand was ich dafür noch einbinden muss, damit das funktionierT?