• Martes 14 de Mayo de 2024, 02:46

Autor Tema:  N° De Serie De Disco Duro  (Leído 2683 veces)

luk2

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
N° De Serie De Disco Duro
« en: Jueves 24 de Junio de 2004, 15:29 »
0
:alien: Me gustaria  que alguien me ayudara - quiesiera saber como obtener el numero de serie del disco duro utilizando fox pro. Gracias.

alas

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Re: N° De Serie De Disco Duro
« Respuesta #1 en: Domingo 27 de Junio de 2004, 22:45 »
0
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

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Re: N° De Serie De Disco Duro
« Respuesta #2 en: Viernes 16 de Julio de 2004, 04:44 »
0
Adjunto envio archivos tomados de la Wep del Programador como obtener el serial del disco.