Executeandwait nimmt keinen Doppelpunkt als Parameter

[antonymaier]

Hallo!
Ich nutze die folgende Funktion um eine externe Anwendung zu starten:

Code:

Function ExecuteAndWait(sExecutableFile : String; wWindowState : Word = SW_SHOWNORMAL) : Boolean;
var
siInfo : TStartUpInfo;
piInfo : TProcessInformation;
begin
    FillChar(siInfo, SizeOf(siInfo), #0);

    with siInfo do begin
    cb := SizeOf(siInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := wWindowState;
    end;
    Result := CreateProcess(NIL, pChar(sExecutableFile), NIL, NIL, FALSE, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, NIL, pchar(ExtractFilePath(sExecutableFile)),siInfo, piInfo);
end;

Funktioniert sonst ohne Probleme, in folgendem Beispiel führt er aber nichts aus:

Code:

Executeandwait('c:\plink.exe -N -R 1234:localhost:1234 [e-mail] -P 22');

Möchte eine Putty Verbindung starten mit den obigen Parametern, und es liegt wohl an den Doppelpunkten das er nichts macht. Nehme Ich die Doppelpunkte weg dann startet er die Anwendung ganz normal..


Hat jemand eine Idee wie ich die Anwendung mit den obigen Parametern gestartet kriege, inkl. der Doppelpunkte? Den Befehl in eine batch schreiben und diese dann ausführen funktioniert auch aber ist nicht so ideal.

beste grüße
Antony

[zagota]

Musst vielleicht qouten...

Executeandwait('c:\plink.exe -N -R ' + "1234:localhost:1234" + ' [e-mail] -P 22');

[himitsu]

Nein, Quoting hilft hier rein garnichts, denn das Problem liegt beim ExtractFilePath.

Tipp: Rate mal, was das Ding für einen Pfad extrahiert, ausgehend vom letzten Pfadtrenner.
: oder \



Außerdem:

• Wait?
  Ich seh kein Wait.
• Fehlerbehandlung?
  Da seh ich auch Keine.
  https://msdn.microsoft.com/en-us/lib.../ms682425.aspx -> Abschnitt Return value
• Und solltest du jemals ein Delphi aus den Jahren ab 2009 verwenden, dann raucht dir das auch ab.
  https://msdn.microsoft.com/en-us/lib.../ms682425.aspx -> lpCommandLine [in, out, optional]

[antonymaier]

wait und fehlerbehandlung habe ich für das beispiel rausgenommen, da es mir grade nur um den Doppelpunkt geht. Leider werde ich aus deinem Posting nicht so richtig schlau, gibt es denn eine quick n dirty lösung um den Doppelpunkt mitzugeben?
lg
Antony

[nahpets]

Was kommt dabei heraus, wenn Du hieraus

Delphi-Quellcode:

'c:\plink.exe -N -R 1234:localhost:1234 [e-mail] -P 22'

Delphi-Quellcode:

ExtractFilePath

machst?

Du übergibts der Funktion keinen gültigen Dateinamen, wie soll sie da ein vernünftiges Ergebnis liefern. Sie muss an den Doppelpunkten scheitern.

Ändere Deine Funktion bitte ab, ungefähr sowas:

Delphi-Quellcode:

Function ExecuteAndWait(sExecutableFile : String; sParameter : String; wWindowState : Word = SW_SHOWNORMAL) : Boolean;
var
siInfo : TStartUpInfo;
piInfo : TProcessInformation;
begin
    FillChar(siInfo, SizeOf(siInfo), #0);
    with siInfo do begin
    cb := SizeOf(siInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := wWindowState;
    end;
    Result := CreateProcess(NIL, pChar(sExecutableFile + ' ' + sParameter), NIL, NIL, FALSE, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, NIL, pchar(ExtractFilePath(sExecutableFile)),siInfo, piInfo);
end;

Aufruf ungefähr so:

Delphi-Quellcode:

if ExecuteAndWait('c:\plink.exe', '-N -R 1234:localhost:1234 [e-mail] -P 22',SW_SHOWNORMAL) then begin
  // irgendwas;
end else begin
  // irgendwas anderes;
end;

[himitsu]

Zitat:

Zitat von antonymaier (Beitrag 1369785)

wait und fehlerbehandlung habe ich für das beispiel rausgenommen,

LastError = ERROR_DIRECTORY (267)
Der Verzeichnisname ist ungültig

Da du das nicht erwähnt hattest, war ich davon ausgegangen es fehlt. :angle:

Und anhand der Fehlermeldung würde man dann womöglich auf auch lpCurrentDirectory kommen können.
Also

Delphi-Quellcode:

ShowMessage(ExtractFilePath(sExecutableFile));

, falls man sich die Funktionsweise von ExtractFilePath und deren Ergebnis nicht selber denken kann.

Lösungen:
* Anwendung und Parameter getrtennt an ExecuteAndWait übergeben
* oder selber Anwendung und Parameter trennen und übergeben.

PS: Es knallt auch wunderbar, wenn man z.B.

Delphi-Quellcode:

"c:\Program Files\Putty\plink.exe" -N -R 1234:localhost:1234 [e-mail]

starten will. (durch ", selbst wenn man die : weglassen würde)

[antonymaier]

Ah super danke habe es jetzt hinbekommen (hab den Pfad einfach hardcoded), thx!