Gecko [ edgpens.lpkmn.gov.my ]

Name	Size	Permission
gfx	[ DIR ]	drwxrwxrwx
locale	[ DIR ]	drwxrwxrwx
.mad-root	0 B	-rw-rw-rw-
VersInfo.pas	42.97 KB	-rw-rw-rw-
default.po	32.22 KB	-rw-rw-rw-
ggexclude.cfg	227 B	-rw-rw-rw-
gnugettext.pas	114.84 KB	-rw-rw-rw-
ignore.po	7.28 KB	-rw-rw-rw-
sonar-project.properties	464 B	-rw-rw-rw-
uApache.pas	15.79 KB	-rw-rw-rw-
uBaseModule.pas	2.25 KB	-rw-rw-rw-
uConfig.dfm	14.81 KB	-rw-rw-rw-
uConfig.pas	4.43 KB	-rw-rw-rw-
uConfigUserDefined.dfm	14.73 KB	-rw-rw-rw-
uConfigUserDefined.pas	3.36 KB	-rw-rw-rw-
uExceptionDialog.dcu	32.71 KB	-rw-rw-rw-
uExceptionDialog.dfm	2.08 KB	-rw-rw-rw-
uExceptionDialog.pas	27.37 KB	-rw-rw-rw-
uFileZilla.pas	14.85 KB	-rw-rw-rw-
uGetWinVersionInfo.dcu	8.09 KB	-rw-rw-rw-
uGetWinVersionInfo.pas	11.13 KB	-rw-rw-rw-
uHelp.dfm	3.18 KB	-rw-rw-rw-
uHelp.pas	1.81 KB	-rw-rw-rw-
uJclSysInfo.pas	22.05 KB	-rw-rw-rw-
uLanguage.dfm	12.95 KB	-rw-rw-rw-
uLanguage.pas	2 KB	-rw-rw-rw-
uLogOptions.dfm	6.42 KB	-rw-rw-rw-
uLogOptions.pas	2.1 KB	-rw-rw-rw-
uMain.dfm	217.14 KB	-rw-rw-rw-
uMain.pas	39.26 KB	-rw-rw-rw-
uMercury.pas	11.42 KB	-rw-rw-rw-
uMySQL.pas	13.95 KB	-rw-rw-rw-
uNetstat.dfm	3.53 KB	-rw-rw-rw-
uNetstat.pas	7.95 KB	-rw-rw-rw-
uNetstatTable.pas	7.58 KB	-rw-rw-rw-
uProcesses.pas	6.25 KB	-rw-rw-rw-
uProcesses_new.pas	2.14 KB	-rw-rw-rw-
uServiceSettings.dfm	16.89 KB	-rw-rw-rw-
uServiceSettings.pas	8.26 KB	-rw-rw-rw-
uServices.pas	6.14 KB	-rw-rw-rw-
uTomcat.pas	15.9 KB	-rw-rw-rw-
uTools.pas	26.61 KB	-rw-rw-rw-
xampp_control3.dpr	2.21 KB	-rw-rw-rw-
xampp_control3.dproj	30.02 KB	-rw-rw-rw-
xampp_control3.dproj.local	38.45 KB	-rw-rw-rw-
xampp_control3.drc	78.46 KB	-rw-rw-rw-
xampp_control3.dres	37.08 KB	-rw-rw-rw-
xampp_control3.identcache	1.29 KB	-rw-rw-rw-
xampp_control3.stat	170 B	-rw-rw-rw-
xampp_control3Resource.rc	341 B	-rw-rw-rw-
xampp_control3_project.tvsconf...	72 B	-rw-rw-rw-

Code Editor : uServices.pas

unit uServices;

interface

uses
  GnuGettext, WinSvc, Windows, uTools, JclSvcCtrl, SysUtils;

type
  TServiceStatus = (ssError, ssNotFound, ssUnknown, ssRunning, ssStopped);
  TStartStopService = (ssStart, ssStop);

function GetServiceStatus(name: string): TServiceStatus;
function GetServicePath(name: string): string;
//function StartService(name: string): Integer;
//function StopService(name: string): Integer;
function GetServiceWithPid(const PID: DWORD): string;
// function StartStopService(name: string; StartStopService: TStartStopService):boolean;

implementation

uses uMain;

const
  SERVICE_WIN32_OWN_PROCESS = $00000010;
  SERVICE_WIN32_SHARE_PROCESS = $00000020;

//function StartService(name: string): Integer;
//var
//  Manager: TJclSCManager;
//  Service: TJclNTService;
//begin
//  fMain.AddLog('service', Format(_('Searching for service %s'), [name]), ltDebug);
//  Manager := TJclSCManager.Create;
//  Manager.Refresh(True);
//  if Manager.FindService(name, Service) then
//  begin
//    fMain.AddLog('service', _('Found service, attempting to start'), ltDebug);
//    Service.Start;
//    Result := Service.Win32ExitCode;
//  end
//  else
//    Result := -1;
//  fMain.AddLog('service', Format(_('Return Code %d'), [Result]), ltDebug);
//  Manager.Free;
//end;

//function StopService(name: string): Integer;
//var
//  Manager: TJclSCManager;
//  Service: TJclNTService;
//begin
//  fMain.AddLog('service', Format(_('Searching for service %s'), [name]), ltDebug);
//  Manager := TJclSCManager.Create;
//  Manager.Refresh(True);
//  if Manager.FindService(name, Service) then
//  begin
//    fMain.AddLog('service', _('Found service, attempting to stop'), ltDebug);
//    Service.Stop;
//    Result := Service.Win32ExitCode;
//  end
//  else
//    Result := -1;
//  fMain.AddLog('service', Format(_('Return Code %d'), [Result]), ltDebug);
//  Manager.Free;
//end;

