Eine *.cmd die startet, aber vorzeitig abbricht!

[darkmarin]

Hallo an Alle

ich bin seit einiger Zeit dabei und fühle mich sehr wohl hier in diesem Forum.

Bis jetzt habe ich dieses lediglich nur als Nachschlagewerk genutzt,
das ist meine erste Anfrage und es wäre sehr nett wenn ich Unterstützung bekommen könnte.

Bis jetzt reichte immer die Suchfunktion aber jetzt...

wenn ich ein *.cmd direkt in einem Windows Fenster starte dann läuft das Aufgerufene Programm mit allen Parametern fehlerfrei ab.

Starte ich aber aus dem Delphi Programm mit egal welcher version Shellexec... oder CreateProcess... schliesst der Vorgang ohne Fehler vorzeitig ab.

Wie kannich ein solches Windows Fenster nachprogrammieren? Als ob es aus dem Windows heraus gestartet wurde.

Ich hoffe ich konnte mein Problem ausreichend beschreiben.

Grüße
und vielen Dank im voraus

Darko

[himitsu]

Du kannst die CMD.exe starten und ihr via Parameter sagen, daß sie diese CMD ausführen soll (siehe CMD /? )

Hast du denn auch das Arbeitsverzeichnis beim ShellExecute angegeben?


Tipp: Mach einfach mal nach/vor jeder Zeile, in der CMD, eine PAUSE rein.

[Uwe Raabe]

Mit ShellExecute bzw. CreateProcess wird ja auch nur ein separater Prozess gestartet und der Aufruf kehrt sofort sofort zurück.

Wenn du in deinem Programm auf das Ende dieses Prozesses warten willst, dann musst du das auch tun. Das geht mit einer entsprechenden WaitFor-Anweisung, wobei du an das Process-Handle z.B. bei CreateProcess über den letzten Parameter lpProcessInformation herankommst.

Allerdings ist deine Anwendung dann während des WaitFor blockiert. Man sollte dann entsprechende Vorkehrungen treffen, um das gegebenfalls abzubrechen.

Bei Delphi About gibt es ein Beispiel: http://delphi.about.com/od/windowssh...uteprogram.htm

[darkmarin]

Hallo und vielen Dank für die schnelle Unterstützung!

In der *.cmd ist folgender Inhalt

c:\openocd-0.5.0\bin\openocd-0.5.0.exe -f c:\openocd-0.5.0\interface\jtagkey.cfg -f C:\openocd-0.5.0\WORK\jtag_ertec\ertec200.cfg -c "global SOURCE" -c "set SOURCE 4377FC_105.bin" -f c:/FknFile/4377FC_105.scr > c:\AmoLogFiles\Standard.log

Ich bin auf die Ausgabe aus dem Script heraus angewiesen da dort jeweils der Fortschritt dokumentiert wird.
Ich gebe (TCL Script) jeweils mit ECHO und PUTS in die Konsole und das Logfile aus.

WaitForSingleObject(ProcessInfo.hProcess, INFINITE);// hab ich bedacht.

Im Process Explorer ist es so das aus der Konsole die openocd.exe gekillt wird
aus der SchellExecute aber die cmd.exe beendet wird obwohl openocd.exe noch läuft.

Wie formuliere ich den Aufruf das die Konsole bleibt bis alle aus Ihr heraus gestarteten Processe beendet sind?

Ich denke das ist mein Problem.

Liebe Grüße

Darko

[DeddyH]

Und wenn Du cmd mit dem Parameter /K startest?

[darkmarin]

Hallo Detlef

wie meinst du das?
Jetzt mal nur ein Aufruf als Beispiel.

Delphi-Quellcode:

begin
  if ExecAndWaitUAC('c:\openocd-0.5.0\bin\openocd-0.5.0.exe', ' -f c:\openocd-0.5.0\interface\jtagkey.cfg -f                                                                                                               C:\openocd-0.5.0\WORK\jtag_ertec\ertec200.cfg -c "global SOURCE" -c "set SOURCE 4377FC_105.bin" -f     c:/FknFile/4377FC_105.scr > c:\AmoLogFiles\Standard.log');
then

Die Funktion ist nicht von mir sondern lediglich die letzte von vielen die ich ausprobiert habe.

Delphi-Quellcode:

function TspecConsole.ExecAndWaitUAC(Filename, Params: Widestring; WindowState: word = SW_SHOWNORMAL): boolean;
var
  ShExecInfoW: SHELLEXECUTEINFOW;
  ShExecInfoA: SHELLEXECUTEINFOA;
  r : Cardinal;
begin
  Result := false;
  if Filename = '' then exit;
  if not FileExists(FileName) then
    exit;
    ZeroMemory(@ShExecInfoW, SizeOf(ShExecInfoW));
    ShExecInfoW.Wnd := GetForegroundWindow;
    ShExecInfoW.cbSize := sizeof(SHELLEXECUTEINFOW);
    ShExecInfoW.fMask := SEE_MASK_NOCLOSEPROCESS;
    ShExecInfoW.lpVerb := 'open';
    ShExecInfoW.lpFile := PWideChar(Filename);
    ShExecInfoW.lpParameters := PWideChar(Params);
    ShExecInfoW.lpDirectory := PWideChar(ExtractFileDir(Filename));
    ShExecInfoW.nShow := WindowState;
    Result := ShellExecuteExW(@ShExecInfoW);

  try
    if Result then
    begin
      r := WaitForSingleObject(ShExecInfoW.hProcess, INFINITE)
    end;
  finally
    //CloseHandle(ShExecInfoW.hProcess);
  end;
end;

Gruß

Darko

[jaenicke]

Starte nicht deine exe, sondern die cmd.exe und gib deinen Aufruf nach /k als weiteren Parameter an.

Oder du machst es noch einfacher und liest die Ausgabe des Aufrufs selbst aus und speicherst diese Ausgabe selbst aus Delphi heraus in die c:\AmoLogFiles\Standard.log.