Hide disket pake vfp

** Program untuk menghide disket
Declare Integer RegOpenKeyEx In Win32API Integer, String @, Integer, Integer, Integer @
Declare Integer RegCreateKey In Win32API Integer, String @, Integer @
Declare Integer RegCloseKey In Win32API Integer
Declare Integer RegSetValueEx In Win32API Integer, String, Integer, Integer, String, Integer
*2nd simple sample
#define HKEY_CURRENT_USER -2147483647

#define KEY_QUERY_VALUE 4
LnResult=0
lnReserved=0
lnError=RegCreateKey(HKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Policies\Explorer",@lnResult)
mzTol2 = chr(1)&&+chr(0)+chr(0)+chr(0) &&& hasilnya=||||
mzTolo2 = len(mzTol2) &&=4
=RegSetValueEx(lnResult,"NoDrives",lnReserved,KEY_QUERY_VALUE,mzTol2,mzTolo2)
=RegCloseKey(lnResult)

Silahkan ...