function GetServicePath(name: string): string;
var
  hSCM: SC_Handle;
  hService: SC_Handle;
  ServiceConfig: WinSvc.LPQUERY_SERVICE_CONFIG;
  bytesneeded: DWORD;
begin
  hSCM := OpenSCManager(nil, nil, SC_MANAGER_CONNECT or SC_MANAGER_ENUMERATE_SERVICE or SC_MANAGER_QUERY_LOCK_STATUS or STANDARD_RIGHTS_READ);
  if (hSCM = 0) then
  begin
    Result := 'ERROR: Not Able To Open Service Manager';
    exit;
  end;

hService := OpenService(hSCM, PWideChar(name), SERVICE_QUERY_CONFIG);
  if (hService = 0) then
  begin
    CloseServiceHandle(hSCM);
    Result := 'ERROR: Service Not Found';
    exit;
  end;

if (QueryServiceConfig(hService, nil, 0, bytesneeded) = False) then
  begin
    GetMem(ServiceConfig, bytesneeded);
    if (QueryServiceConfig(hService, ServiceConfig, bytesneeded, bytesneeded) = False) then
    begin
      CloseServiceHandle(hService);
      CloseServiceHandle(hSCM);
      Result := 'ERROR: Could Not Get Service Config';
      FreeMem(ServiceConfig);
    end
    else
    begin
      CloseServiceHandle(hService);
      CloseServiceHandle(hSCM);
      Result := ServiceConfig.lpBinaryPathName;
      FreeMem(ServiceConfig);
    end;
  end;

CloseServiceHandle(hService);
  CloseServiceHandle(hSCM);
end;

function GetServiceWithPid(const PID: DWORD): string;
const
  cnMaxServices = 4096;
type
  TSvcA = array [0 .. cnMaxServices] of TEnumServiceStatus;
  PSvcA = ^TSvcA;
var
  j: Integer;
  nBytesNeeded, nServices, nResumeHandle: DWORD;
  ssa: PSvcA;
  hSCM: THandle;
  hSvc: THandle;
  ssp: SERVICE_STATUS_PROCESS;
  dwSize: DWORD;
begin
  Result := '';
  hSCM := OpenSCManager(nil, SERVICES_ACTIVE_DATABASE, SC_MANAGER_CONNECT or SC_MANAGER_ENUMERATE_SERVICE or SC_MANAGER_QUERY_LOCK_STATUS or STANDARD_RIGHTS_READ);
  if hSCM = 0 then
    exit('Unable to open Service Control Manager');

nResumeHandle := 0;

New(ssa);

EnumServicesStatus(hSCM, SERVICE_WIN32_OWN_PROCESS or SERVICE_WIN32_SHARE_PROCESS, SERVICE_ACTIVE, ssa^[0], sizeof(ssa^), nBytesNeeded,
    nServices, nResumeHandle);

for j := 0 to nServices - 1 do
  begin
    hSvc := OpenService(hSCM, PChar(StrPas(ssa^[j].lpServiceName)), SERVICE_QUERY_STATUS);
    if hSvc > 0 then
    begin
      try
        if QueryServiceStatusEx(hSvc, SC_STATUS_PROCESS_INFO, @ssp, sizeof(ssp), dwSize) then
        begin
          if (ssp.dwProcessId = PID) then
          begin
            Result := GetServicePath(ssa^[j].lpServiceName);
            break;
          end;
        end
        else
          Result := 'Unable to query service';
      finally
        CloseServiceHandle(hSvc);
      end;
    end
    else
      Result := Format('Unable to open service: %s',[ssa^[j].lpServiceName]);
  end; { for j }

Dispose(ssa);
  CloseServiceHandle(hSCM);
end;

function GetServiceStatus(name: string): TServiceStatus;
var
  hSCM: THandle;
  hService: THandle;
  ServiceStatus: _SERVICE_STATUS;
begin
  hSCM := OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
  if (hSCM = 0) then
  begin
    Result := ssError;
    exit;
  end;

hService := OpenService(hSCM, @name[1], SERVICE_QUERY_STATUS);;
  if (hService = 0) then
  begin
    CloseServiceHandle(hSCM);
    Result := ssNotFound;
    exit;
  end;

// The SERVICE exists and we have access

if (QueryServiceStatus(hService, ServiceStatus)) then
  begin
    Result := ssUnknown;
    if (ServiceStatus.dwCurrentState = SERVICE_RUNNING) then
      Result := ssRunning;
    if (ServiceStatus.dwCurrentState = SERVICE_STOPPED) then
      Result := ssStopped;
  end
  else
  begin
    Result := ssError;
  end;

CloseServiceHandle(hService);
  CloseServiceHandle(hSCM);
end;

//function ServiceDelete(name: string): boolean;
//var
//  hSCM: THandle;
//  hService: THandle;
//begin
//  Result := False;
//  hSCM := OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
//  if (hSCM = 0) then
//    exit;
//
//  hService := OpenService(hSCM, @name[1], SERVICE_QUERY_STATUS);;
//  if (hService = 0) then
//  begin
//    CloseServiceHandle(hSCM);
//    exit;
//  end;
//  // The SERVICE exists and we have access
//
//  Result := (DeleteService(hService));
//
//  CloseServiceHandle(hService);
//  CloseServiceHandle(hSCM);
//end;

end.

${this.title}

Code Editor : uServices.pas