Utilizando WMI desde VFP para devolver la ruta
del directorio de Windows y del sistema.

objWMI = Getobject("winmgmts:\\")

cCadWMI = "Select * from Win32_OperatingSystem"

oSistema = objWMI.ExecQuery(cCadWMI)



For Each oSys in oSistema

    ? oSys.WindowsDirectory

    ? oSys.SystemDirectory

Next

Una de las formas más sencillas de obtener el
serial de fabrica de las unidades de disco.

objWMI = Getobject("winmgmts:\\")

cCadWMI = "Select * from Win32_PhysicalMedia"

oSistema = objWMI.ExecQuery(cCadWMI)



For Each Disco In oSistema

     ? "Serial de fabrica :" + Disco.SerialNumber

Next

De una unidad de disco es posible obtener 2
seriales: el de fabrica y el que le asigna el sistema operativo; en este ejemplo
se devuelve el serial del sistema operativo.

objWMI = Getobject("winmgmts:\\")

cCadWMI = "Select * from Win32_LogicalDisk"

oSistema = objWMI.ExecQuery(cCadWMI)



For Each Disco In oSistema

     ? "Unidad: " + Disco.Name + " Serial: " +
Disco.VolumeSerialNumber

Next

Una forma sencilla de seleccionar el texto de
un control ...

En el evento GotFocus() del control colocas lo
siguiente:

Keyboard '{END}'

Keyboard '{SHIFT+HOME}'

Un EXCELENTE truco de como determinar si un
formulario tiene ScrollBars ...

? Thisform.ViewPortHeight # Thisform.Height

? Thisform.ViewPortWidth # Thisform.Width

Aquí tienes otras formas de conocer el programa
asociado a una extensión...

Utilizando API

=Messagebox(assocExe('c:\ruta\archivo.doc'))



Function AssocExe(pcFile)

     cExeFile = ""



     Declare Integer FindExecutable In shell32;

             string
lpFile, string lpDirectory,;

             string
@ lpResult



            cExeFile =
Space(250)



      If FindExecutable(pcFile, "", @cExeFile) > 32

           cExeFile =
Left(cExeFile, At(Chr(0), cExeFile) -1)

      Else

           cExeFile = ""

      Endif



       Return cExeFile

Endfunc

Utilizando WSH

oFs = Createobject("Scripting.FileSystemObject")

loFile = oFs.Getfile('c:\ruta\archivo.doc')

? "Tipo: " + transform(loFile.Type)

Otra Utilizando API

Local lcFile

lcFile = 'c:\ruta\archivo.doc'

? "Type: " + GetFileDescription(lcFile)



Function GetFileDescription(lcFullPath)

      #Define SHGFI_TYPENAME 0x400



      Local lcShFileInfo, lcReturn



      Declare SHGetFileInfo In "Shell32" As
SHGetFileInfoA ;

           String pszPath,
Long dwFileAttributes, ;

           String @psfi, Long
cbFileInfo, Long uFlags



      lcShFileInfo = Space(352)

     =SHGetFileInfoA(lcFullPath, 0, @lcShFileInfo, 352,
SHGFI_TYPENAME)

      lcReturn = alltrim(substr(lcShFileInfo, 273))

      Return LEFT(lcReturn, LEN(lcReturn) - 1)

Endfunc

Un truco EXCELENTEEEE .... de como determinar
la parte decimal o fraccionaria de un número.

? ABS(78.53) % 1

? ABS(329.12) % 1

Con WinMe o superior viene la posibilidad de
comprimir y descomprimir archivos sin requerir un programa externo .... aquí
tienes la forma de descomprimir archivos desde VFP.

cZip = "C:\ruta\archivo.ZIP"

cDestino = "c:\temp\"



o=CREATEOBJECT("shell.application")

FOR EACH ofile IN o.NameSpace(cZip).items

      o.NameSpace(cDestino).copyhere(ofile)

ENDFOR

Otra forma de determina si un servicio se esta
ejecutando ..... también se puede hacer con WMI. ... En este caso utilizamos
SHELL.

Para eso solo debes pasarle el nombre del
servicio, en este caso quiero saber si MYSQL esta corriendo actualmente en
Windows.

oshell = CREATEOBJECT("Shell.Application")

? oshell.IsServiceRunning("Mysql")

Otra forma de iniciar o detener un servicio de
Windows .... de igual forma podemos utilizar WMI.. ... En este caso utilizamos
SHELL.

Para eso solo debes pasarle el nombre del
servicio, y si deseas que la configuración perdure después de reiniciar Windows.

Para detenerlo

?oshell.ServiceStop("mysql", .T.)

Para iniciarlo

?oshell.ServiceStart("mysql", .T.)

Una forma sencilla de calcular la desviación
típica de un conjunto de valores utilizando automatización con Excel.

oExcel = CreateObject("Excel.Application")

nRes = oExcel.WorksheetFunction.STDev(85,90,62,100,39,84)

? nRes

Release oExcel