FoxPro/Visual FoxPro - Set device to screen

   
Vista:

Set device to screen

Publicado por Manuel Medina (332 intervenciones) el 07/08/2008 04:58:32
Saludo a todos,

1.- Amigos, lo único que me falta para usar mi programa es que cuando imprimo con un reporte echo a base de código este me daña toda el formulario y tengo que salir y entrar nuevamente.

Quiero que imprima y no se vea nada en pantalla.

Hago esto

SET PRINTER ON
SET DEVICE TO PRINTER

Y al final digo:

SET DEVICE TO SCREEN

Imprime bien pero tengo ese problema.

2.- Si saben algún truquito:
Quiero que mi programa busque algo específico de la pc, para que nadie lo pueda correr en otro equipo sin mi autorización.

gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Set device to screen

Publicado por kong (681 intervenciones) el 07/08/2008 06:30:50
1. set console off

2. - justamente pase por eso hace unas 2 semana atras.
- Idenitificar el Serial del disco duro.
- Codificar el serial y mostrarlo al usuario
- El usuario debe contactarse contigo y darte ese numero de serial codificado
- En otro programita aparte , decodificas el serial, le recontra codificas con algun algoritmo, y luego le entregas al cliente para que lo inserte en su programa.
- Esa clave que tu le entregas al cliente, el programa lo guarda en una tabla, o archivo texto.
- Al inicio del programa, coges esa clave, lo decodificas y lo comparas con el serial del disco duro. Solo entonces le permites pasar al resto del programa, de lo contrario se sale y muestras un mensaje que diga "debe contactarse contigo e insertar la clave de activacion."
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Set device to screen

Publicado por kong (681 intervenciones) el 07/08/2008 06:38:54
FUNCTION F_SERIAL_HDD
*-- N¨²mero de Serie del disco Duro:
oFS=CreateObject('scripting.filesystemobject')
nroser = oFS.Drives('d').SerialNumber
cSerie =ALLTRIM(str(nroser,20))
RETURN cSerie

nota: no me acuerdo de donde lo tome, pero tiene su propio autor.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar