Procedure Anti_DeDe();//检测DEDE反编译器,只对2.5版本以后的起作用.
var
DeDeHandle:THandle;
i:integer;
begin
DeDeHandle:=FindWindow(nil,chr($64)+chr($65)+chr($64)+chr($65));
if DeDeHandle<>0 then
begin
For i:=1 to 4500 do
SendMessage(DeDeHandle,WM_CLOSE,0,0);
end;
end;
Last modification:August 16th, 2009 at 12:30 pm
© 允许规范转载