uses 
  WinSvc

procedure StopService(Nombre: String);
var
  ServiceControlManager: SC_HANDLE;
  Service: SC_HANDLE;
  ServiceStatus: SERVICE_STATUS;
begin
  ServiceControlManager:= OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
  if ServiceControlManager <> 0 then
  begin
    Service:= OpenService(ServiceControlManager,PChar(Nombre),SERVICE_ALL_ACCESS);
    if Service <> 0 then
    begin
      if QueryServiceStatus(Service, ServiceStatus) then
      begin
        if ServiceStatus.dwCurrentState <> SERVICE_STOPPED then
          ControlService(Service, SERVICE_CONTROL_STOP, ServiceStatus);
      end;
      CloseServiceHandle(Service);
    end;
    CloseServiceHandle(ServiceControlManager);
  end;
end;

procedure StartSrv(Nombre: String);
var
  ServiceControlManager: SC_HANDLE;
  Service: SC_HANDLE;
  ServiceStatus: SERVICE_STATUS;
  Argv: PChar;
begin
  ServiceControlManager:= OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
  if ServiceControlManager <> 0 then
  begin
    Service:= OpenService(ServiceControlManager,PChar(Nombre),SERVICE_ALL_ACCESS); 
    if Service <> 0 then
    begin
      if QueryServiceStatus(Service, ServiceStatus) then
      begin
        if ServiceStatus.dwCurrentState <> SERVICE_RUNNING then
        begin
          Argv:= nil;
          StartService(Service,0,Argv);
        end;
      end;
      CloseServiceHandle(Service);
    end;
    CloseServiceHandle(ServiceControlManager);
  end;
end;

// 사용방법

StartSrv('Mysql');
StopService('Mysql');

locke 님이 쓰신 글 :
: 질문드려요.
:
: 간단한 프로그램을 하나 만들어야 합니다.
:
: 특정 서비스 프로그램이 다운되었을때 프로세스를 죽이고 재실행시키는 프로그램입니다.
:
: 근데 서비스 프로그램(exe)의 경우 그냥 실행만 시켜갖고는 메모리에 로드는 되어도 동작은 안하는거 같더라구요.
:
: 서비스로 등록된 프로그램을 실행시킨 뒤 해당 서비스 기능을 중지하거나 실행되도록 하는 방법을 알고싶습니다.
:
: 이걸 어떻게 구동을 시켜야 할까요?
:
: -locke