Para este truco utilizaremos el objeto CDO que viene en Windows.

cStr = ""

Declare Integer ShellExecute In "Shell32.dll" ;

    INTEGER HWnd, StringlpVerb, ;

    STRING lpFile, String
lpParameters, ;

    
STRING lpDirectory,
Long nShowCmd

 

cArchivo = Sys(2015) + ".mht"

cUrl = " http://www.davphantom.net/modulo.asp"

 

oMSG = Createobject( "CDO.Message")

oMSG.CreateMHTMLBody(cUrl)

cStr = oMSG.getstream

cStr.SaveToFile(cArchivo, 1)

ShellExecute(0, "Open", cArchivo, "","", 0)

Release oMSG

Do Case

    Case "6.00" $ cOsx

          cSistema = "LongHorn"

     Case "5.02" $ cOsx

         cSistema = "2003"

    Case "5.01"
$ cOsx

         cSistema = "XP"

    Case "5.0" $ cOsx

         cSistema = "2000"

    Case "NT" $ cOsx

         cSistema = "NT"

    Case "4.1" $ cOsx

         cSistema = "98"

    Case"4.9" $ cOsx

        cSistema = "ME"

    Case "4.0" $ cOsx Or "3.9" $ cOsx

        cSistema =
"95"

    Case "3." $ cOsx

        cSistema = "3.1"

Endcase

? "Windows " + cSistema

If nKeyCode = 13 >Then
&& Enter

    lExists = .F.

   
For i = 1To This. ListCount

         If Upper(This.ListItem<(i))= Upper(Alltrim( This.DisplayValue))

              lExists
= .T.

            Exit

         Endif

    Endfor

 

    If Not lExists

        This.AddItem( This.DisplayValue)

         Wait Window "Agregado"

     Else

         Wait Window "Existente"

    Endif

Endif

Declare Integer ShellExecute In shell32. Dll;

    long HWnd,String cOperation, ;

    string cFile, String t cParam, ;

    string cDir, Integer nShow

cRutaPDF = "C:Rutaarchivo.pdf"

ShellExecute(0, "print", cRutaPDF,"", Fullpath(""),0)

En el evento KeyPress del TextBox escribimos lo siguiente:

If nKeyCode = 32

     Nodefault

Endif

Set classlib to Home(1) + "ffc/registry.vcx"

oReg = CreateObject("Registry")

 

cValue = ""

HKclass = "-2147483648"

cRut = "mailtoshellopencommand"

oReg.GetRegKey("", @cValue, cRut, HKclass)

?cValue

* cEmail = ".@aa.co"

cEmail = " dav_amador@davphantom.net"

 

oRegE = CreateObject( "VBScript.RegExp")

oRegE.IgnoreCase = .T.

oRegE.Pattern = "^[A-Za-z0-9](([_.-]?[a-zA-Z0-9]+)*)@([A-Za-z0-9]+)(([.-]?[a-zA-Z0-9]+)*).([A-Za-z]{2,})$"

 

lOk = oRegE.Test(cEmail)

Release oRegE

?Iif(lOk, "Correcta","Incorrecta")

Uno de los problemas más frecuentes con los
ActiveX es el determinar si estan registrados, está es una forma sencilla de
conocerlo.

Todos los OCX tienen un nombre (referencia) interno, esta puede ser el GUID o
el nombre de la clase, en este ejemplo utilizaremos el nombre de la clase. ¿Pero
como hacemos para conocer este nombre de un ActiveX?... Creamos el Objeto en un
formulario de VFP y luego en la propiedad OleClass estará el nombre que
necesitamos.

Algunos ejemplos:

?OcxRegistrado("mscomctllib.treectrl.2")
&& Treeview

?OcxRegistrado("mscomctl2.monthview.2")
&& MontView

?OcxRegistrado("mswinsock.winsock.1")
&& WinSock

?OcxRegistrado("mscomctllib.progctrl.2")
&& ProgressBasr

?OcxRegistrado("mscal.calendar.7")
&& Calendar

?OcxRegistrado("agent.control.2")
&& Microsoft Agent

?OcxRegistrado("msflexgridlib.msflexgrid.1")
&& MSFlexGrid

?OcxRegistrado("mscomctl2.dtpicker.2")
&& Date Time Picker

?OcxRegistrado("mschart20lib.mschart.2")
&& Ms Chart

?OcxRegistrado("mscommlib.mscomm.1")
&& MsComm

Function OcxRegistrado(cClase)

   
Declare Integer RegOpenKey
In
Win32API ;

       
Integer nHKey,
String
@cSubKey,
Integer
@nResult

 

   
Declare Integer RegCloseKey
In
Win32API ;

       
Integer nHKey

    If
lEsta

        RegCloseKey(nPos)

   
Endif

    Return lEsta