Bei mir sieht es folgendermaßen aus:
var
StartInfo : TStartupInfo;
ProcInfo : TProcessInformation;
CreateOK : Boolean;
FillChar(StartInfo,SizeOf(TStartupInfo), #0);
FillChar(ProcInfo,SizeOf(TProcessInformation), #0);
StartInfo.cb := SizeOf(TStartupInfo);
CreateOK := CreateProcess(
nil,
PChar(EXE_FULL_ADRESS + ' ' + FILE_FULL_ADRESS),
nil,
nil,
false,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
nil,
nil,
StartInfo,
ProcInfo);
Das programm tut aber nicht das, was es tun soll, der Process wird zwar gestartet, aber er tut nicht die Datei ausführen, die ich mit FILE_FULL_ADRESS übergebe.