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 />
12066: begin<br />
12067: Procedure AlCGIInitDefaultServerVariablesFromWebRequest(WebRequest :<br />
TALWebRequest;ServerVariables:TALStrings);<br />
12068: Procedure AlCGIInitDefaultServerVariablesFromWebRequest1(WebRequest: TALWebRequest; ServerVariables :<br />
TALStrings; ScriptName, ScriptFileName : AnsiString; Url : AnsiString);<br />
12069: Procedure ALCGIInitDefaultServerVariables( ServerVariables : TALStrings);<br />
12070: Procedure AlCGIInitDefaultServerVariables1(ServerVars:TALStrings;ScriptName,<br />
ScriptFileName:AnsiString;Url:AnsiStr;<br />
12071: Procedure AlCGIInitServerVariablesFromWebRequest( WebRequest:TALWebRequest; ServerVariables : TALStrings;<br />
ScriptName, ScriptFileName : AnsiString; Url : AnsiString);<br />
12072: Procedure AlCGIExec( InterpreterFilename : AnsiString; ServerVariables : TALStrings; RequestContentStream<br />
: Tstream; ResponseContentStream : Tstream; ResponseHeader : TALHTTPResponseHeader);<br />
12073: Procedure AlCGIExec1(ScriptName,ScriptFileName, Url, X_REWRITE_URL, InterpreterFilename:AnsiString;<br />
WebRequest : TALIsapiRequest;<br />
overloadedCookies:AnsiString;overloadedQueryString:AnsiString;overloadedReferer: AnsiString;'<br />
12074: +'overloadedRequestContentStream:Tstream;var<br />
ResponseContentStr:AnsiString;ResponseHeader:TALHTTPResponseHeader;<br />
12075: Procedure AlCGIExec2(ScriptName,ScriptFileName,Url,X_REWRITE_URL,<br />
InterpreterFilename:AnsiString;WebRequest: TALIsapiRequest; var ResponseContentString : AnsiString;<br />
ResponseHeader : TALHTTPResponseHeader);<br />
12076: end;<br />
12077:<br />
12078: procedure SIRegister_ALFcnExecute(CL: TPSPascalCompiler);<br />
12079: begin<br />
12<strong>08</strong>0: TStartupInfoA', 'TStartupInfo<br />
12<strong>08</strong>1: 'SE_CREATE_TOKEN_N<strong>AM</strong>E','String'( 'SeCreateTokenPrivilege<br />
12<strong>08</strong>2: SE_ASSIGNPRIMARYTOKEN_N<strong>AM</strong>E','String 'SeAssignPrimaryTokenPrivilege<br />
12<strong>08</strong>3: SE_LOCK_MEMORY_N<strong>AM</strong>E','String)( 'SeLockMemoryPrivilege<br />
12<strong>08</strong>4: SE_INCREASE_QUOTA_N<strong>AM</strong>E','String 'SeIncreaseQuotaPrivilege<br />
12<strong>08</strong>5: SE_UNSOLICITED_INPUT_N<strong>AM</strong>E','String 'SeUnsolicitedInputPrivilege<br />
12<strong>08</strong>6: SE_MACHINE_ACCOUNT_N<strong>AM</strong>E','String 'SeMachineAccountPrivilege<br />
12<strong>08</strong>7: SE_TCB_N<strong>AM</strong>E','String 'SeTcbPrivilege<br />
12<strong>08</strong>8: SE_SECURITY_N<strong>AM</strong>E','String 'SeSecurityPrivilege<br />
12<strong>08</strong>9: SE_TAKE_OWNERSHIP_N<strong>AM</strong>E','String 'SeTakeOwnershipPrivilege<br />
12090: SE_LOAD_DRIVER_N<strong>AM</strong>E','String 'SeLoadDriverPrivilege<br />
12091: SE_SYSTEM_PROFILE_N<strong>AM</strong>E','String 'SeSystemProfilePrivilege<br />
12092: SE_SYSTEMTIME_N<strong>AM</strong>E','String 'SeSystemtimePrivilege<br />
12093: SE_PROF_SINGLE_PROCESS_N<strong>AM</strong>E','String 'SeProfileSingleProcessPrivilege<br />
12094: SE_INC_BASE_PRIORITY_N<strong>AM</strong>E','String 'SeIncreaseBasePriorityPrivilege<br />
12095: SE_CREATE_PAGEFILE_N<strong>AM</strong>E','String 'SeCreatePagefilePrivilege<br />
12096: SE_CREATE_PERMANENT_N<strong>AM</strong>E','String 'SeCreatePermanentPrivilege<br />
12097: SE_BACKUP_N<strong>AM</strong>E','String 'SeBackupPrivilege<br />
12098: SE_RESTORE_N<strong>AM</strong>E','String 'SeRestorePrivilege<br />
12099: SE_SHUTDOWN_N<strong>AM</strong>E','String 'SeShutdownPrivilege<br />
12100: SE_DEBUG_N<strong>AM</strong>E','String 'SeDebugPrivilege<br />
12101: SE_AUDIT_N<strong>AM</strong>E','String 'SeAuditPrivilege<br />
12102: SE_SYSTEM_ENVIRONMENT_N<strong>AM</strong>E','String 'SeSystemEnvironmentPrivilege<br />
12103: SE_CHANGE_NOTIFY_N<strong>AM</strong>E','String 'SeChangeNotifyPrivilege<br />
12104: SE_REMOTE_SHUTDOWN_N<strong>AM</strong>E','String 'SeRemoteShutdownPrivilege<br />
121<strong>05</strong>: SE_UNDOCK_N<strong>AM</strong>E','String 'SeUndockPrivilege<br />
12106: SE_SYNC_AGENT_N<strong>AM</strong>E','String 'SeSyncAgentPrivilege<br />
12107: SE_ENABLE_DELEGATION_N<strong>AM</strong>E','String 'SeEnableDelegationPrivilege<br />
121<strong>08</strong>: SE_MANAGE_VOLUME_N<strong>AM</strong>E','String 'SeManageVolumePrivilege<br />
12109: Function AlGetEnvironmentString : AnsiString<br />
12110: Function ALWinExec32(const FileName,CurrentDir,<br />
Environment:AnsiString;InStream:Tstream;OutStream:TStream):Dword;<br />
12111: Function ALWinExec321(const FileName:AnsiString; InputStream:Tstream;OutputStream:TStream):Dword;<br />
12112: Function ALWinExecAndWait32( FileName : AnsiString; Visibility : integer) : DWORD<br />
12113: Function ALWinExecAndWait32V2( FileName : AnsiString; Visibility : integer) : DWORD<br />
121<strong>14</strong>: Function ALNTSetPrivilege( sPrivilege : AnsiString; bEnabled : Boolean) : Boolean<br />
12115: end;<br />
12116:<br />
121<strong>17</strong>: procedure SIRegister_ALFcnFile(CL: TPSPascalCompiler);<br />
12118: begin<br />
12119: Function AlEmptyDirectory(Directory:ansiString;SubDirectory:Bool;IgnoreFiles:array of AnsiString; const<br />
RemoveEmptySubDirectory : Boolean; const FileNameMask : ansiString; const MinFileAge : TdateTime):Boolean;<br />
12120: Function AlEmptyDirectory1( Directory : ansiString; SubDirectory : Boolean; const<br />
RemoveEmptySubDirectory:Bool; const FileNameMask : ansiString; const MinFileAge : TdateTime) : Boolean;<br />
12121: Function AlCopyDirectory( SrcDirectory, DestDirectory : ansiString; SubDirectory : Boolean; const<br />
FileNameMask : ansiString; const FailIfExists : Boolean) : Boolean<br />
12122: Function ALGetModuleName : ansistring<br />
12123: Function ALGetModuleFileNameWithoutExtension : ansistring<br />
12124: Function ALGetModulePath : ansiString<br />
12125: Function AlGetFileSize( const AFileName : ansistring) : int64<br />
12126: Function AlGetFileVersion( const AFileName : ansistring) : ansiString<br />
12127: Function ALGetFileCreationDateTime( const aFileName : Ansistring) : TDateTime<br />
12128: Function ALGetFileLastWriteDateTime( const aFileName : Ansistring) : TDateTime<br />
12129: Function ALGetFileLastAccessDateTime( const aFileName : Ansistring) : TDateTime<br />
12130: Procedure ALSetFileCreationDateTime( const aFileName : Ansistring; const aCreationDateTime : TDateTime)<br />
12131: Function ALIsDirectoryEmpty( const directory : ansiString) : boolean<br />
12132: Function ALFileExists( const Path : ansiString) : boolean<br />
12133: Function ALDirectoryExists( const Directory : Ansistring) : Boolean<br />
12134: Function ALCreateDir( const Dir : Ansistring) : Boolean<br />
12135: Function ALRemoveDir( const Dir : Ansistring) : Boolean<br />
12136: Function ALDeleteFile( const FileName : Ansistring) : Boolean<br />
121<strong>37</strong>: Function ALRenameFile( const OldName, NewName : ansistring) : Boolean<br />
12138: end;<br />
12139:<br />
12<strong>14</strong>0: procedure SIRegister_ALFcnMime(CL: TPSPascalCompiler);<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: <strong>14</strong>0