Mit Programm fremden Service/Dienste beenden und starten

[Ares]

Hallo!

Ich will, dass mein Programm wartet bis der Service gestartet bzw. beendet wurde. Daher habe ich nicht ShellExecute sondern CreateProcess verwendet:

Delphi-Quellcode:

function startStopService(aServiceName: String; start:boolean): Boolean;
var Err: Integer;
    command: string;
    StartupInfo: TStartupInfo;
    ProcessInfo: TProcessInformation;
begin
   if start then command := 'start ' else command := 'stop ';

   try
      FillChar(StartupInfo, SizeOf(TStartupInfo), #0);
      StartupInfo.cb          := SizeOf(TStartupInfo);
      StartupInfo.dwFlags     := STARTF_USESHOWWINDOW;
      StartupInfo.wShowWindow := 0;

      CreateProcess(
         nil,
         PChar('net '+command+'"'+aServiceName+'"'),
         nil,
         nil,
         false,
         CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
         nil,
         nil,
         StartupInfo,
         ProcessInfo
      );

      WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
      CloseHandle(ProcessInfo.hProcess);
      //showMessage(IntToStr(Err));
   except

   end;
end;

Wie komme ich dort an die Rückgabe um diese auszuwerten?

Die Funktion funktioniert sonst gut, das Programm wartet brav und die Dienste lassen sich starten und beenden. Allerdings dauert das Starten/Beenden immer ein paar Sekunden. In dieser Zeit ist das Programm nicht bedienbar. Der Nutzer soll zwar keine Eingaben machen können, aber man sollte das Fenster zumindest verschieben und minimieren können. Ist das machbar oder geht das wegen des Wartens auf keinen Fall?

Besten Dank