Xailer & OZ Software

Hola,
Andaba dándole vuelta a ver como podí­a obtener el nº de serie del HD y probé sin éxito
Execute("VOL C: > VOL.TXT",,.T.,SW_HIDE)
y
WinExec("VOL C: > VOL.TXT")
Al final decidí­ probar lo mismo con un .bat y funcionó. Como no me hace mucha gracia dejar un .bat suelto en el directorio del programa, lo cree desde dentro de una función que aquí­ os dejo:
FUNCTION VolSerial()
local serial := ""

MemoWrit( "XX.BAT", "@ECHO OFF"+CRLF+"VOL C: > VOL.TXT" )
Execute("xx.bat",,.t.,SW_HIDE)
serial := AllTrim(MemoRead( ".vol.txt" ))
serial := Right(serial,11)
ERASE( "vol.txt" )
ERASE( "xx.bat" )
RETURN serial
Supongo que ya habrá por ahí­ muchas soluciones para este mismo asunto, pero ahí­ está la mí­a.
Saludos
Jose Alfonso

Bom dia
Utilizados VolSerial()


Attached files

Gracias por la sugerencia, en Xailer 3.0.1 no me aparece la función VolSerial().
Saludos,
Alf+.

Hola Alfonso
En las lib del proyecto incluir: c:xailer3hb32libmingwlibhbct.a
Después, por ejemplo:
cVolumen:=AllTrim( Str(VOLSERIAL(),30,0) )
Te funciona ok.
Saludos
El 02/04/2015 a las 03:18 p.m., Jose Alfonso Suarez Moreno escribió:
> Gracias por la sugerencia, en Xailer 3.0.1 no me aparece la
> función VolSerial().
>
> Saludos,
>
> Alf+.
---
El software de antivirus Avast ha analizado este correo electrónico en busca de virus.
http://www.avast.com