Programación General > Visual FoxPro

 N° De Serie De Disco Duro

(1/1)

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

alas:
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

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

Navegación

[0] Índice de Mensajes