Leer el numero de serie del disco rigido
Hola a Todos:
Necesito saber como se lee el numero de serie del disco rigido con visual foxpro 6.0.
Desde ya muchas gracias
Necesito saber como se lee el numero de serie del disco rigido con visual foxpro 6.0.
Desde ya muchas gracias
Run Vol > c:Disco.Dat
Handle = FOPEN("c:disco.dat")
CadVol = FREAD(Handle,100)
Vol = SUBSTR(CadVol,84,9)
es una forma
Handle = FOPEN("c:disco.dat")
CadVol = FREAD(Handle,100)
Vol = SUBSTR(CadVol,84,9)
es una forma
