Procedure Anti_DeDe();//检测DEDE反编译器,只对2.5版本以后的起作用. <br /> var <br /> DeDeHandle:THandle; <br /> i:integer; <br /> begin <br /> DeDeHandle:=FindWindow(nil,chr($64)+chr($65)+chr($64)+chr($65)); <br /> if DeDeHandle<>0 then <br /> begin <br /> For i:=1 to 4500 do <br /> SendMessage(DeDeHandle,WM_CLOSE,0,0); <br /> end; <br /> end; <br /> Loading... Procedure Anti_DeDe();//检测DEDE反编译器,只对2.5版本以后的起作用. <br /> var <br /> DeDeHandle:THandle; <br /> i:integer; <br /> begin <br /> DeDeHandle:=FindWindow(nil,chr($64)+chr($65)+chr($64)+chr($65)); <br /> if DeDeHandle<>0 then <br /> begin <br /> For i:=1 to 4500 do <br /> SendMessage(DeDeHandle,WM_CLOSE,0,0); <br /> end; <br /> end; <br /> 最后修改:2009 年 08 月 16 日 © 允许规范转载 打赏 赞赏作者 支付宝微信 赞 支持就是力量