1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:

function InstallService(ServiceName: PChar; FileName: String):Boolean;
var
  SCManager: SC_HANDLE;
  Service: SC_HANDLE;
  pArgs:PChar;
begin
  Result:=false;
  SCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
  if SCManager = 0 then Exit;
  try
    Service := CreateService(SCManager, ServiceName, ServiceName, SERVICE_ALL_ACCESS, SERVICE_KERNEL_DRIVER, SERVICE_DEMAND_START, SERVICE_ERROR_NORMAL, PChar(FileName), nil, nil, nil, nil, nil);
    if(Service=0) then begin
      if(GetLastError()=ERROR_SERVICE_EXISTS) then begin
        Service:=OpenService(SCManager,ServiceName,SERVICE_ALL_ACCESS);
      end;
    end;
    if(Service<>0) then begin
      pArgs:=nil;
      if(StartService(Service,0,pArgs)) then Result:=true
      else if(GetLastError()=ERROR_SERVICE_ALREADY_RUNNING) then begin
        Result:=true;
      end;
      CloseServiceHandle(Service);
    end;
  finally
    CloseServiceHandle(SCManager);
  end;
end;

function GetService(ServiceName: PChar):SC_HANDLE;
var SCManager: SC_HANDLE;
begin
  Result:=0;
  SCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
  if SCManager = 0 then Exit;
  try
    Result := OpenService(SCManager,ServiceName,SERVICE_ALL_ACCESS);
  finally
    CloseServiceHandle(SCManager);
  end;
end;

function UnInstallService(ServiceName: PChar):Boolean;
var
  Service: SC_HANDLE;
  SS:_SERVICE_STATUS;
begin
  Service := GetService(ServiceName);
  if Service = 0 then begin
    if(GetLastError()=ERROR_SERVICE_DOES_NOT_EXIST) then exit(true)
    else exit(false);
  end;
  try
    if(ControlService(Service,SERVICE_CONTROL_STOP,SS)) and (DeleteService(Service)) then Result:=true
    else if(GetLastError()=ERROR_SERVICE_NOT_ACTIVE) then Result:=true
    else Result:=false;
  finally
    CloseServiceHandle(Service);
  end;
end;