IsEmptyReg ( RegKey , SubKey 〔, ExceptSubKey1 , ExceptSubKey2 , …〕 )
' JP1/Scriptのレジストリサブキーの中身が空かどうかを調べる。
Dim regKey ,subKey ,isEmp
regKey = HKEY_LOCAL_MACHINE
subKey = "Software¥Hitachi¥JP1/Script"
isEmp = IsEmptyReg( regKey ,subKey ,"PathName" )
If isEmp = True Then
MessageBox( "Empty !" )
Else
MessageBox ( "Not Empty !" )
End