maXbox3 3.9.9.195 14/05/2015 08:37:17 AM

maXbox3 3.9.9.195
14/05/2015 08:37:17 AM
15424: SE_SECURITY_NAME','String 'SeSecurityPrivilege');
15425: SE_TAKE_OWNERSHIP_NAME','String 'SeTakeOwnershipPrivilege');
15426: SE_LOAD_DRIVER_NAME','String 'SeLoadDriverPrivilege');
15427: SE_SYSTEM_PROFILE_NAME','String 'SeSystemProfilePrivilege');
15428: SE_SYSTEMTIME_NAME','String 'SeSystemtimePrivilege');
15429: SE_PROF_SINGLE_PROCESS_NAME','String 'SeProfileSingleProcessPrivilege');
15430: SE_INC_BASE_PRIORITY_NAME','String 'SeIncreaseBasePriorityPrivilege');
15431: SE_CREATE_PAGEFILE_NAME','String 'SeCreatePagefilePrivilege');
15432: SE_CREATE_PERMANENT_NAME','String 'SeCreatePermanentPrivilege');
15433: SE_BACKUP_NAME','String 'SeBackupPrivilege');
15434: SE_RESTORE_NAME','String 'SeRestorePrivilege');
15435: SE_SHUTDOWN_NAME','String 'SeShutdownPrivilege');
15436: SE_DEBUG_NAME','String 'SeDebugPrivilege');
15437: SE_AUDIT_NAME','String 'SeAuditPrivilege');
15438: SE_SYSTEM_ENVIRONMENT_NAME','String 'SeSystemEnvironmentPrivilege');
15439: SE_CHANGE_NOTIFY_NAME','String 'SeChangeNotifyPrivilege');
15440: SE_REMOTE_SHUTDOWN_NAME','String 'SeRemoteShutdownPrivilege');
15441: SE_UNDOCK_NAME','String 'SeUndockPrivilege');
15442: SE_SYNC_AGENT_NAME','String 'SeSyncAgentPrivilege');
15443: SE_ENABLE_DELEGATION_NAME','String 'SeEnableDelegationPrivilege');
15444: SE_MANAGE_VOLUME_NAME','String 'SeManageVolumePrivilege');
15445: end;
15446:
15447: procedure SIRegister_cyWinUtils(CL: TPSPascalCompiler);
15448: begin
15449: Type(TWindowsVersion', '( wvUnknown, wvWin31, wvWin95, wvWin98, wvWin'
15450: +'Me, wvWinNt3, wvWinNt4, wvWin2000, wvWinXP, wvWinVista, wvWin7, wvWin8, wvWin8_Or_Upper )');
15451: Function ShellGetExtensionName( FileName : String) : String');
15452: Function ShellGetIconIndex( FileName : String) : Integer');
15453: Function ShellGetIconHandle( FileName : String) : HIcon');
15454: Procedure ShellThreadCopy( App_Handle : THandle; fromFile : string; toFile : string)');
15455: Procedure ShellThreadMove( App_Handle : THandle; fromFile : string; toFile : string)');
15456: Procedure ShellRenameDir( DirFrom, DirTo : string)');
15457: Function cyShellExecute(Operation,FileName,Parameters,Directory:String;ShowCmd:Integer):Cardinal;
15458: Procedure cyShellExecute1(ExeFilename,Parameters,ApplicationName,ApplicationClass:String;Restore:Boolean);
15459: Procedure ShellExecuteAsModal( ExeFilename, ApplicationName, Directory : String)');
15460: Procedure ShellExecuteExAsAdmin( hWnd : HWND; Filename : string; Parameters : string)');
15461: Function ShellExecuteEx(aFileName: string; const Parameters:string; const Directory: string; const
WaitCloseCompletion : boolean) : Boolean');
15462: Procedure RestoreAndSetForegroundWindow( Hnd : Integer)');
15463: Function RemoveDuplicatedPathDelimiter( Str : String) : String');
15464: Function cyFileTimeToDateTime( _FT : TFileTime) : TDateTime');
15465: Function GetModificationDate( Filename : String) : TDateTime');
15466: Function GetCreationDate( Filename : String) : TDateTime');
15467: Function GetLastAccessDate( Filename : String) : TDateTime');
15468: Function FileDelete( Filename : String) : Boolean');
15469: Function FileIsOpen( Filename : string) : boolean');
15470: Procedure FilesDelete( FromDirectory : String; Filter : ShortString)');
15471: Function DirectoryDelete( Directory : String) : Boolean');
15472: Function GetPrinters( PrintersList : TStrings) : Integer');
15473: Procedure SetDefaultPrinter( PrinterName : String)');
15474: Procedure ShowDefaultPrinterWindowProperties( FormParent_Handle : Integer)');
15475: Function WinToDosPath( WinPathName : String) : String');
15476: Function DosToWinPath( DosPathName : String) : String');
15477: Function cyGetWindowsVersion : TWindowsVersion');
15478: Function NTSetPrivilege( sPrivilege : string; bEnabled : Boolean) : Boolean');
15479: Procedure WindowsShutDown( Restart : boolean)');
15480: Procedure CreateShortCut(FileSrc,Parametres,FileLnk,Descript,DossierDeTravail,
FileIcon:string;NumIcone:integer);
15481: Procedure GetWindowsFonts( FontsList : TStrings)');
15482: Function GetAvailableFilename( DesiredFileName : String): String');
15483: end;
15484:
15485: procedure SIRegister_cyStrUtils(CL: TPSPascalCompiler);
15486: begin
15487: Type(TStrLocateOption', '( strloCaseInsensitive, strloPartialKey )');
15488: Type(TStrLocateOptions', 'set of TStrLocateOption');
15489: Type(TStringRead', '( srFromLeft, srFromRight )');
15490: Type(TStringReads', 'set of TStringRead');
15491: Type(TCaseSensitive', '( csCaseSensitive, csCaseNotSensitive )');
15492: Type(TWordsOption', '( woOnlyFirstWord, woOnlyFirstCar )');
15493: Type(TWordsOptions', 'set of TWordsOption');
15494: Type(TCarType', '(ctAlphabeticUppercase, ctAlphabeticLowercase, ctNumeric, ctOther )');
15495: Type(TCarTypes', 'set of TCarType');
15496: //CL.AddTypeS('TUnicodeCategories', 'set of TUnicodeCategory');
15497: CarTypeAlphabetic','LongInt'):= ord(ctAlphabeticUppercase) or ord(ctAlphabeticLowercase);
15498: Function Char_GetType( aChar : Char) : TCarType');
15499: Function SubString_Count( Str : String; Separator : Char) : Integer');
15500: Function SubString_AtPos( Str : String; Separator : Char; SubStringIndex : Word) : Integer');
15501: Function SubString_Get( Str : String; Separator : Char; SubStringIndex : Word) : String');
15502: Function SubString_Length( Str : String; Separator : Char; SubStringIndex : Word) : Integer');
15503: Procedure SubString_Add( var Str : String; Separator : Char; Value : String)');
15504: Procedure SubString_Insert(var Str:String;Separator:Char; SubStringIndex:Word; Value : String)');
15505: Procedure SubString_Edit(var Str:String;Separator:Char;SubStringIndex:Word; NewValue : String)');
15506: Function SubString_Remove(var Str:string; Separator:Char; SubStringIndex : Word) : Boolean');
15507: Function SubString_Locate(Str:string;Separator:Char;SubString:String;Options:TStrLocateOptions):Integer;
15508: Function SubString_Ribbon( Str : string; Separator : Char; Current: Word; MoveBy : Integer):Integer;');
15509: Function SubString_Ribbon1(Str:string;Separator:Char;Current:String; MoveBy:Integer):String;');
15510: Function String_Quote( Str : String) : String');
PC08 E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt
http://www.softwareschule.ch/maxbox.htm T: 297
p: 180