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 /> 相关文章 无相关文章 Last modification:August 16th, 2009 at 12:30 pm © 允许规范转载 Support 如果觉得我的文章对你有用,请随意赞赏 ×Close Appreciate the author Sweeping payments Pay by AliPay Pay by WeChat