FoxPro/Visual FoxPro - Evitar Copia de Aplicacion

Como puedo proteger una aplicacion para que no sea copiada?
En Clipper hay una funcion llamada volserial() que retorna el serial del disco duro, y por alli se puede encadenar el sistema a ese computador, pero en VFP no se como hacerlo.

Esta rutina obtiene el serial de HD. Espero te sirva

LPARAMETER lpRootPathName && Directorio raiz del disco que se desea información.
IF PARAMETERS() < 1
lpRootPathName = SET('DEFAULT') + '\'
ENDIF
lpVolumeNameBuffer = ''
nVolumeNameSize = 0
lpVolumeSerialNumber = 0
lpMaximumComponentLength = 0
lpFileSystemFlags = 0
lpFileSystemNameBuffer = ''
nFileSystemNameSize = 0
DECLARE LONG GetVolumeInformation IN kernel32 ;
String lpRootPathName, ;
String lpVolumeNameBuffer, ;
Long nVolumeNameSize , ;
Long @ lpVolumeSerialNumber, ;
Long @ lpMaximumComponentLength, ;
Long @ lpFileSystemFlags, ;
String lpFileSystemNameBuffer, ;
Long nFileSystemNameSize
= GetVolumeInformation(lpRootPathName, ;
lpVolumeNameBuffer,;
nVolumeNameSize, ;
@lpVolumeSerialNumber, ;
@lpMaximumComponentLength, ;
@lpFileSystemFlags, ;
lpFileSystemNameBuffer, ;
nFileSystemNameSize)
? ' Serial del disco:', lpVolumeSerialNumber

Suerte.

oye, elmer, corri tu aplicación, pero:
como funciona?, me imagino que una vez que se rescata el numero de serie, en el prog. de acceso se pone ese número, ¿verdad?, pero a traves de utilerias para ver el codigo en hexadecimal, podría encontrarse el número ¿no crees? y ponerse.

o dime que sugerencia se puede hacer al caso..

además no se si el numero de serie lo genere el formateo y cada vez que se hace es un numero diferente...
¿o se puede cambiar por código, amigo elmer?

espero tu valiosa respuesta, saludos desde México