关于RADStudio2007使用SUISKINv4.6的方法（续）

原以为当时SUISKIN的破解已经完成，使用时发现这种方法只对TForm窗体有效，对窗体上的Button，Label，Memo等控件均无效，估计SUISkinUsing单元中还有一部分处理。比较郁闷呀！

如何办呢，还是回到当初的思想上去——屏蔽ShowMessage，但是反汇编太麻烦，于是使用了一个变通的办法：使用UltraEdit打开SUISkinUsing.dcu修改其中的ShowMessage为XhowMessage（随便改个名字，但不要与已有函数同名）并保存，然后修改Delphi的Dialogs单元，添加XhowMessage过程：

procedure XhowMessage();

begin

end;

该过程什么都不做。

重新编译Dialogs单元，然后使用SUISkin，发现均可正常使用。

其他类似控件也可使用该方法。

注意要点：
1、一定要使用UltraEdit编辑，不要用记事本编辑
2、ShowMessage改为新的函数时注意新函数名称字数与ShowMessage字数要一致，就是11个字符。
3、顺序应当是先安装SuiSkin控件，再修改SUISkinUsing.dcu文件，否则会出现安装失败的现象。

该文章仅供学习使用，请勿非法使用。