programmstart überwachen

[DeddyH]

Versuch es mal so:

Delphi-Quellcode:

procedure TForm1.btnStartClick(Sender: TObject);
var iSuccess: Integer;
begin
  iSuccess := ShellExecute(Handle,'open',PChar('C:\windows\dideldum.exe'),nil,nil,SW_SHOWDEFAULT);
  if iSuccess < 33 then
    MessageBox(Handle,PChar(SysErrorMessage(iSuccess)),'Fehler',MB_OK or MB_ICONERROR);
end;