Filtern ob etwas funktioniert hat oder nicht

[Evian]

Also ich kenne mich nicht so gut mit DBs aus, aber theoretisch müsste es so gehen:

Code:

BEGIN
try
  ShellExecute(FTagessicherung.Handle, nil, 'pacomp',PChar('-a -c2 -r -P -q ' + Edit1.Text + '  
  C:\Projekte\SLNPraxis\Daten\1*.*'), nil, SW_NORMAL);

  FINALLY
    shomessage('hat funktioniert');
  END;
END;

bzw. wenn Du wissen willst, ob es nicht funktioniert hat:

Code:

BEGIN
try
  ShellExecute(FTagessicherung.Handle, nil, 'pacomp',PChar('-a -c2 -r -P -q ' + Edit1.Text + '  
  C:\Projekte\SLNPraxis\Daten\1*.*'), nil, SW_NORMAL);

  EXCEPT
    shomessage('hat nicht funktioniert');
  END;
END;

probier´s einfach mal aus

MFG

Evian