createprocess und WaitForSingleObject unter NT anders wie 98

[Sven Janssen]

Ich hatte mir unter Windows 98 mit Delphi 4 einmal ein Programm geschrieben was unsere ganzen Projekte auf einmal (nacheinander) übersetzt.
Da unsere _System_ modular aufgebaut ist, besteht es aus ca 100 einzelnen Projekten.
Unter Windows 98 lief das Programm auch. Nur ab dem NT Kernel, muss die API Funktion anders angesteurert werden. Ich bekomm es momentan nur nicht hin wie ich es anders machen muss.

Folgender Code:

Delphi-Quellcode:

with SUInfo do begin
   cb := SizeOf(SUInfo);
   dwFlags := STARTF_USESHOWWINDOW;
   wShowWindow := sw_show; //sw_hide;
end;
result:=createprocess(NIL,pchar(cmdline),NIL,NIL,FALSE,
                      CREATE_NEW_CONSOLE or
                      NORMAL_PRIORITY_CLASS, NIL,
                      PChar(ExtractFilePath(hlp)),
                      SUINFO, PROCINFO);
if result then WaitForSingleObject(ProcInfo.hProcess, INFINITE);

leider wartet der Prozess nicht und haut mir dann 100 Fenster auf den Schirm.
bzw starte 100 Prozess.

Sven