Excelente truco que te
permitirá crear gráficos en tus formularios .... no es la mejor forma pero
funciona muy bien.

_Screen.Cls

_Screen.CurrentX=100

_Screen.CurrentY=100

_Screen.FontName='Courier New'

_Screen.Print( 'Grafica '+Chr(13)+ ;

'Object Turnover Budget '+Chr(13)+ ;

'hulgi 123456 100000'+Chr(13)+ ;

'ekspo 1234 1000'+Chr(13)+ ;

'pood 123 100' )



For i=0 To 15

     _Screen.FillColor=Rgb(255*Rand(),255*Rand(),255*Rand())

     _Screen.FillStyle=i%8

     _Screen.Box(300+20*i,300,300+20*(i+1),300-300*Rand())

Endfor

Ejemplo básico de como
crear y trabajar con un control StatusBar .... crear panels, establecer
estilos y textos en los paneles.

Public oBarra

Local lnPanels



oBarra = Createobject("Form")



With oBarra

.Caption = "Ejemplo de un Status Bar"

.Width = 430

.Height = 200

.Visible = .T.

.AddObject("OCXTest","StatusBarX", "MSComctlLib.sBarCtrl.2")

Endwith



With oBarra.OCXTest

.Panels(1).Text = "Ejemplo de Status
Bar"

.Panels(1).ToolTipText = "Panel 1"

.Panels(1).Style = 0

.Panels(1).Width = 300



.Panels.Add()



.Panels(2).ToolTipText = "Mayusculas
Siempre"

.Panels(2).Style = 1

.Panels(2).Width = 50



.Panels.Add()



.Panels(3).ToolTipText = "Bloque
numerico"

.Panels(3).Style = 2

.Panels(3).Width = 50

Endwith



Define Class StatusBarX As OleControl

Visible = .T.

Height = 25

Enddefine

Ejemplo básico de como
crear y trabajar con un control StatusBar .... crear panels, establecer
estilos y textos en los paneles.

Public oBarra

Local lnPanels



oBarra = Createobject("Form")



With oBarra

.Caption = "Ejemplo de un Status Bar"

.Width = 430

.Height = 200

.Visible = .T.

.AddObject("OCXTest","StatusBarX", "MSComctlLib.sBarCtrl.2")

Endwith



With oBarra.OCXTest

.Panels(1).Text = "Ejemplo de Status
Bar"

.Panels(1).ToolTipText = "Panel 1"

.Panels(1).Style = 0

.Panels(1).Width = 300



.Panels.Add()



.Panels(2).ToolTipText = "Mayusculas
Siempre"

.Panels(2).Style = 1

.Panels(2).Width = 50



.Panels.Add()



.Panels(3).ToolTipText = "Bloque
numerico"

.Panels(3).Style = 2

.Panels(3).Width = 50

Endwith



Define Class StatusBarX As OleControl

Visible = .T.

Height = 25

Enddefine

Quieres conocer la
información de los archivos MP3 ?? ... autor,
titulo, álbum, año ...

lnFile = Fopen(Getfile())



Fseek(lnFile, -128,2)

lcTag = Fread(lnFile, 128)



? "Titulo: ", Strtran(Substr(lcTag,4,30), Chr(0))

? "Artista: ", Strtran(Substr(lcTag,34,30), Chr(0))

? "Album: ", Strtran(Substr(lcTag,64,30), Chr(0))

? "Año: ", Val(Substr(lcTag,94,4))



Fclose(lnFile)



 

En ocasiones quieres
ejecutar un programa con ShellExecute del API de Windows
y pasarle parámetros a dicho programa ... puedes hacer así:.

Declare Long ShellExecute In "shell32.dll" Long HWnd, String lpszOp, ;

string lpszFile, String lpszParams, ;

string lpszDir, Long nShowCmd



Declare Long GetDesktopWindow In"win32api"



Local hDCScreen



hDCScreen = GetDesktopWindow()



? ShellExecute( hDCScreen, "open", "miprograma.exe", "parm1 parm2 parm3",
"c:\", 1 )



 

Esta es otra forma de leer
un documento de texto pero esta vez utilizando WSH (FileSystemObject).

Local
fso, cArchivo

fso = Createobject("Scripting.FileSystemObject")

cArchivo = fso.OpenTextFile(Getfile("TXT"),1)

=Messagebox(cArchivo.ReadAll)



 

Este truco te permite
conocer la velocidad y tipo de procesador que tienes instalado en tu PC
.... utiliza WMI, es un nueva herramienta de administración incorporada en
las nuevas versiones de Windows.

objWMIService = Getobject("winmgmts:\\")

colItems = objWMIService.ExecQuery("Select * from Win32_Processor",,48)



For Each objItem In colItems

     ? objItem.Name

     ?objItem.CurrentClockSpeed

Next



 

Esta es la forma de
eliminar una tabla de Access utilizando automatización ....

oAccess
= Createobject("Access.Application")

oAccess.OpenCurrentDatabase(GETFILE("MDB"))

oAccess.CurrentDb.TableDefs.Delete("NombreTablaaEliminar")



 

Aquí tienes la forma de
determinar los privilegios que tiene un usuario en Oracle..... Excelente
truquito.

nH =
Sqlstringconnect("dsn=<datasource>;uid=<user>;pwd=<password>")

_oK = SQLExec(nH, "Select * from SESSION_PRIVS", "c_Users")



If (_oK < 1)

      ? "Imposible Obtener los permisos"

Else

      Scan

           ?
Alltrim(SqlResult.Privilege)

     Endscan

Endif

Este es un ejemplo de como
crear por código una copia de seguridad de las bases de datos de SQL
Server utilizando SQLDMO.

Local
loserver, lnCounter, loBackupDevice



loserver=Createobject("SQLDMO.SqlServer")

loserver.Connect("MiServidor","MiUserName","MiPassword")



If loserver.BackupDevices.Count = 0

       loBackupDevice = Createobject("SQLDMO.BackupDevice")

       With loBackupDevice

             .Name =
"MiNuevoBackup"

             .PhysicalLocation
= "C:\MisBackups\BackupFile.bak"

             .Type =
2 && SQLDMODevice_DiskDump

      Endwith

      loserver.BackupDevices.Add(loBackupDevice)

Else

      For lnCounter = 1 To loserver.BackupDevices.Count

          ?
loserver.BackupDevices(lnCounter).PhysicalLocation

      Next lnCounter

Endif

Esta función devuelve 0
(cero) si la carpeta pasada como parámetro esta vacía sino devuelve 1.

Declare
Integer PathIsDirectoryEmpty in "shlwapi.dll" String pszPath

? PathIsDirectoryEmpty(Getdir())

Define Pad MenMulti
Of _Msysmenu Prompt
"Multicolumna";

Color Scheme
3 ;


KEY Alt+U,
""

On Pad MenMulti
Of _Msysmenu Activate Popup
popMenMulti

Define Popup popMenMulti
Margin Relative Shadow Color
Scheme 4


Define Bar 1
Of
popMenMulti
Prompt
"\|Columna 1"


Define Bar 2
Of
popMenMulti
Prompt
"Columna 1 - 2"


Define Bar 3
Of
popMenMulti
Prompt
"\|Columna 2"


Define Bar 4
Of
popMenMulti
Prompt
"Columna 2 - 2"

Excelente truco que te
permite imprimir una pagina web a través de automatización del Internet
Explorer.

oIE = CreateObject("InternetExplorer.Application")

oIE.Navigate("www.miweb.com/pagina.htm")

oIE.Visible = .T.

oIE.Execwb(6, 1)  &&
Imprimir mostrando el Promtp para seleccionar impresora

*oIE.Execwb(6, 2) &&
Imprimir sin mostrar el Promtp para seleccionar impresora

*oie.execwb ( 7, 2 , 0 , 0 ) && Hacer un
preview