delphi 7开发的系统在win 7下出现的 'Invalid data type for 'UserPreferencesMask'的解决

最近升级到win7,发现delphi 7开发的系统在调试模式下运行，会出现以下提示

Debugger Exception Notification

---------------------------
Project HRSYSTEM.exe raised exception class ERegistryException with message 'Invalid data type for 'UserPreferencesMask''. Process stopped. Use Step or Run to continue.

经排查，是某个注册表键值的问题，如下：

[HKEY_CURRENT_USER/Control Panel/Desktop/]中的UserPreferencesMask键，将其值改为0000 B0 32 07 80

即可