generalconfig.pas

大名鼎鼎的BLUE M2源码,非了好大的劲搞来的,修改日期是080514,需要的朋友可以拿去研究,呵呵,M2界的领头老大.

unit GeneralConfig;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmGeneralConfig=class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBoxNet: TGroupBox;
    LabelGateIPaddr: TLabel;
    LabelGatePort: TLabel;
    LabelServerPort: TLabel;
    LabelServerIPaddr: TLabel;
    EditGateIPaddr: TEdit;
    EditGatePort: TEdit;
    EditServerPort: TEdit;
    EditServerIPaddr: TEdit;
    GroupBoxInfo: TGroupBox;
    Label1: TLabel;
    LabelShowLogLevel: TLabel;
    EditTitle: TEdit;
    TrackBarLogLevel: TTrackBar;
    ButtonOK: TButton;
    MemoWarningMsg: TMemo;
    EditPassword: TEdit;
    Label2: TLabel;
    CheckBoxSpecLogin: TCheckBox;
    Button1: TButton;
    procedure ButtonOKClick(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure CheckBoxSpecLoginClick(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmGeneralConfig: TfrmGeneralConfig;

{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TfrmGeneralConfig.ButtonOKClick(Sender : TObject);
begin
(*
0046B690   55                     push    ebp
0046B691   8BEC                   mov     ebp, esp
0046B693   B905000000             mov     ecx, $00000005
0046B698   6A00                   push    $00
0046B69A   6A00                   push    $00
0046B69C   49                     dec     ecx
0046B69D   75F9                   jnz     0046B698
0046B69F   51                     push    ecx
0046B6A0   53                     push    ebx
0046B6A1   56                     push    esi
0046B6A2   57                     push    edi
0046B6A3   8BD8                   mov     ebx, eax
0046B6A5   33C0                   xor     eax, eax
0046B6A7   55                     push    ebp

* Possible String Reference to: '閯圌