Liebe Leute,

ich verwende folgende Proc aus der CodeLib, um ein ext. Programm zu starten und auf sein Ende zu warten. Das funktioniert bei meinem Win7 und auf einem Win2003-Serversystem auch problemlos. Nur bei anderen WinXPs funktionieren offenbar weder Parameterübergabe noch das Warten. Ich habe schon gegoogelt, aber leider keinen Hinweis gefunden. Jemand eine Idee?

Danke und schöne Grüße,
frieder

zusammenfalten · markieren

Delphi-Quellcode:

procedure ShellExecAndWait(dateiname: string; Parameter: string);
var executeInfo: TShellExecuteInfo;
dw: DWORD;
begin
    FillChar(executeInfo, SizeOf(executeInfo), 0);
    with executeInfo do
      begin
        cbSize := SizeOf(executeInfo);
        fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
        Wnd := GetActiveWindow();
        executeInfo.lpVerb := 'open';
        executeInfo.lpParameters := PChar(Parameter);
        lpFile := PChar(dateiname);
        nShow := SW_SHOWNORMAL;
      end;
      if ShellExecuteEx(@executeInfo) then
        dw := executeInfo.HProcess
      else begin
        ShowMessage('Fehler: ' + SysErrorMessage(GetLastError));
        Exit;
      end;
   while WaitForSingleObject(executeInfo.hProcess, 50) <> WAIT_OBJECT_0 do
        Application.ProcessMessages;
        CloseHandle(dw);
end;

// Aufruf z.B.:
ShellExecAndWait(extractfilepath(paramstr(0)) + '\tools\prog.exe', tempverz + '\config.ini');

Welcher Fehlercode kommt?

Wie schauen die paramter dateiname und Parameter konkret aus?

Zitat von Bernhard Geyer:

Welcher Fehlercode kommt?

Wie schauen die paramter dateiname und Parameter konkret aus?

Es wird überhaupt kein Fehler ausgegeben!
Und die exemplarischen Parameter hier sind realistisch (exe + Übergabe von zu öffnender ini-Datei). Oder meinst Du etwas anderes?

Gruß, frieder

Autsch, nein, ich weiß jetzt, woran es liegt, aber ich finde keine Lösung: Das Problem liegt bei Dateinamen/Pfaden mit Leerzeichen! Das folgende bringt jedoch keine Lösung:

zusammenfalten · markieren

Delphi-Quellcode:

procedure ShellExecAndWait(dateiname: string; Parameter: string);
var executeInfo: TShellExecuteInfo;
dw: DWORD;
begin
    FillChar(executeInfo, SizeOf(executeInfo), 0);
    with executeInfo do
      begin
        cbSize := SizeOf(executeInfo);
        fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
        Wnd := GetActiveWindow();
        executeInfo.lpVerb := 'open';
        executeInfo.lpParameters := PChar('"' + Parameter + '"'); //<---
        lpFile := PChar('"' + dateiname + '"'); //<---
        nShow := SW_SHOWNORMAL;
      end;
      if ShellExecuteEx(@executeInfo) then
        dw := executeInfo.HProcess
      else begin
        ShowMessage('Fehler: ' + SysErrorMessage(GetLastError));
        Exit;
      end;
   while WaitForSingleObject(executeInfo.hProcess, 50) <> WAIT_OBJECT_0 do
        Application.ProcessMessages;
        CloseHandle(dw);
end;

Hat jemand eine Idee, wie ich das deichseln könnte?

Danke und schöne Mittagesgrüße,
frieder

Lass doch die Funktion, wie sie ist und füge die Anführungszeichen bei der Übergabe ein, wo es nötig ist.

Zitat von DeddyH:

Lass doch die Funktion, wie sie ist und füge die Anführungszeichen bei der Übergabe ein, wo es nötig ist.

a) Ist es nicht sinnvoller, die "" standardmäßig um die Parameter zu setzen? - Denn es ist immer nur ein Parameter.
b) Warum funktioniert es überhaupt nicht, wenn ich die "" in die Funktion nehme?!?

Danke und Gruß,
frieder

EDIT: Argh, hab in einer anderen Proc vergessen, zu aktualisieren... Obige Ergänzung funktioniert doch... Sorry für den Spam hier..

Zitat von frieder2008:

a) Ist es nicht sinnvoller, die "" standardmäßig um die Parameter zu setzen? - Denn es ist immer nur ein Parameter.

Das mag in Deinem jetzigen Programm so sein, aber wenn Du später einmal mehrere Parameter übergeben willst, wird das nicht klappen, weil Du die Routine gepatcht hast.