Viewing file: uServices.dcu (4.06 KB) -rw-rw-rw- Select action/file-type: (+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) |
K ? B - uServices <p
uServices.pas%B dSystem fstring,f
UnicodeString,gExit f PWideCharD?gFalse*gGetMem g@GetMemgFreeMem g@FreeMemTg@UStrAddRef9ug@UStrAsgZ3g
@UStrToPWChar-g@UStrFromPWChar223g@UStrClr\>g@HandleFinally`pfIntegersf WideStringݗgNew gSizeOf fPCharD?gBreak gDispose g@TryFinallyExit`pg
@UStrArrayClrg@UniqueStringUGcdSysInit cd gnugettext cd
Winapi.WinSvc f SC_HANDLEMjfLPQUERY_SERVICE_CONFIGg
OpenSCManagerXygSC_MANAGER_CONNECT}1gSC_MANAGER_ENUMERATE_SERVICE}1gSC_MANAGER_QUERY_LOCK_STATUS}1gOpenServicex.gSERVICE_QUERY_CONFIG}1gCloseServiceHandleKp2gQueryServiceConfigձffTEnumServiceStatusIbfSERVICE_STATUS_PROCESSVgSERVICES_ACTIVE_DATABASEgEnumServicesStatus=4gSERVICE_ACTIVE}1gSERVICE_QUERY_STATUS}1gQueryServiceStatusExPfSC_STATUS_TYPE/gSC_STATUS_PROCESS_INFOVAf_SERVICE_STATUS7
gQueryServiceStatusgSERVICE_RUNNING}1gSERVICE_STOPPED}1fENUM_SERVICE_STATUSWIbcdWinapi.Windows fDWORDgSTANDARD_RIGHTS_READ/rfTHandleMjcduTools cd JclSvcCtrl cdSystem.SysUtils gStrPasW1:gStrPasHgFormatEceuMain c5 uServices _c5System 5SysUtils zcc5SysInit 8c5 GnuGettext :c5WinSvc <c5Windows nc5uTools vc5 JclSvcCtrl xc5SysUtils zc%ssError
|