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