Programm mit CreateProcess starten

[Gargamel]

OK, es soll ein Programm mit CreateProcess gestartet werden. Leider zuckt sich nix.
Hier ist der Quellcode:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var CommandLine:string;
    Dir:PChar;
    StartUpInfo: TStartUpInfo;
begin
  CommandLine:='C:\Windows\notepad.exe';
  Dir:=PChar('C:\');
  CreateProcess(nil,
                PChar(CommandLine),
                nil,
                nil,
                false,
                0,
                nil,
                Dir,
                StartUpInfo,
                ProcInfo);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  TerminateProcess(ProcInfo.hProcess,null);
end;

ProcInfo: Process_Information; wurde global deklariert.

Was mache ich falsch?

[toms]

FillChar(StartupInfo, SizeOf(StartupInfo), #0); vor CreateProcess
In der Codelib gibt's auch eine solche Funktion.

[Gargamel]

Sehr schön. Funktioniert prima. Danke.

[himitsu]

CreateProcess hat ein Result, welches man prüfen kann und GetLastError ist auch hilfreich.

[Gargamel]

Das habe ich auch probiert. Leider habe ich mit der Funktion FormatMessage meine Probleme.

[Luckie]

Dann nimm doch die Kapselung der VCL: SysErrorMessage.

[Gargamel]

Auch das funktioniert astrein. Danke.

[himitsu]

Im Notfall kann man die Fehlernummer von GetLastError in der dort verlinkten "System Error Codes"-Liste nachschlagen.

[Luckie]

Noch einfacher: Konsole öfnnen und net helpmsg <Fehlernummer>