services

[domkop]

how do i stop services,
i want to quit some services and start them again later on

 

[sijgs]

Found this code on the web and saved it... haven't tried it yet.

This code basically starts/stops the webservice.

Uses WinSvc;
procedure TForm1.Button1Click(Sender: TObject);
var sc_h, sc_man : SC_HANDLE;
begin
  sc_man := OpenSCManager(nil, nil, SERVICE_START);
  if sc_man = 0 then
    ShowMessage('OpenSCManager' + SysErrorMessage(GetLastError))
  else begin
    sc_h := OpenService(sc_man, 'W3SVC', SERVICE_START);
    if sc_h = 0 then
      ShowMessage('OpenSevice: ' + SysErrorMessage(GetLastError))
    else begin
      StartService(sc_h, 0, PChar(nil^));
      CloseServiceHandle(sc_h);
    end;
    CloseServiceHandle(sc_man);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var sc_h, sc_man : SC_HANDLE;
    sstat: TServiceStatus;
begin
  sc_man := OpenSCManager(nil, nil, SERVICE_START);
  if sc_man = 0 then
    ShowMessage('OpenSCManager' + SysErrorMessage(GetLastError))
  else begin
    sc_h := OpenService(sc_man, 'W3SVC', SERVICE_STOP);
    if sc_h = 0 then
      ShowMessage('OpenSevice: ' + SysErrorMessage(GetLastError))
    else begin
      ControlService(sc_h, SERVICE_CONTROL_STOP, sstat);
      CloseServiceHandle(sc_h);
    end;
    CloseServiceHandle(sc_man);
  end;
end;

Regards and HTH,
JGS