Já postei outro tópico sobre o assunto e estou quase desistindo, será que não consigo ler o tamanho total do HD com o CLIPPER
Se alguém tive alguma idéia, peço que por favor responda...
Estou presisando URGENTEMENTE!!!
Obrigado,
Moderador: Moderadores



Código: Selecionar todos
CLS
FERASE("DRVINFO.TXT")
// RUNSWPCMD("HBDRVINF.EXE") Para quem usa o Blinker
RUN HBDRVINF.EXE // Para quem usa o Rtlink
HAND=FOPEN("DRVINFO.TXT")
FSEEK(HAND,1,0)
TAMTOT:=VAL(FREADSTR(HAND,17))
FSEEK(HAND,19,0)
TAMUSA:=VAL(FREADSTR(HAND,17))
FSEEK(HAND,37,0)
TAMLIV:=VAL(FREADSTR(HAND,17))
FSEEK(HAND,55,0)
TAMUTI:=VAL(FREADSTR(HAND,17))
@ 01,00 SAY "Tamanho Total do HD : "+TRANSFORM(TAMTOT,"@E 999,999,999,999,999")
@ 02,00 SAY "Tamanho Usado do HD : "+TRANSFORM(TAMUSA,"@E 999,999,999,999,999")
@ 03,00 SAY "Tamanho Livre do HD : "+TRANSFORM(TAMLIV,"@E 999,999,999,999,999")
@ 04,00 SAY "Tamanho Util do HD : "+TRANSFORM(TAMUTI,"@E 999,999,999,999,999")
FCLOSE(HAND)
RETURN

