SYS(????)

[LOUIS]

Hola Amigos:

Quiero preguntarles si los comandos que se usan en fox son compatibles en clipper+gui (hmg xharbour) ...
estos son:
sys(5) para saber si es ---> c:\ o d:\
sys(2003) para saber el nombre de la carpeta o directorio ---> \myfolder
y hay muchos más con sys()
se pueden aplicar aquí ?

De antemano Gracias.

[dhaine_adp]

Hola Amigos:

Quiero preguntarles si los comandos que se usan en fox son compatibles en clipper+gui (hmg xharbour) ...
estos son:
sys(5) para saber si es ---> c:\ o d:\
sys(2003) para saber el nombre de la carpeta o directorio ---> \myfolder
y hay muchos más con sys()
se pueden aplicar aquí ?

De antemano Gracias.

Hola Lois,

Quizás esté interesado en esto:

Code: Select all

sys (5) => HB_CURDRIVE ()  // Función Harbour
sys (2003) => GetCurrentFolder()  // Función de HMG

[Pablo César]

Demo.prg

Code: Select all

#include <hmg.ch>
#include "SYS_FoxPro.ch"
// #include "hbfoxpro.ch"

Function Main
SET DEFAULT to c:\TEMP
MsgDebug( SYS(0) )
MsgDebug( SYS(2) )
MsgDebug( SYS(5) )
MsgDebug( SYS(2002,0) )
MsgDebug( SYS(2003) )
Return

SYS_FoxPro.ch

Code: Select all

Function Sys( nValue, xPar )
DO CASE
   CASE nValue = 0 // Network machine information.
        RETURN NetName() + " # " + hb_UserName()
   CASE nValue = 2 // Seconds since midnight.
        RETURN hb_ntos( Seconds() )
   CASE nValue = 5 // Default drive or volume.
        RETURN SET( 7 )
   CASE nValue = 2002 // Turn insertion point on or off.
		hb_default( @xPar, 0 )
        RETURN SetCursor( xPar )
   CASE nValue = 2003 // Current directory.
	    RETURN GetCurrentFolder()
   OTHERWISE
      /* Throw RTE? */
ENDCASE
RETURN NIL

[tr][td]Function[/td][td]Information returned[/td][/tr]
[tr][th]Function[/th][th]Information returned[/th][/tr]
[tr][td]SYS(0)   [/td][td]Network machine information.[/td][/tr]
[tr][td]SYS(1)   [/td][td]Julian system date.[/td][/tr]
[tr][td]SYS(2)   [/td][td]Seconds since midnight.[/td][/tr]
[tr][td]SYS(3)   [/td][td]Legal file name.[/td][/tr]
[tr][td]SYS(5)   [/td][td]Default drive or volume.[/td][/tr]
[tr][td]SYS(6)   [/td][td]Current printer device.[/td][/tr]
[tr][td]SYS(7)   [/td][td]Current format file.[/td][/tr]
[tr][td]SYS(9)   [/td][td]Visual FoxPro serial number.[/td][/tr]
[tr][td]SYS(10)   [/td][td]String from Julian day number.[/td][/tr]
[tr][td]SYS(11)   [/td][td]Julian day number.[/td][/tr]
[tr][td]SYS(12)   [/td][td]Available memory in bytes.[/td][/tr]
[tr][td]SYS(13)   [/td][td]Printer status.[/td][/tr]
[tr][td]SYS(14)   [/td][td]Index expression.[/td][/tr]
[tr][td]SYS(15)   [/td][td]Character translation.[/td][/tr]
[tr][td]SYS(16)   [/td][td]Executing program file name.[/td][/tr]
[tr][td]SYS(17)   [/td][td]Processor in use.[/td][/tr]
[tr][td]SYS(18)   [/td][td]Current control.[/td][/tr]
[tr][td]SYS(20)   [/td][td]Transform German text.[/td][/tr]
[tr][td]SYS(21)   [/td][td]Controlling index number.[/td][/tr]
[tr][td]SYS(22)   [/td][td]Controlling tag or index name.[/td][/tr]
[tr][td]SYS(23)   [/td][td]FoxPro EMS memory usage.[/td][/tr]
[tr][td]SYS(24)   [/td][td]EMS memory limit.[/td][/tr]
[tr][td]SYS(100)   [/td][td]Console setting. Included for backward compatibility. Use SET("CONSOLE") instead.[/td][/tr]
[tr][td]SYS(101)   [/td][td]Device setting. Included for backward compatibility. Use SET("DEVICE") instead.[/td][/tr]
[tr][td]SYS(102)   [/td][td]Printer setting. Included for backward compatibility. Use SET("PRINTER") instead.[/td][/tr]
[tr][td]SYS(103)   [/td][td]Talk setting. Included for backward compatibility. Use SET("TALK") instead.[/td][/tr]
[tr][td]SYS(602)   [/td][td]Bitmap Configuration.[/td][/tr]
[tr][td]SYS(987)   [/td][td]Map Remote Data to ANSI.[/td][/tr]
[tr][td]SYS(1001)   [/td][td]Visual FoxPro memory.[/td][/tr]
[tr][td]SYS(1011)   [/td][td]Number of Memory Handles.[/td][/tr]
[tr][td]SYS(1016)   [/td][td]User object memory use.[/td][/tr]
[tr][td]SYS(1023)   [/td][td]Enable Help diagnostic mode.[/td][/tr]
[tr][td]SYS(1024)   [/td][td]Disable Help diagnostic mode.[/td][/tr]
[tr][td]SYS(1037)   [/td][td]Page Setup Dialog Box.[/td][/tr]
[tr][td]SYS(1104)   [/td][td]Purge Cached Memory.[/td][/tr]
[tr][td]SYS(1269)   [/td][td]Property Information.[/td][/tr]
[tr][td]SYS(1270)   [/td][td]Object Location.[/td][/tr]
[tr][td]SYS(1271)   [/td][td]Object's .SCX File.[/td][/tr]
[tr][td]SYS(1272)   [/td][td]Object Hierarchy.[/td][/tr]
[tr][td]SYS(1500)   [/td][td]Activate a menu item.[/td][/tr]
[tr][td]SYS(2000)   [/td][td]File name wildcard match.[/td][/tr]
[tr][td]SYS(2001)   [/td][td]SET command status.[/td][/tr]
[tr][td]SYS(2002)   [/td][td]Turn insertion point on or off.[/td][/tr]
[tr][td]SYS(2003)   [/td][td]Current directory.[/td][/tr]
[tr][td]SYS(2004)   [/td][td]Visual FoxPro start directory.[/td][/tr]
[tr][td]SYS(2005)   [/td][td]Current resource file.[/td][/tr]
[tr][td]SYS(2006)   [/td][td]Current graphics card.[/td][/tr]
[tr][td]SYS(2007)   [/td][td]Checksum value.[/td][/tr]
[tr][td]SYS(2010)   [/td][td]CONFIG.SYS file settings.[/td][/tr]
[tr][td]SYS(2011)   [/td][td]Current lock status.[/td][/tr]
[tr][td]SYS(2012)   [/td][td]Memo field block size.[/td][/tr]
[tr][td]SYS(2013)   [/td][td]System menu name string.[/td][/tr]
[tr][td]SYS(2014)   [/td][td]Minimum path.[/td][/tr]
[tr][td]SYS(2015)   [/td][td]Unique procedure name.[/td][/tr]
[tr][td]SYS(2016)   [/td][td]SHOW GETS WINDOW name.[/td][/tr]
[tr][td]SYS(2017)   [/td][td]Checksum value based on the current record in the current work area.[/td][/tr]
[tr][td]SYS(2018)   [/td][td]Error message parameter.[/td][/tr]
[tr][td]SYS(2019)   [/td][td]Configuration file name and location.[/td][/tr]
[tr][td]SYS(2020)   [/td][td]Default disk free space.[/td][/tr]
[tr][td]SYS(2021)   [/td][td]Filtered index expression.[/td][/tr]
[tr][td]SYS(2022)   [/td][td]Disk cluster (block) size.[/td][/tr]
[tr][td]SYS(2023)   [/td][td]Temporary Path.[/td][/tr]
[tr][td]SYS(2024)   [/td][td]Detect report cancellation[/td][/tr]
[tr][td]SYS(2029)   [/td][td]Table type.[/td][/tr]
[tr][td]SYS(2030)   [/td][td]Debug.[/td][/tr]
[tr][td]SYS(2040)   [/td][td]Detect Report Status.[/td][/tr]
[tr][td]SYS(2060)   [/td][td]Mouse wheel event handling setting.[/td][/tr]
[tr][td]SYS(2300)   [/td][td]Add or Remove Code Page.[/td][/tr]
[tr][td]SYS(2325)   [/td][td]Returns the hWnd of a client window from the parent window's WHANDLE.[/td][/tr]
[tr][td]SYS(2326)   [/td][td]Returns a Visual FoxPro WHANDLE from a window’s hWnd.[/td][/tr]
[tr][td]SYS(2327)   [/td][td]Returns a window's hWnd from a Visual FoxPro window’s WHANDLE.[/td][/tr]
[tr][td]SYS(2333)   [/td][td]ActiveX Dual Interface Support.[/td][/tr]
[tr][td]SYS(2334)   [/td][td]Automation Server Invocation Mode.[/td][/tr]
[tr][td]SYS(2335)   [/td][td]Unattended Server Mode.[/td][/tr]
[tr][td]SYS(2336)   [/td][td]Critical Section Support.[/td][/tr]
[tr][td]SYS(2339)   [/td][td]Call CoFreeUnusedLibraries when COM object is released.[/td][/tr]
[tr][td]SYS(2340)   [/td][td]NT Service Support.[/td][/tr]
[tr][td]SYS(2410)   [/td][td]Error handler type for an error.[/td][/tr]
[tr][td]SYS(2450)   [/td][td]Application Search Path Order.[/td][/tr]
[tr][td]SYS(2600)   [/td][td]Return Pointer As String.[/td][/tr]
[tr][td]SYS(2700)   [/td][td]Enables Windows XP Themes.[/td][/tr]
[tr][td]SYS(2800)   [/td][td]Accessibility Support.[/td][/tr]
[tr][td]SYS(2801)   [/td][td]Event Tracking Support.[/td][/tr]
[tr][td]SYS(2910)   [/td][td]Sets or returns the number of items to display in drop down list boxes.[/td][/tr]
[tr][td]SYS(3004)   [/td][td]Return Locale ID.[/td][/tr]
[tr][td]SYS(3005)   [/td][td]Set Locale ID.[/td][/tr]
[tr][td]SYS(3006)   [/td][td]Set Language and Locale IDs.[/td][/tr]
[tr][td]SYS(3007)   [/td][td]Specifies a font language script for ToolTips.[/td][/tr]
[tr][td]SYS(3008)   [/td][td]Hyperlink Tooltips.[/td][/tr]
[tr][td]SYS(3009)   [/td][td]Bidirectional text justification for ToolTips.[/td][/tr]
[tr][td]SYS(3050)   [/td][td]Set Buffer Memory Size.[/td][/tr]
[tr][td]SYS(3051)   [/td][td]Set Lock Retry Interval.[/td][/tr]
[tr][td]SYS(3052)   [/td][td]Override SET REPROCESS Locking.[/td][/tr]
[tr][td]SYS(3053)   [/td][td]ODBC Environment Handle.[/td][/tr]
[tr][td]SYS(3054)   [/td][td]Rushmore Query Optimization Level.[/td][/tr]
[tr][td]SYS(3055)   [/td][td]FOR and WHERE Clause Complexity.[/td][/tr]
[tr][td]SYS(3056)   [/td][td]Read Registry Settings.[/td][/tr]
[tr][td]SYS(3065)   [/td][td]Internal Program Cache.[/td][/tr]
[tr][td]SYS(3092)   [/td][td]Output Rushmore Query Optimization Level[/td][/tr]
[tr][td]SYS(3095)   [/td][td]IDispatch Pointer.[/td][/tr]
[tr][td]SYS(3096)   [/td][td]IDispatch Object Reference.[/td][/tr]
[tr][td]SYS(3097)   [/td][td]Add Reference to Object.[/td][/tr]
[tr][td]SYS(3098)   [/td][td]Release Object Reference.[/td][/tr]
[tr][td]SYS(3099)   [/td][td]SQL Data Engine Compatibility Mode.[/td][/tr]
[tr][td]SYS(3101)   [/td][td]COM Code Page Translation[/td][/tr][/table]

[LOUIS]

Amigo Pablo

Donde consigo SYS_FoxPro.ch ?
Yo trabajo con la 3.0.46 y no consta, la busqué hasta la 3.4.0 y tampo hay

[mustafa]

Hola LOUIS
Tienes que crear el fichero --> demo.prg y pones todo el contenido que ha escrito Pablo César
Luego creas el segundo fichero con este nombre --> SYS_FoxPro.ch y colocas todo el contenido
que ha puesto Pablo César
los Pones en la misma carpeta --> c:\TEMP ,los dos ficheros y los compilas
Un saludo
Mustafa

[Pablo César]

Gracias Mustafá. Está correcto tus instrucciones.
Disculpen, no estaba con ánimos de escribir nada y pensé que colocando en lenguage de programacion iria entender.

Anexé todas las opciones que MSDN describió para el SYS del FoxPro, es solo ir adiccionandolos uno a uno disponibiizando en la forma equivalente sea en Harbour o en funciones de HMG.