Fórum Como parar um serviço do Windows 2000/XP? #256124

function ServiceStart  (sMachine, sService: string): boolean;
var
  schm, schs: SC_Handle;
  ss: TServiceStatus;
  psTemp: PChar;
  dwChkP: DWord;
begin
  ss.dwCurrentState := -1;
  schm := OpenSCManager(PChar(sMachine), nil, SC_MANAGER_CONNECT);

  if (schm > 0) then
  begin
    schs := OpenService (schm, PChar(sService),
      SERVICE_START or SERVICE_QUERY_STATUS);

    if (schs > 0) then
    begin
      psTemp := nil;
      if (StartService (schs, 0, psTemp)) then
      begin
        if (QueryServiceStatus (schs, ss)) then
        begin
          while (SERVICE_RUNNING <> ss.dwCurrentState) do
          begin
            dwChkP := ss.dwCheckPoint;
            Sleep (ss.dwWaitHint);
            if (not QueryServiceStatus (schs, ss)) then Break;
            if (ss.dwCheckPoint < dwChkP) then Break;
          end;
        end;
      end;
      CloseServiceHandle(schs);
    end;
    CloseServiceHandle(schm);
  end;
  Result := SERVICE_RUNNING = ss.dwCurrentState;
end;

function ServiceStop (sMachine, sService: string): boolean;
var
  schm, schs: SC_Handle;
  ss: TServiceStatus;
  dwChkP: DWord;
begin
  schm := OpenSCManager (PChar (sMachine), nil, SC_MANAGER_CONNECT);
  if (schm > 0) then
  begin
    schs := OpenService (schm, PChar (sService),
      SERVICE_STOP or SERVICE_QUERY_STATUS);

    if (schs > 0) then
    begin
      if (ControlService (schs, SERVICE_CONTROL_STOP, ss)) then
      begin
        if(QueryServiceStatus (schs, ss)) then
        begin
          while (SERVICE_STOPPED <> ss.dwCurrentState) do
          begin
            dwChkP := ss.dwCheckPoint;
            Sleep (ss.dwWaitHint);
            if (not QueryServiceStatus (schs, ss)) then Break;
            if (ss.dwCheckPoint < dwChkP)then Break;
          end;
        end;
      end;
      CloseServiceHandle(schs);
    end;
    CloseServiceHandle(schm);
  end;
  Result := SERVICE_STOPPED = ss.dwCurrentState;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  if not ServiceStart (´127.0.0.1´, ´messenger´) then
  begin
    Screen.Cursor := crDefault;
    ShowMessage (´O Serviço não pode ser iniciado!´);
  end;
  Screen.Cursor := crDefault;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  if not ServiceStop (´127.0.0.1´, ´messenger´) then
  begin
    Screen.Cursor := crDefault;
    ShowMessage (´O Serviço não pode ser finalizado!´);
  end;
  Screen.Cursor := crDefault;
end;