Форум программистов [Powered by Invision Power Board]

Код


sc queryex SERVICENAME
taskkill /PID PROCESS_PID_NNN /F

Код


function TMainForm.StopService(ServiceName: String): Boolean;
var
  hService, hSCM: Dword;
  svc_status: TServiceStatus;
begin
  Result:= True;
  hSCM:= OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
  if hSCM = 0 then
  begin
    Result:= False;
    MessageBox(handle, PChar('Для остановки службы нужны права администратора!'), PChar('Внимание!'), MB_OK + MB_ICONWARNING);
    Exit;
  end;
  hService:= OpenService(hSCM, PChar(ServiceName), SERVICE_ALL_ACCESS);
  if hService <> 0 then
  begin
    if not ControlService(hService, SERVICE_CONTROL_STOP, svc_status) then
    begin
      CloseServiceHandle(hService);
      CloseServiceHandle(hSCM);
      Result:= False;
      MessageBox(handle, PChar('Ошибка остановки службы!'), PChar('Внимание!'), MB_OK + MB_ICONWARNING);
      Exit;
    end;
  end else
  begin
    CloseServiceHandle(hSCM);
    Result:= False;
    MessageBox(handle, PChar('Ошибка открытия службы!'), PChar('Внимание!'), MB_OK + MB_ICONWARNING);
    Exit;
  end;
  CloseServiceHandle(hService);
  CloseServiceHandle(hSCM);
end;

Код

type
  SC_HANDLE = Cardinal;
  SC_STATUS_TYPE=(SC_STATUS_PROCESS_INFO);
  SERVICE_STATUS_PROCESS = record
    dwServiceType: DWORD;
    dwCurrentState: DWORD;
    dwControlsAccepted: DWORD;
    dwWin32ExitCode: DWORD;
    dwServiceSpecificExitCode: DWORD;
    dwCheckPoint: DWORD;
    dwWaitHint: DWORD;
    dwProcessId: DWORD;
    dwServiceFlags: DWORD;
  end;
function QueryServiceStatusEx(hService: SC_HANDLE; InfoLevel: SC_STATUS_TYPE;
  var lpBuffer: SERVICE_STATUS_PROCESS; cbBufSize: DWORD; var pcbBytesNeeded: DWORD): BOOL; stdcall;
  external advapi32 name 'QueryServiceStatusEx';

// получить id процесса службы
function GetServiceProcessId(ServiceName: String; Status: DWORD = 0): THandle;
var
  hService, hSCM, d: Dword;
  scStatus: SERVICE_STATUS_PROCESS;
begin
  Result := 0;
  hSCM := OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
  if hSCM > 0 then
  begin
    hService := OpenService(hSCM, PChar(ServiceName), SERVICE_QUERY_STATUS);
    if hService > 0 then
    begin
      d := SizeOf(scStatus);
      if QueryServiceStatusEx(hService, SC_STATUS_PROCESS_INFO, scStatus, d, d) then
      begin
        if (Status = 0) or (scStatus.dwCurrentState = Status) then
          Result := scStatus.dwProcessId;
      end;
    end;
  end;
end;


function TMainForm.StopService(ServiceName: String): Boolean;
var
  pid: THandle;
begin
  pid := GetServiceProcessId(ServiceName, SERVICE_START_PENDING);
  // pid := GetServiceProcessId(ServiceName); // если нам всё равно, висит он или нет
  if pid <> 0 then // если процесс есть и он висит 
    TerminateProcess(OpenProcess(PROCESS_TERMINATE, false, pid), 0); // убить его, если прав хватит
  Result := pid <> 0;
end;