*!* *!* Class of all the VFP7 SYS functions with normal function names *!* DEFINE CLASS SysFuncs as Custom PROCEDURE RELEASE RELEASE THIS ENDPROC FUNCTION NetMachineInfo *!* Returns network machine information when using *!* Visual FoxPro in a network environment. RETURN SYS(0) ENDFUNC FUNCTION JulianSysDate *!* Returns the current system date as a Julian day *!* number character string. RETURN SYS(1) ENDFUNC FUNCTION SecondsSinceMidnight *!* Returns the number of seconds elapsed since midnight. RETURN SYS(2) ENDFUNC FUNCTION LegalFileName *!* Returns a legal file name that can be used to *!* create temporary files. RETURN SYS(3) ENDFUNC FUNCTION DefaultDrive *!* Returns the current Visual FoxPro default drive. *!* Use SET DEFAULT to specify a default drive. RETURN SYS(5) ENDFUNC FUNCTION CurrentPrinterDevice RETURN SYS(6) ENDFUNC FUNCTION CurrentFormatFile LPARAMETERS tnWorkArea RETURN SYS(7, tnWorkArea) ENDFUNC FUNCTION VFPSerialNumber RETURN SYS(9) ENDFUNC FUNCTION StrFromJulianDay *!* Converts a Julian day number to a character string. LPARAMETERS tnJulianDayNumber RETURN SYS(10, tnJulianDayNumber) ENDFUNC FUNCTION JulianDay *!* Converts a date expression or character string *!* in date format to a Julian day number. LPARAMETERS tdExpression RETURN SYS(11, tdExpression) ENDFUNC FUNCTION AvailableMemory *!* Returns the amount of memory below 640K that *!* is available to execute an external program. *!* In Visual FoxPro, SYS(12) always returns 655,360. RETURN SYS(12) ENDFUNC FUNCTION PrinterStatus *!* Returns the status of the printer. OFFLINE is *!* returned if the printer isn't ready. READY is *!* returned if the printer is ready. RETURN SYS(13) ENDFUNC FUNCTION IndexExpression *!* Returns index expression of an open single-entry *!* .idx index file or index expressions for tags *!* in compound .cdx index files. LPARAMETERS tnIndexNumber, tnWorkArea RETURN SYS(14, tnIndexNumber, tnWorkArea) ENDFUNC FUNCTION CharacterTranslation *!* Included for backward compatibility. Use SET *!* COLLATE instead. RETURN SYS(15) ENDFUNC FUNCTION ProgramFileName *!* Returns the file name of the program being executed. LPARAMETERS tnProgramLevel RETURN SYS(16, tnProgramLevel) ENDFUNC FUNCTION ProcessorInUse *!* Returns the central processing unit (CPU) being *!* used. RETURN SYS(17) ENDFUNC FUNCTION CurrentControl *!* Included for backward compatibility. Use the *!* ActiveControl property instead. RETURN SYS(18) ENDFUNC FUNCTION TransGermanText *!* Included for backward compatibility. Use SET *!* COLLATE instead. LPARAMETERS tcSource, tnLength RETURN SYS(20, tcSource, tnLength) ENDFUNC FUNCTION ControlingIndexNo *!* Returns, as a character string, the index position *!* number of the master controlling .cdx compound *!* index tag or .idx index file for the currently *!* selected work area. RETURN SYS(21) ENDFUNC FUNCTION ControlingIndexTag *!* Returns the name of the master controlling .cdx *!* compound index tag or .idx index file for a table. LPARAMETERS tnWorkArea RETURN SYS(22, tnWorkArea) ENDFUNC FUNCTION FPEMSMemoryUsage *!* Returns the amount of EMS memory (in 16K segments) *!* that is currently being used by the Standard *!* (16-bit) version of FoxPro for MS-DOS. SYS(23) *!* always returns 0 in the Extended (32-bit) version *!* of FoxPro for MS-DOS and Visual FoxPro. RETURN SYS(23) ENDFUNC FUNCTION EMSMemoryLimit *!* Returns the EMS limit set in your FoxPro for *!* MS-DOS configuration file. SYS(24) always returns *!* 0 in the Extended (32-bit) version of FoxPro *!* for MS-DOS and Visual FoxPro. RETURN SYS(24) ENDFUNC FUNCTION ConsoleSetting RETURN SYS(100) ENDFUNC FUNCTION DeviceSetting RETURN SYS(101) ENDFUNC FUNCTION PrinterSetting RETURN SYS(102) ENDFUNC FUNCTION TalkSetting RETURN SYS(103) ENDFUNC FUNCTION BitmapSetting *!* Returns the BITMAP setting in your config.fpw *!* file. RETURN SYS(602) ENDFUNC FUNCTION VFPMemory *!* Returns the virtual memory pool size, which is *!* approximately four times the amount of physical *!* memory. RETURN SYS(1001) ENDFUNC FUNCTION ObjectMemoryUse *!* Returns amount of memory being used by objects *!* you define. RETURN SYS(1016) ENDFUNC FUNCTION SetHelpDiagModeOn *!* Enables the Help diagnostic mode, allowing you *!* to trap the HelpContextID passed to the Visual *!* FoxPro Help system. RETURN SYS(1023) ENDFUNC FUNCTION SetHelpDiagModeOff *!* Disables the Help diagnostic mode enabled by *!* issuing SYS(1023). RETURN SYS(1024) ENDFUNC FUNCTION PageSetup *!* Displays the Page Setup dialog box, allowing *!* you to make adjustments to printer settings such *!* as the paper size and orientation. RETURN SYS(1037) ENDFUNC FUNCTION PurgeCachedMemory RETURN SYS(1104) ENDFUNC FUNCTION PropertyInfo *!* Returns a logical value that indicates whether *!* a property setting has changed from its default *!* setting or whether the property is read-only. LPARAMETERS toObjectName, tcProperty, tnPropertyAttribute RETURN SYS(1269, toObjectName, tcProperty, tnPropertyAttribute) ENDFUNC FUNCTION ObjectLocation *!* Returns a reference for an object at the specified *!* point. LPARAMETERS tnXCoord, tnYCoord RETURN SYS(1270, tnXCoord, tnYCoord) ENDFUNC FUNCTION ObjectSCXFile *!* Returns the name of the .SCX file in which the *!* specified instantiated object is stored. LPARAMETERS toObjectName RETURN SYS(1271, toObjectName) ENDFUNC FUNCTION ObjectHierarchy *!* Returns the object hierarchy for a specified *!* object. Not available at design time. LPARAMETERS toObjectName RETURN SYS(1272, toObjectName) ENDFUNC FUNCTION ActivateMenuItem LPARAMETERS tcSystemItemName, tcMenuName RETURN SYS(1500, tcSystemItemName, tcMenuName) ENDFUNC FUNCTION FileNameWildcard *!* Returns the name of the first file that matches *!* a file name skeleton. LPARAMETERS tSkeleton, t1 RETURN SYS(2000, tSkeleton, t1) ENDFUNC FUNCTION SetCommandStatus LPARAMETERS tcSETCommand, t1 RETURN SYS(2001, tcSETCommand, t1) ENDFUNC FUNCTION TurnInsertionPoint *!* SYS(2002) turns the insertion point off. SYS(2002, *!* 1) turns the insertion point on. LPARAMETERS t1 RETURN SYS(2002, t1) ENDFUNC FUNCTION CurrentDirectory *!* Returns the name of the current directory on *!* the default drive. RETURN SYS(2003) ENDFUNC FUNCTION VFPStartDirectory *!* Returns the name of the directory from which *!* Visual FoxPro was started. RETURN SYS(2004) ENDFUNC FUNCTION ResourceFile *!* Returns the name of the current Visual FoxPro *!* resource file. RETURN SYS(2005) ENDFUNC FUNCTION GraphicsCard *!* Returns the type of graphics card and monitor *!* you are using. RETURN SYS(2006) ENDFUNC FUNCTION CheckSumValue *!* Returns the checksum value of a character expression. LPARAMETERS tcExpression RETURN SYS(2007, tcExpression) ENDFUNC FUNCTION ConfigSysSetting *!* Returns the files setting in CONFIG.SYS. In Visual *!* FoxPro, SYS(2010) always returns 255. RETURN SYS(2010) ENDFUNC FUNCTION LockStatus *!* Returns the record or table lock status for the *!* current work area. Unlike the FLOCK( ), LOCK( *!* ), and RLOCK( ) functions, SYS(2011) doesn't *!* attempt to lock the table or record. RETURN SYS(2011) ENDFUNC FUNCTION MemoBlockSize LPARAMETERS tnWorkArea RETURN SYS(2012, tnWorkArea) ENDFUNC FUNCTION SysMenuNameString *!* Returns a space-delimited character string containing *!* the internal names of the Visual FoxPro menu *!* system. RETURN SYS(2013) ENDFUNC FUNCTION MinimumPath *!* Returns the minimum path relative to the current *!* or specified directory for a specified file. LPARAMETERS tcFileName, tPath RETURN SYS(2014, tcFileName, tPath) ENDFUNC FUNCTION UniqueProcName *!* Returns a unique 10-character procedure name *!* that begins with an underscore followed by a *!* combination of letters and numbers. RETURN SYS(2015) ENDFUNC FUNCTION ShowGetsWindowName *!* Included for backward compatibility. Use the *!* Refresh method instead of SHOW GETS. RETURN SYS(2016) ENDFUNC FUNCTION ErrorMsgParameter *!* Returns the error message parameter for the most *!* recent error. RETURN SYS(2018) ENDFUNC FUNCTION ConfigFileName *!* Returns the name and location of the Visual FoxPro *!* configuration file. RETURN SYS(2019) ENDFUNC FUNCTION DefaultDiskSize *!* Returns the total size in bytes of the default *!* disk. RETURN SYS(2020) ENDFUNC FUNCTION FilteredIndexExpr *!* Returns the filter expression for an open single-entry *!* index (.idx) file or filter expressions for tags *!* in compound index (.cdx) files. LPARAMETERS tnIndexNumber, tnWorkArea RETURN SYS(2021, tnIndexNumber, tnWorkArea) ENDFUNC FUNCTION DiskClusterSize *!* Returns the cluster size in bytes of a specified *!* disk. LPARAMETERS tcDiskName RETURN SYS(2022, tcDiskName) ENDFUNC FUNCTION TemporaryPath *!* Returns the path on which Visual FoxPro stores *!* its temporary files. RETURN SYS(2023) ENDFUNC FUNCTION TableType LPARAMETERS tnWorkArea RETURN SYS(2029, tnWorkArea) ENDFUNC FUNCTION SystemComponentDebug *!* Enables the debug features so that users can *!* debug system component code such as Intellisense *!* and Wizards. LPARAMETERS t0 RETURN SYS(2030, t0) ENDFUNC FUNCTION CodePageFromNLSList *!* Adds or removes a code page from the National *!* Language Support (NLS) list. LPARAMETERS tnCodePage, tnAction RETURN SYS(2300, tnCodePage, tnAction) ENDFUNC FUNCTION ActiveXDualInterface *!* Enables or disables ActiveX dual interface (VTABLE *!* binding) support. LPARAMETERS t0 RETURN SYS(2333, t0) ENDFUNC FUNCTION InvocationMode *!* Returns a value indicating how a Visual FoxPro *!* automation server method was invoked. RETURN SYS(2334) ENDFUNC FUNCTION UnattendedServerMode *!* Enables or disables modal states for distributable *!* Visual FoxPro .exe automation servers. LPARAMETERS t0 RETURN SYS(2335, t0) ENDFUNC FUNCTION ComServerSupport LPARAMETERS tnAction RETURN SYS(2336, tnAction) ENDFUNC FUNCTION VFPDLLCleanupLibRef *!* Allows VFP DLL servers to cleanup references *!* to unused libraries when releasing other servers. LPARAMETERS t0 RETURN SYS(2339, t0) ENDFUNC FUNCTION NTServicesSupport *!* Allows VFP server to continue running as an NT *!* Service without responding to Windows logoff *!* events. LPARAMETERS t0 RETURN SYS(2340, t0) ENDFUNC FUNCTION MemoryPointerToStr *!* Interprets an integer as a pointer into memory *!* and copies it into a string. This is only for *!* advanced developers. LPARAMETERS tdwAddress, tnLength, tcNewString RETURN SYS(2600, tdwAddress, tnLength, tcNewString) ENDFUNC FUNCTION ActiveXAccessibility LPARAMETERS tnFlags RETURN SYS(2800, tnFlags) ENDFUNC FUNCTION ExpandEventTracking *!* Expands event tracking log to include system *!* events such as mouse, keyboard, activex control *!* and system dialogs. LPARAMETERS t1 RETURN SYS(2801, t1) ENDFUNC FUNCTION GetLocaleID *!* Returns the Locale ID used by automation and *!* ActiveX controls. RETURN SYS(3004) ENDFUNC FUNCTION SetLocaleID *!* Sets the Locale ID used by automation and ActiveX *!* controls. LPARAMETERS tnLocaleID RETURN SYS(3005, tnLocaleID) ENDFUNC FUNCTION SetLangagesLocaleID LPARAMETERS tnLanguageID RETURN SYS(3006, tnLanguageID) ENDFUNC FUNCTION SetBufferMemorySize *!* Sets the foreground or background buffer memory *!* size. LPARAMETERS tnType, tnBuffMemSize RETURN SYS(3050, tnType, tnBuffMemSize) ENDFUNC FUNCTION SetLockRetryInterval *!* Specifies the time in milliseconds that Visual *!* FoxPro waits before attempting to lock a record, *!* table, memo, or index file after an unsuccessful *!* locking attempt. LPARAMETERS tnWaitMilliseconds RETURN SYS(3051, tnWaitMilliseconds) ENDFUNC FUNCTION OverideSetReprocess *!* Specifies whether Visual FoxPro uses the SET *!* REPROCESS setting when attempting to lock an *!* index or memo file. LPARAMETERS tnFileType, tlHonorReprocess RETURN SYS(3052, tnFileType, tlHonorReprocess) ENDFUNC FUNCTION ODBCEnvHandle RETURN SYS(3053) ENDFUNC FUNCTION RushmoreLevel *!* Enables or disables display of Rushmore optimization *!* levels for queries. LPARAMETERS t0, tcMemvar RETURN SYS(3054, t0, tcMemvar) ENDFUNC FUNCTION WhereComplexity *!* Sets the complexity level of the FOR and WHERE *!* clauses in commands and functions that support *!* those clauses. LPARAMETERS tnComplexity RETURN SYS(3055, tnComplexity) ENDFUNC FUNCTION ReadRegistrySettings *!* Forces Visual FoxPro to read its registry settings *!* again and update itself with the current registry *!* settings. LPARAMETERS t1 RETURN SYS(3056, t1) ENDFUNC FUNCTION lDispatchPointer *!* Returns an outgoing IDispatch pointer for a COM *!* object. LPARAMETERS toObject RETURN SYS(3095, toObject) ENDFUNC FUNCTION lDispatchObjectRef *!* Make an integer IDispatch into a FOX object. *!* This is only for advanced developers. LPARAMETERS tnPointer RETURN SYS(3096, tnPointer) ENDFUNC FUNCTION AddrefOnlDispatch *!* Performs an Addref on an IDispatch object. Returns *!* the current refcount after doing the Addref. *!* This is only for advanced developers. LPARAMETERS toObject RETURN SYS(3097, toObject) ENDFUNC FUNCTION ReleaseOnlDispatch *!* Performs a Release on an IDispatch object. Returns *!* the current refcount after releasing. This is *!* only for advanced developers. LPARAMETERS toObject RETURN SYS(3098, toObject) ENDFUNC FUNCTION ActiveDocDebug *!* Enables or disables debugging support for Active *!* Documents in the Visual FoxPro debugger. LPARAMETERS t0 RETURN SYS(4204, t0) ENDFUNC ENDDEF:-)