Prozess starten und warten

[jbg]

Code:

var ChildExitCode: Cardinal;
begin
  ChildExitCode := WinExec32AndWait('"Lw:\Path\File.exe" Parameters', SW_NORMAL);
  if Integer(ChildExitCode) = -1 then
    ShowMessage('Das Programm konnte nicht gestartet werden.');
end;

Kontretisiert:

Code:

var ChildExitCode: Cardinal;
begin
  ChildExitCode := WinExec32AndWait('"C:\Program Files\Borland\Delphi6\Bin\Delphi32.exe"', SW_NORMAL);
  if ChildExitCode = $FFFFFFFF then
     ShowMessage('Delphi 6 konnte nicht gestartet werden.');
end;

Code:

var ChildExitCode: Cardinal;
begin
  ChildExitCode := WinExec32AndWait('"C:\Program Files\Borland\Delphi6\Bin\Delphi32.exe" C:\MyFiles\Project1.dpr', SW_NORMAL);
  if ChildExitCode = $FFFFFFFF then
     ShowMessage('Delphi 6 konnte nicht gestartet werden und somit auch nicht die Datei C:\MyFiles\Project1.dpr öffnen.');
end;

Ich hoffe, dass das dir etwas hilft.