SoloCodigo

Programación General => Visual FoxPro => Mensaje iniciado por: luk2 en Jueves 24 de Junio de 2004, 15:29

Título: N° De Serie De Disco Duro
Publicado por: luk2 en Jueves 24 de Junio de 2004, 15:29

:alien: Me gustaria  que alguien me ayudara - quiesiera saber como obtener el numero de serie del disco duro utilizando fox pro. Gracias.

Título: Re: N° De Serie De Disco Duro
Publicado por: alas en Domingo 27 de Junio de 2004, 22:45

hola
prueba con esto
alasleos@televicabe.net.mx :hola:

Declare LONG GetVolumeInformation IN Win32API String, String, Integer, Long @, Long, Long, String, Long
mser = -1  && serie
hd = Sys(5)  && letra unidad de disco
If Upper(Subs(hd,1,1))$"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   discohd = Allt(hd)+"\"
   
    GetVolumeInformation(discohd," ",1,@mser,0,0," ",1)
EndIf      
WAIT ALLTRIM(STR(mser)) WINDOW TIMEOUT 10
Clear DLLS

Título: Re: N° De Serie De Disco Duro
Publicado por: jaroroja en Viernes 16 de Julio de 2004, 04:44

Adjunto envio archivos tomados de la Wep del Programador como obtener el serial del disco.