Detallo un poco mas:
El programa lo estoy diviendo en uno para uso en el servidor, y otro para terminales, por lo que uso un valor en un .INI que me indica si es Terminal o no.
[Config]
Terminal=.t.
Derive una Clase de xForm para que al momento de llamar al :New() me lleve un proceso como esto:
WITH OBJECT TRegistry():New()
:Root := HKEY_LOCAL_MACHINE
If ( AppData:CONFIG_Terminal )
lConected := ( :Connect(AppData:DIR_Servidor, :Root) == 0 )
End
If ( lConected )
If ( :OpenKey("SOFTWAREZeaSoftware" + AppData:Application) == 0 )
If ( cKey == Nil )
cKey := :GetString( "Serial" )
Else
:SetString("Serial", cKey)
End
:CloseKey()
Else
cKey := "Unknow"
End
End
pero como no encuentra la conexion con el servidor cKey me regresa en Nil, lo cua es solo de asignale un valor "UnKnow". pero lo que quiero es que si no estableci la conexion llamar a la API que comentas para ejecutar el dialogo desde el sistema mismo.
Que da resuelto si busco el Servidor en el entorno de red, y le doy para accesar y me pide usuario y password, y alli si ya se ejecuta bien todo.
Para manejo de las API no domino bien el tema aun.
Gracias por tu ayuda y tu tiempo.
Sigo aceptando sugerencias.
--
Ramón Zea
01.993.194.14.27
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
"José Lalín" <
notelo@digo.com> escribió en el mensaje news:465b5305$[email=
1@ozsrv2.ozlan.local...]
1@ozsrv2.ozlan.local...[/email]
>
> Ramón,
>
> creo que no has leído bien la documentación. El método :Connect() indica
> que el segundo parámetro es numérico y estás usando una cadena.
>
> La llamada al método debería ser así:
>
> If ( :Connect(cMachine, HKEY_LOCAL_MACHINE ) == 0 )
>
> De todos modos, mira lo que dice la documentación de MS sobre esta función:
>
> -----
> Windows Server 2003 and Windows XP Professional: If the computer is joined
> to a workgroup and the "Force network logons using local accounts to
> authenticate as Guest" policy is enabled, the function fails. Note that
> this policy is enabled by default if the computer is joined to a workgroup.
>
> Windows XP Home Edition: This function always fails.
>
> Windows Me/98/95: To use RegConnectRegistry, you must install the
> Microsoft Remote Registry service. If you don't do this, calls to
> RegConnectRegistry return ERROR_DLL_INIT_FAILED. Perform the following
> steps to install the Microsoft Remote Registry service.
> -----
>
> Si lo quieres usar para proteger tu programa o para guardar información de
> tu aplicación, no me parece un método portable, ni sencillo de mantener.
>
> Saludos,
> José Lalín
--