IsExistRegKey ( RegKey , SubKey )
' JP1/Scriptのレジストリサブキーが存在していたら,
' 中身が空かどうかを調べる。
Dim regKey ,subKey ,isEmp
regKey = HKEY_LOCAL_MACHINE
subKey = "Software¥Hitachi¥JP1/Script"
If IsExistRegKey ( regKey ,subKey ) = True Then
isEmp = IsEmptyReg( regKey ,subKey)
If isEmp = True Then
MessageBox( "Empty !" )
Else
MessageBox ( "Not Empty !" )
End
End