Delphi主窗口里按纽开启另一个窗口(做注册的童鞋可以看看)

Delphi里的源代码文件为:

dpr 为工程文件

dfm 为窗体文件

pas 为单元文件

res 资源文件

cfg 配置文件 　＊可删除

dof 为项目选项文件(一般没用)＊可删除

ddp 文件就是Delphi   Diagram   Portfolio简写,是用来保存Code   Editor中的Diagram信息的 (编译后产生)＊可删除

duc 文件,编译后的单元文件(编译后产生)＊可删除

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－下面是正题了

１．首先先打开delphi　新建2个窗口

２．project->view source 打开源代码

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);

 Application.CreateForm(TForm2, Form2); （重要　删除窗口２的创建代码　不删除　表示程序启动就创建了　只是没有显示　破解者注入程序　用show函数就显示了)
  Application.Run;
end.

 

３下面就是代码了：main主窗口单元代码

unit main;

interface

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

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var  nform:TForm2;
begin
       nform:= TForm2.create(Application);
       nform.show;
end;

end.

unti2　载入的窗口单元代码

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses main;
           function closeProcess(x, y: Integer): Integer;
           stdcall; external 'kernel32.dll' name 'TerminateProcess';


{$R *.dfm}


procedure TForm2.FormActivate(Sender: TObject);
begin

        Form1.Destroy;
end;




procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
       closeProcess(-1,0);
end;

end.

project 源代码

program Project1;

uses
  Forms,
  main in 'main.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.