Declare INTEGER FindWindowEx
IN
user32.dll
;

    Long,
Long,
string,
String

Declare INTEGER EnableWindow
in
user32.dll
Long,
Long

* Deshablitado = 0

* Hablitado = 1

nEnable = 0 

* Deshabilitado

lHwnd = FindWindowEx(0, 0,
"Shell_TrayWnd",
.NULL.)

lHwnd = FindWindowEx(lHwnd, 0,
"Button",
.NULL.)

=EnableWindow(lHwnd, nEnable)







 

 

Ejemplos:

* Probando con Date( )


? Date(2006,3,13)
+ 2

* Devolverá: 2006.03.15

* Pero con un DateTime


? DateTime(2006,3,13,
8,10,4) + 2

* Devolverá: 2006.03.13
08:10:06 AM

Una solución es la siguiente, multiplicar el
número de días a sumar por 86400 que es el número de segundos que tiene un día.



Resultado:

? DateTime(2006,3,13,
8,10,4) + (2 * 86400)

* Devolverá: 2006.03.15
08:10:04 AM





 

? "Existe ",Fsize("Campo","Tabla")
> 0

Declare DoFileDownload
In
shdocvw.Dll;

    STRING
lpszFile

cRuta = "http://www.davphantom.net/archivo.txt"

DoFileDownload(Strconv(cRuta,12))

* Asumamos que el Set Decimals
está en 2


nValor = "8.2433"

 


* Con la función VAL() me devolveria 8.24


? VAL(nValor)

* Con la función CAST() me deolveria el valor 8.2433


? CAST(nValor
AS
N(20,4))

 

Algo también interesante con VAL()
aproximaría el valor mientras que con CAST no.

 

nValor =
"8.2833"

* Con la función VAL() me devolveria 8.29


? VAL(nValor)

* Con la función CAST() me deolveria el valor 8.2833


? CAST(nValor
AS
N(20,4))


 

Declare Long GetDriveType
In
"kernel32"
;

    STRING
nDrive

nRet = GetDriveType("H:")

Do Case

   
Case nRet = 1

       
? "DESCONOCIDO"

   
Case
nRet = 2

       
? "DISCO REMOVIBLE"

   
Case
nRet = 3

       
? "DISCO DURO"

   
Case
nRet = 4

       
? "DISCO EN RED"

   
Case
nRet = 5

       
? "CDROM"

   
Case
nRet = 6

       
? "DISCO RAM"


EndCase


 

Declare Integer SetWindowTheme
In
UxTheme ;

   
INTEGER HWnd,
String pszSubAppName,;

   
String pszSubIdList

=SetWindowTheme(Thisform.HWnd,
Null,
"")




 

 

Declare
SetupPromptReboot
IN
setupapi.dll
;

    Long
FileQueue,
Long
Owner,
Long
ScanOnly

Para reiniciar, preguntando si se desea
proceder

SetupPromptReboot (0,
_Screen.hWnd,
0)

RUN ping
"NOMBRE_PC"
> c:\PingIp.TXT

cTxt = FILETOSTR([c:\PingIp.TXT])

cTxt = SUBSTR(cTxt,AT("[",cTxt)+1)

? LEFT(cTxt,AT("]",cTxt)
-1)


 

Local lOnline

oWSH = Createobject("WScript.Shell")

lOnline = oWSH.Run("ping
192.168.0.12",0,"True")

If lOnline = 0

    Messagebox("ping
OK!")


Else

   
Messagebox("ping
ERROR!")


EndIf

Release oWSH


 

En el ejemplo podemos ver una forma de registrar
un activex.

Declare Long WinExec
In
kernel32 ;

   
STRING
lpCmdLine ,
Long
nCmdShow

cCmd = "RegSvr32.exe
micontrol.ocx"

=WinExec(cCmd, 0)

Note;0 - Se ejecuta, pero no se hace Visible)

;1 - la Ventana se muestra Normal

;2 - minimizado ;3 - Maximizado

;4 - Tamaño Normal, pero sin Foco

Set Safety Off

Open Database Home(2) +
"northwind\northwind"

Use Shippers
Shared

COPY TO c:\TempDatos
TYPE CSV

oWord = CREATEOBJECT("Word.Application")

oDoc  = oWord.Documents.Open("c:\TempDatos.CSV")

oRange = oDoc.Range()

oRange.ConvertToTable(",")

oWord.Visible
= .T.


Close Databases all

Usted podría adaptar este ejemplo y a través de
automatización hacerle algunas modificaciones al documento de Word.







 

DECLARE INTEGER ShellExecute
IN
shell32;

   
INTEGER hwnd, STRING
lpOperation,;

   
STRING
lpFile,
STRING
lpParameters,;

   
STRING
lpDirectory,
INTEGER
nShowCmd



WAIT WINDOWS
"Copiando..." NOWAIT


=ShellExecute(0,"Open","XCOPY.EXE","C:\DirOrigen
c:\DirDestino /t","",0)


Wait Clear


 

#Define
FORCE 1

DECLARE INTEGER
InternetCheckConnection
in
wininet;

  STRING
lpszUrl, INTEGER
dwFlags,;

  INTEGER
dwReserved


  RETURN
(InternetCheckConnection(tcURL,
FORCE, 0) == 1)

Close
Databases All

Open Database (Home(2)
+ "Northwind\northwind.dbc")


Use northwind!shippers

Create Report shippers
From
shippers


Use northwind!Suppliers


Create Report Suppliers
From
Suppliers

Report Form shippers
Object Type
1
Nopageeject

Report Form Suppliers
Object Type
1
Noreset