Estimado amigo:
En muchas ocasiones uno no tiene las librerías
necesarias para ciertas cosas, CLIPPER en si mismo nos presenta la solución.
He aquí una forma de leer el NUMERO DE SERIE del disco, sin utilizar librerias de terceros.
Si en algo te ayudo mi respuesta, mucho te agradecería me lo hagas saber.
//----------------------------
#include "fileio.ch"
procedure main
local cArchivo:="",nManejador:=0,cBuffer:=""
local nPos:=0
run dir > XX.txt
nManejador:=fopen("XX.txt",FC_NORMAL)
if ferror() == 0
cBuffer=freadstr(nManejador,92)
cBuffer=trim(cBuffer)
nPos=rat(" ",cBuffer)
cls
// AQUI ESTA EL NUMERO DE SERIE
? "EL NUMERO DE SERIE ES-->",substr(Buf fer,nPos)
wait
* cierra el archivo y suelta el manejador
fclose(nManejador)
ferase("XX.TXT")
else
? " ERROR"
WAIT
endif
quit