Exit Codes from 7-Zip ?

[Stefanie]

Hallo

wie komme ich an die Exit Codes von 7z nach der Ausführung.
Möchte wissen ob fehlerfrei gepackt wurde oder ein Fehler aufgetreten ist(Code 0 = No error ).

mein bisheriger Aufruf:

Delphi-Quellcode:

ZipCommand := 'a -t7z "' + ZipDestin + '" "' + ZipSource + '"';
ShellExecute(0, Nil, PChar('C:\Programme\7-Zip\7zG.exe'), Pchar(ZipCommand), Pchar(ZipDestin), SW_SHOWNORMAL);

Beschreibung in der 7z Hilfe

Exit Codes from 7-Zip
7-Zip returns the following exit codes:

Code Meaning
0 No error
1 Warning (Non fatal error(s)). For example, one or more files were locked by some other application, so they were not compressed.
2 Fatal error
7 Command line error
8 Not enough memory for operation
255 User stopped the process

[WM_CLOSE]

<del>

[sahimba]

Dann wirst Du CreateProcess verwenden und auf Beendigung warten müssen.
Beispiele finden sich hier im Forum sicher reichlich.

[CCRDude]

1. Mit CreateProcess starten.
2. Auf Ende des Prozesses warten (WaitForSingleObject(processinfo.hProcess).
3. ExitCode auswerten (GetExitCodeProcess(processinfo.hProcess, FExitCode)).

[WM_CLOSE]

Das oben Nicht beachten, mein Fehler.

http://www.entwickler-ecke.de/topic_...n_82439,0.html

[Stefanie]

Danke,

mit CreateProcess klappts.