Wie startet man eine Verknüpfung (lnk) ??

[kuba]

Hallo,

ich möchte unter Delphi ein Programm bzw. eine Verknüpfung starten. Kann mir jemand sagen wie man das anstellt ?

In meiner Verknüpfung sind folgende Bedinungen festgelegt:

Programm: "C:\Program Files\OpenOffice.org 3\program\soffice.exe"
Ausführen in: "C:\Program Files\OpenOffice.org 3\Basis\program\"

mein Versuch das Programm mit folgendem Code zu starten:

Code:

       ShellExecute(0, Nil,
       PChar('C:\Program Files\OpenOffice.org 3\'),
       PChar(''),
       PChar('soffice.exe'),
       SW_HIDE);

funktioniert unter Vista nicht ...

Ich habe noch andere Programme, die ich wegen der Option "Ausführen in" nicht starten kann.

Hat mal jemand einen Tip für mich ??

KUBA

[DeddyH]

Hast Du mal versucht, die *.lnk direkt zu starten?

[kuba]

Zitat:

Zitat von DeddyH

Hast Du mal versucht, die *.lnk direkt zu starten?

geht doch:

Delphi-Quellcode:

ShellExecute(0, nil,
       PChar('OpenOffice.org 3.1.lnk'),
       PChar(''),
       PChar('c:\temp\'),
       SW_HIDE);

Vista ... :mrgreen:

kuba

[kuba]

gibts nicht noch eine andere Möglichkeit mit Delphi ein Programm (*.exe) zu starten und ein anderes Arbeitsverzeichnis anzugeben ??

kuba

[mkinzler]

Was gefällt die an ShellExecute() nicht?

[kuba]

genaugenommen will ich nicht die Verknüpfung starten, sondern das Programm, jedoch in einem anderen Basisverzeichnis.
Ohne eine Verknüpfung dafür zu benötigen ...

kuba

[DeddyH]

Dann starte doch die soffice.exe und gib ein anderes Verzeichnis an.

[Namenloser]

Delphi-Quellcode:

ShellExecute(
       0,
       'open',
       'C:\Program Files\OpenOffice.org 3\program\soffice.exe',
       nil,
       'C:\Program Files\OpenOffice.org 3\Basis\program\',
       SW_SHOW);

Sollte eigentlich funktionieren :)

[DeddyH]

So in der Art hatte ich das auch gemeint, dazu braucht man doch keine Verknüpfung.

[kuba]

Zitat:

Zitat von DeddyH

So in der Art hatte ich das auch gemeint, dazu braucht man doch keine Verknüpfung.

genau so hatte ich das gemeint ... :zwinker:

thanx

KUBA