hidemain.~pas

Anti-DeDe... .....Anti-DeDe示例 ├──Find...............查找进程和窗口 └──Hide...............隐藏事件

//****************************************
//采用动态生成事件的方法来防止被DeDe反编译
//****************************************
unit HideMain;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    StatusBar1: TStatusBar;
  private
    procedure HideFormCreate;
    procedure HideCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure HideButton1Click(Sender: TObject);
    procedure HideButton2Click(Sender: TObject);
  public
    constructor Create(AOwner: TComponent); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor TForm1.Create(AOwner: TComponent);
begin 
  inherited Create(AOwner);
  HideFormCreate;
end;

procedure TForm1.HideFormCreate;
begin       
  OnCloseQuery:=HideCloseQuery;
  Button1.OnClick:=HideButton1Click;
  Button2.OnClick:=HideButton2Click;
end;

procedure TForm1.HideButton1Click(Sender: TObject);
begin
  MessageBox(Handle,'注册失败!','提示',MB_OK);
end;

procedure TForm1.HideButton2Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.HideCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if (MessageBox(Handle,'退出吗？','提示',MB_YESNO))=ID_YES then
    CanClose:=True
  else
    CanClose:=False;
end;

end.