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