mit Shellexecute auch Links folgen

[yankee]

Ich habe mir ein Programm geschrieben, welches bestimmte Dateien mit dem Standardprogramm öffnet. ALso kurz so:

Delphi-Quellcode:

shellexecute(MainForm.Handle, 'open', PChar(datei), nil, PChar(pfad), SW_SHOW);

Ich will damit erreich, dass das gleich passiert, wie es passieren würden, wenn man mit der Maus im Explorer doppelt drauf klickt. Aber leider habe ich festgestellt, dass das mit Links (=Verknüpfungen) nicht funzt.
Was muss ich da machen?

[Jelly]

Also erstens mal ist der Pfad wohl bei Links irrelevant... Setze dort ebenfalls einfach nil.

Wie sieht dein Link denn genauer aus... Du musst schon http:// vorstellen, rsp. mailto: wenn du deinen Mailclient öffnen willst.

[yankee]

Zitat:

Zitat von Jelly

Also erstens mal ist der Pfad wohl bei Links irrelevant... Setze dort ebenfalls einfach nil.

Wie sieht dein Link denn genauer aus... Du musst schon http:// vorstellen, rsp. mailto: wenn du deinen Mailclient öffnen willst.

Jetzt jhast du mich falsch verstanden. Ich meinte keine Internetlinks, sondern so Dateilinks. Also diese Symbole, die man üblichwerseie auf dem Desktop, im Startmenü und so weiter hat :-)

EDIT: Schidt, immernoch nicht präzise. Also ich meine Eine Verknüpfung auf eine Anwendung. Alternativ könnte ich natürlich an der Endung .lnk erkennen, dass es sich um einen Link handelt und diesen dann untersuchen. ABer auch das weiß ich cniht wie geht :-(.

[yankee]

Nach weiterer erschöpfender Googlelei habe ich doch noch was gefunden:
http://www.informatik.hu-berlin.de/~...index.shtml.de
da habe ich mir TShellLink runtergeladen. Damit ist es dann ganz einfach :-):

Delphi-Quellcode:

if extractFileExt(datei) ='.lnk' then
begin
    link :=TShellLink.Create;
    link.LoadFromFile(pfad + datei);
    pfad :=link.Path;
    datei :=extractFileName(pfad);
    pfad :=extractFilePath(pfad);
    link.Free;
end;