Procedure &nbsp; Anti_DeDe();//检测DEDE反编译器,只对2.5版本以后的起作用. &nbsp; <br />&nbsp; var &nbsp; <br />&nbsp; &nbsp; &nbsp; DeDeHandle:THandle; &nbsp; <br />&nbsp; &nbsp; &nbsp; i:integer; &nbsp; <br />&nbsp; begin &nbsp; <br />&nbsp; &nbsp; &nbsp; DeDeHandle:=FindWindow(nil,chr($64)+chr($65)+chr($64)+chr($65)); &nbsp; <br />&nbsp; &nbsp; &nbsp; if &nbsp; DeDeHandle&lt;&gt;0 &nbsp; then &nbsp; <br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; begin &nbsp; <br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For &nbsp; i:=1 &nbsp; to &nbsp; 4500 &nbsp; do &nbsp; <br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; SendMessage(DeDeHandle,WM_CLOSE,0,0); &nbsp; <br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end; &nbsp; <br />&nbsp; end;&nbsp;&nbsp; <br />