IsExistRegKey ( RegKey , SubKey )
' JP1/Scriptのレジストリサブキーが存在していたら,削除する。
Dim regKey ,subKey
regKey = HKEY_LOCAL_MACHINE
subKey = "Software¥Hitachi¥JP1/Script"
If IsExistRegKey ( regKey ,subKey ) = True Then
RegDeleteKey ( regKey ,subKey )
End