Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Setup of my system...
Message
From
11/07/2001 19:55:02
 
 
To
10/07/2001 20:43:39
General information
Forum:
Visual FoxPro
Category:
Installation, Setup and Configuration
Miscellaneous
Thread ID:
00528594
Message ID:
00529518
Views:
14
* RUTAS.DBF puede ser tu tabla de rutas, tiene los siguientes campos: DEFAULT, DATOS, OTROS tipo caracter de un tamaño de al menos 120 caracteres.
*Cuando inicie tu prg principal, antes de ejecutar el menu o si tienes formulario de nivel superior, antes de este:
Local cDefault, cRuta, lRutas
lRutas = .F.

Use RUTAS In 0
Select RUTAS
If Reccount() > 0
* Significa que ya tienes definidas las rutas
cDefault = Alltrim(RUTAS.DEFAULT)
cRuta = Alltrim(RUTAS.DATOS) + ';' + Alltrim(RUTAS.OTROS)
Set Defualt To (cDefault)
Set Path To (cRuta)
lRutas = .T.
* Aqui ya pones tu demás código
Else
* No tienes definidas las rutas
Do Form RUTAS.SCX To lRutas
* Si el usuario canceló hay que verificar, puedes hacer que tengan que pasar a fuerza por el formulario
* todo depende de lo que requieras hacer
If lRutas
If !Used('RUTAS.DBF')
Use Rutas In 0
EndIf
cDefault = Alltrim(RUTAS.DEFAULT)
cRuta = Alltrim(RUTAS.DATOS) + ';' + Alltrim(RUTAS.OTROS)
Set Defualt To (cDefault)
Set Path To (cRuta)
lRutas = .T.
EndIf
EndIf

If lRutas
* Pon tu codigo siguiente, ya verificaste que están registradas las rutas
EndIf
Close All
Quit

*****
Claro, esto es algo simple, puedes ampliarlo o mejorarlo, pero es algo para comenzar, espero te sirva
En cuanto a leerlo del registro de windows, puedes buscar en el area de download, ahi puedes encontrar algunas herramientas para el manejo del registro.

Mauricio
Be fast like the Fox
Be free like the Penguin
Se Rápido como el Zorro
Se libre como el Pingüino
Previous
Reply
Map
View

Click here to load this message in the networking platform