[delphi] foutmeldingen uitlezen

[Verwijderd]

Ik heb dus deze code:
if ShellExecute(Application.Handle,'open',pkzip, PChar(' ' + doel + ' ' + bron), nil,SW_SHOWNOACTIVATE) <33 then
begin
showmessage('Backup mislukt');
end;

er wordt dus zip gestart met een aantal opties, nu wil ik dat als er een fout optreed dat deze code dan in een variabele komt nu kan ik alleen kijken dat als de foutcode kleiner is dan 33 dat het dan mis is. nu wil ik alleen nog kunnen melden wat er dan mis is.

hoe vraag ik het result op van de shellexecute ?, zonder deze opnieuw uit te voeren.

[whoami]

zo:

code:

var
  ErrCode  : integer;
begin
  ErrCode := ShellExecute (...
end;