Shellexecute

[SilverMoonGirl]

Hi@all

ich wollte mit Shellexecute ein Programm aufrufen.

ShellExecute(Application.MainForm.Handle, nil, PChar(ExtractFilePath('ADRESS.exe')),nil,nil, SW_SHOWNORMAl); leider wird aber nur der Projektordner geöffnet, oder muss das Programm(ADRESS.exe) auch in Projektordner liegen?

[Matze]

ExtractFilePath gibt auch nur den Pfad zurück, da musst du den kompletten dateinamen reinschreiben

[WtF]

Hallo SilvermoonGirl,
also kein wunder das er den ordner öffnet, du extrahierst ja auch den Pfad der exe datei - lass das mit dem extractfilepath einfach weg, dann wird es funktionieren.
Mfg

-arrgh wie schnell doch hier immer alle sind...

[SilverMoonGirl]

und wenn sich der Pfad des Programms ändern sollte?

[Luckie]

Den Pfad inklusive Dateinamen deines Programmes bekommst du mit ParamStr(0).

[SilverMoonGirl]

@WtF

da tut sich dann aber gar nix, nich mal eine Fehlermeldung

[Garby]

Hallo,

ich glaube du meinst sowas:
ShellExecute(Application.MainForm.Handle, nil, PChar(ExtractFilePath(Application.ExeName) + '\ADRESS.exe'),nil,nil, SW_SHOWNORMAl);

[Skiron]

probier mal
'./Address.exe' als parameter

[tHeRiAn]

Hi und schönen guten morgen....

versuchs mal damit.....ShellExecute(Application.Handle,'open',pchar(ExtractFilePath(ParamStr(0))+'ADRESS.exe'),nil,nil,SW_SHOW); funzt bei mir wunderbar....
therian

[edit=Luckie]Delphi-Tags korrigiert. Mfg, Luckie[/edit]

[SilverMoonGirl]

sorry garby leider tut sich auch bei deinem Vorschlag nix