unitregistersoft.pas

继续更新AFT源代码 现在解决了无法登陆游戏的问题 用0504的dbserver就可以登陆了 去掉了绿字广告 降低内存占用HOO 去掉了大量的验证问题

unit UnitRegisterSoft;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons,IniFiles,registry, jpeg;

type
  TFrmRegister = class(TForm)
    Panel1: TPanel;
    procedure BtESCClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmRegister: TFrmRegister;

implementation
uses ShareUnit,Grobal2;
{$R *.dfm}

procedure TFrmRegister.BtESCClick(Sender: TObject);
begin
 //  Application.Terminate;
   close;
end;

procedure TFrmRegister.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   Action := caFree;
 // Application.Terminate;
end;

end.