JP1/Script(Windows(R)用)
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
EndCopyright (C) 2012, Hitachi, Ltd.
Copyright (C) 2012, Hitachi Solutions, Ltd.