原以为当时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文件,否则会出现安装失败的现象。
该文章仅供学习使用,请勿非法使用。