Delphi中反Dede查看事件及地址

说明:Dede是一个Delphi程序的的反编译器 最重要的是可以查看Delphi程序的组件事件及地址,这一点对于写商业软件的作者很不利,以下方法让DEDE无法查看组件事件

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,AsmMain, StdCtrls,Unit2;

type
  TForm1 = class(TForm)
    btn1: TButton;
  private  //私有
    procedure Hideformcreate();
    procedure hideonclick(Sender: TObject);
  public   //公有
    constructor Create(AOwner: TComponent);override; //constructor构造
    //Overload是重载，是有相同的方法名，但参数类型或个数彼此不同
    //Override是重写，是在子类与父类中，子类中的方法的方法名，参数个数、类型都与父类中的完全一样，在子类中覆盖掉了父类的改方法
  end;
var
  Form1: TForm1;
implementation

{$R *.dfm}
procedure TForm1.hideonclick(Sender: TObject);
var j_i:LongWord;
    j_x1,j_x2:string;
begin
   Movdeuggm();
   ShowMessage(StrToMD5('1'));
   ShowMessage(IntToStr(GetIDEHDiskCode()));

   j_x1:=StrToMD5(IntToStr((GetIDEHDiskCode())));
   j_i:=$FFF and GetCPUID();
   j_x2:=IntTohex(j_i,3);

   ShowMessage(j_x1+j_x2);
end;

constructor TForm1.Create(AOwner: TComponent);
begin
    inherited Create(AOwner);//inherited 继承
    //以本方法名在父类中调用，没有明确指定参数，但把当前使用的参数传给继承下来的方法
    Hideformcreate;
end;

procedure Tform1.Hideformcreate;
begin
       btn1.OnClick:= hideonclick;
end;

end.