maXbox3 3.9.9.195 14/05/2015 08:37:17 AM
maXbox3 3.9.9.80 13.11.2013 11:25:53
maXbox3 3.9.9.80 13.11.2013 11:25:53
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
<strong>maXbox3</strong> <strong>3.9.9.195</strong><br />
<strong>14</strong>/<strong>05</strong>/<strong>2015</strong> <strong>08</strong>:<strong>37</strong>:<strong>17</strong> <strong>AM</strong><br />
15742: Const SERVICE_ERROR_IGNORE','LongWord $00000000);<br />
15743: Const SERVICE_ERROR_NORMAL','LongWord $00000001);<br />
15744: Const SERVICE_ERROR_SEVERE','LongWord $00000002);<br />
15745: Const SERVICE_ERROR_CRITICAL','LongWord $00000003);<br />
15746: CL.AddTypeS('SC_HANDLE', 'THandle');<br />
15747: //CL.AddTypeS('LPSC_HANDLE', '^SC_HANDLE // will not work');<br />
15748: CL.AddTypeS('SERVICE_STATUS_HANDLE', 'DWORD');<br />
15749: Const _SERVICE_STATUS', 'record dwServiceType : DWORD; dwCurrentState '<br />
15750: +': DWORD; dwControlsAccepted : DWORD; dwWin32ExitCode : DWORD; dwServiceSpe'<br />
15751: +'cificExitCode : DWORD; dwCheckPoint : DWORD; dwWaitHint : DWORD; end');<br />
15752: Const SERVICE_STATUS', '_SERVICE_STATUS');<br />
15753: Const TServiceStatus', '_SERVICE_STATUS');<br />
15754: CL.AddTypeS('_ENUM_SERVICE_STATUSA', 'record lpServiceName : PChar; lpDis'<br />
15755: +'playName : PChar; ServiceStatus : TServiceStatus; end');<br />
15756: ENUM_SERVICE_STATUSA', '_ENUM_SERVICE_STATUSA');<br />
15757: _ENUM_SERVICE_STATUS', '_ENUM_SERVICE_STATUSA');<br />
15758: TEnumServiceStatusA', '_ENUM_SERVICE_STATUSA');<br />
15759: TEnumServiceStatus', 'TEnumServiceStatusA');<br />
15760: SC_LOCK', '___Pointer');<br />
15761: _QUERY_SERVICE_LOCK_STATUSA', 'record fIsLocked:DWORD; lpLockOner: PChar;dwLockDuration:DWORD;end;<br />
15762: _QUERY_SERVICE_LOCK_STATUS', '_QUERY_SERVICE_LOCK_STATUSA');<br />
15763: QUERY_SERVICE_LOCK_STATUSA', '_QUERY_SERVICE_LOCK_STATUSA');<br />
15764: QUERY_SERVICE_LOCK_STATUS', 'QUERY_SERVICE_LOCK_STATUSA');<br />
15765: TQueryServiceLockStatusA', '_QUERY_SERVICE_LOCK_STATUSA');<br />
15766: //TQueryServiceLockStatusW', '_QUERY_SERVICE_LOCK_STATUSW');<br />
15767: TQueryServiceLockStatus', 'TQueryServiceLockStatusA');<br />
15768: _QUERY_SERVICE_CONFIGA', 'record dwServiceType : DWORD; dwStartT'<br />
15769: +'ype : DWORD; dwErrorControl : DWORD; lpBinaryPathName : PChar; lpLoadO'<br />
15770: +'rderGroup : PChar; dwTagId : DWORD; lpDependencies : PChar; lpServ'<br />
15771: +'iceStartName : PChar; lpDisplayName : PChar; end');<br />
15772: _QUERY_SERVICE_CONFIG', '_QUERY_SERVICE_CONFIGA');<br />
15773: QUERY_SERVICE_CONFIGA', '_QUERY_SERVICE_CONFIGA');<br />
15774: QUERY_SERVICE_CONFIG', 'QUERY_SERVICE_CONFIGA');<br />
15775: TQueryServiceConfigA', '_QUERY_SERVICE_CONFIGA');<br />
15776: TQueryServiceConfig', 'TQueryServiceConfigA');<br />
15777: Function CloseServiceHandle( hSCObject : SC_HANDLE) : BOOL');<br />
15778: Function ControlService(hService:SC_HANDLE;dwControl DWORD;var lpServiceStatus:TServiceStatus):BOOL;<br />
15779: Function CreateService( hSCManager : SC_HANDLE; lpServiceName, lpDisplayName : PChar; dwDesiredAccess,<br />
dwServiceType, dwStartType, dwErrorControl : DWORD; lpBinaryPathName, lpLoadOrderGroup : PChar;'<br />
15780: +' lpdwTagId : DWORD; lpDependencies, lpServiceStartName, lpPassword : PChar) : SC_HANDLE');<br />
15781: Function CreateServiceA( hSCManager : SC_HANDLE; lpServiceName, lpDisplayName : PChar; dwDesiredAccess,<br />
dwServiceType, dwStartType, dwErrorControl : DWORD; lpBinaryPathName, lpLoadOrderGroup : PChar; '<br />
15782: +'lpdwTagId : DWORD; lpDependencies, lpServiceStartName, lpPassword : PChar) : SC_HANDLE');<br />
15783: Function DeleteService( hService : SC_HANDLE) : BOOL');<br />
15784: Function EnumDependentServices( hService : SC_HANDLE; dwServiceState : DWORD; var lpServices :<br />
TEnumServiceStatus; cbBufSize : DWORD; var pcbBytesNeeded, lpServicesReturned : DWORD) : BOOL');<br />
15785: Function EnumServicesStatus( hSCManager : SC_HANDLE; dwServiceType, dwServiceState:DWORD;var lpServices:<br />
TEnumServiceStatus;cbBufSize:DWORD;var pcbBytesNeeded,lpServicesReturned,lpResumeHandle:DWORD):BOOL;<br />
15786: Function GetServiceKeyName(hSCManager:SC_HANDLE;pDisplayName,lpServiceName:PChar;var<br />
lpcchBuffer:DWORD):BOOL');<br />
15787: Function GetServiceDisplayName(hSCManager:SC_HANDLE;lpServiceNme,lpDisplayName:PChar;var<br />
lpcchBuffer:DWORD):BOOL;<br />
15788: Function LockServiceDatabase( hSCManager : SC_HANDLE) : SC_LOCK');<br />
15789: Function NotifyBootConfigStatus( BootAcceptable : BOOL) : BOOL');<br />
15790: Function OpenSCManager( lpMachineName, lpDatabaseName : PChar; dwDesiredAccess : DWORD) : SC_HANDLE');<br />
15791: Function OpenService(hSCManager:SC_HANDLE;lpServiceName:PChar;dwDesiredAccess:DWORD):SC_HANDLE');<br />
15792: Function QueryServiceLockStatus( hSCManager : SC_HANDLE; var lpLockStatus : TQueryServiceLockStatus;<br />
cbBufSize : DWORD; var pcbBytesNeeded : DWORD) : BOOL');<br />
15793: Function QueryServiceStatus(hService:SC_HANDLE;var lpServiceStatus:TServiceStatus):BOOL;<br />
15794: Function SetServiceStatus(hServiceStatus:SERVICE_STATUS_HANDLE;var lpServiceStatus:TServiceStatus):BOOL;<br />
15795: Function StartService(hService:SC_HANDLE;dwNumServiceArgs:DWORD;var lpServiceArgVectors:PChar):BOOL;<br />
15796: Function UnlockServiceDatabase( ScLock : SC_LOCK) : BOOL');<br />
15797: end;<br />
15798:<br />
15799: procedure SIRegister_JvPickDate(CL: TPSPascalCompiler);<br />
15800: begin<br />
15801: Function SelectDate( Sender : TWinControl; var Date : TDateTime; const DlgCaption : TCaption;<br />
AStartOfWeek : TDayOfWeekName; AWeekends: TDaysOfWeek;AWeekendColor:TColor;<br />
BtnHints:TStrings;MinDate:TDateTime;MaxDate: TDateTime):Boolean;<br />
15802: Function SelectDateStr(Sender:TWinControl;var StrDate:string;const<br />
DlgCaption:TCaption;AStartOfWeek:TDayOfWeekName;AWeekend:TDaysOfWeek;AWeekendClr:TColor;BtnHints:TStrings;MinDate:TDat<br />
15803: Function PopupDate(var Date:TDateTime; Edit:TWinControl; MinDate:TDateTime; MaxDate:TDateTime):Boolean;<br />
15804: Function CreatePopupCalendar(AOwner:TComponent;ABiDiMode:TBiDiMode;MinDate:TDateTime;MaxDate:TDateTime):<br />
TWinControl;<br />
158<strong>05</strong>: Procedure SetupPopupCalendar(PopupCalendar:TWinControl;AStartOfWeek:TDayOfWeekName;AWeekends:TDaysOfWeek;<br />
AWeekendColor:TColor;BtnHints:TStrings;FourDigitYear:Boolean;MinDate:TDateTime;MaxDate:TDateTime);<br />
15806: Function CreateNotifyThread(const<br />
FolderName:string;WatchSubtree:Bool;Filter:TFileChangeFilters):TJvNotifyThread;<br />
15807: end;<br />
158<strong>08</strong>:<br />
15809: procedure SIRegister_JclNTFS2(CL: TPSPascalCompiler);<br />
15810: begin<br />
15811: CL.AddClassN(CL.FindClass('TOBJECT'),'EJclNtfsError');<br />
15812: CL.AddTypeS('TFileCompressionState', '( fcNoCompression, fcDefaultCompression, fcLZNT1Compression )');<br />
15813: Function NtfsGetCompression2( const FileName : TFileName; var State : Short) : Boolean;');<br />
158<strong>14</strong>: Function NtfsGetCompression12( const FileName : TFileName) : TFileCompressionState;');<br />
15815: Function NtfsSetCompression2( const FileName : TFileName; const State : Short) : Boolean');<br />
15816: Procedure NtfsSetFileCompression2(const FileName : TFileName; const State : TFileCompressionState)');<br />
158<strong>17</strong>: Procedure NtfsSetDirectoryTreeCompression2(const Directory:string; const State:TFileCompressionState)');<br />
PC<strong>08</strong> E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt<br />
http://www.softwareschule.ch/maxbox.htm T: 297<br />
p: 184