| Pregunta: | 63022 - VOLUMEN DEL DISCO DURO NEGATIVO |
| Autor: | yesid ramirez |
| Buen dia Señores programadores tengo un inconveniente estoy trabajando en vfp una aplicacion, y para evitar en algo que la instalen facilmente, tengo una aplicacion que trabaja con el volumen del disco duro, hace poco me paso algo y es que lo probe en un computador que tenia dos particiones, pero no creo que tenga que ver, y me decia que no estaba autorizado, y encontre que el numero decimal del volumen del disco duro es negativo, ya que buscando en internet encontre una aplicacion, de ejemplo que trabaja con el decimal y luego lo convierte a hexadecimal(pero cuando el decimal es positivo, cuando es negativo no me funciona), y ahi tengo una aplicacion que pregunta si coinciden con el serial del disco duro. alguien tiene un ejemplo que directamente lea el volumen del disco duro sin hacer conversiones, y porque pasa esto de que de un decimal negativo el volumen del disco duro. existe otra forma de controlar las instalaciones de una aplicacion que no sea el volumen del disco duro, ya trate con el serial de la tarjeta madre, ya que una ocacion me genero un serial en blanco y me sacaba de la aplcacion. Espero encontrar alguna alma caritativa en este mundo virtual que me pueda colaborar | |
| Respuesta: | manuel betancur |
| mira yo soluciono con esto lo que tengo es un ejecutable por compania y tengo un .dbf en el system32 que cuando no es correto da .t. ojala te sirva mi correo es [email protected] suerte Do Case Case lcserialnumber = -860111093 &&& mc32 Use c:Windowssystem32as_rdf In 0 Alias as_rdf Select as_rdf m.hdserial = "OK" Case lcserialnumber = -790905080 &&& acer Use c:Windowssystem32as_rdf In 0 Alias as_rdf Select as_rdf m.hdserial = "OK" Case lcserialnumber = 1351151405 &&& of acer Use c:Windowssystem32as_rdf In 0 Alias as_rdf Select as_rdf m.hdserial = "OK" Case lcserialnumber = 1077987988 &&& mhb Use c:Windowssystem32as_rdf In 0 Alias as_rdf Select as_rdf m.hdserial = "OK" Case lcserialnumber = 1411854587 &&& mhb Use c:Windowssystem32as_rdf In 0 Alias as_rdf Select as_rdf m.hdserial = "OK" Case lcserialnumber = 683129834 &&& LEO Use c:Windowssystem32as_rdf In 0 Alias as_rdf Select as_rdf m.hdserial = "OK" Case lcserialnumber = 772448269 &&& HUGO LAPTOP Use c:Windowssystem32as_rdf In 0 Alias as_rdf Select as_rdf m.hdserial = "OK" Otherwise Messagebox("Err 001 THIS PROGRAM IS LICENSED ONLY FOR LIHMIL Flowers & Supplies 786 444 5051",0,"e-floral Records" ) m.hdserial = "NO" Endcase If m.hdserial = "OK" If Edit = .F. Use &DS.masterf In 0 Alias masterf Shared Select masterf If masterf.COMPANY = "LIHMIL Flowers & Supplies " | |