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?

[DeddyH]

Moment, möchtest Du wissen, wo eine Verknüpfung (z.B. auf dem Desktop) hinverweist oder welches Programm mit einer bestimmten Dateiendung verknüpft ist?

[toms]

Hallo Joshua

Die API FindExecutable() ist in der Unit ShellAPI.pas deklariert.

[Luckie]

Das Ding schreibt sich lnk, mit einem kleinen "l" am Anfang. Das soll ja die Abkürzung für "link" sein und hat mit Tinte (engl. ink) nichts zu tun.

[J Kadison]

Öhm joa das mit dem LNK hab ich en bischen spät bemerkt ^^ aber naja ^^

Ich wollte wissen wo die Verknüpfung hinweist.

Delphi-Quellcode:

var
  path, Path1 : PAnsiChar;
begin

  FindExecutable(PChar('Delphi 7'),     PCHAR('C:\Dokumente und Einstellungen\Joshua\Desktop\'),path );
  FindExecutable(PChar('Delphi 7.lnk'), PCHAR('C:\Dokumente und Einstellungen\Joshua\Desktop\'),path1);

end;

bekomm ich aber keine werte. Weder beim einen noch beim anderen?!
was mach ich denn da falsch?

[DeddyH]

Schau mal hier, in meiner Kompo ist auch eine Möglichkeit zum Auslesen vorhanden (Funktion GetLinkedFile), die kannst Du Dir ja aus dem Source kopieren.

[Neutral General]

Du musst wahrscheinlich Speicherplatz für für die übergebenen Buffer reservieren. (Path,Path1)

Edit: Habe bemerkt, dass bei mir FindExecutabel mit Verknüpfungen nicht funktioniert

[DeddyH]

FindExecutable liefert Dir das mit der Dateiendung verknüpfte Programm. Das kann mit *.lnk nicht wie gedacht funktionieren.