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 End
Copyright (C) 2012, Hitachi, Ltd.
Copyright (C) 2012, Hitachi Solutions, Ltd.