generalconfig.pas

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

unit GeneralConfig;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmGeneralConfig=class(TForm)
    GroupBoxNet: TGroupBox;
    LabelGateIPaddr: TLabel;
    EditGateIPaddr: TEdit;
    EditGatePort: TEdit;
    LabelGatePort: TLabel;
    EditServerPort: TEdit;
    LabelServerPort: TLabel;
    LabelServerIPaddr: TLabel;
    EditServerIPaddr: TEdit;
    GroupBoxInfo: TGroupBox;
    Label1: TLabel;
    EditTitle: TEdit;
    TrackBarLogLevel: TTrackBar;
    LabelShowLogLevel: TLabel;
    ButtonOK: TButton;
    procedure ButtonOKClick(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
(*
00467BCC   55                     push    ebp
00467BCD   8BEC                   mov     ebp, esp
00467BCF   B905000000             mov     ecx, $00000005
00467BD4   6A00                   push    $00
00467BD6   6A00                   push    $00
00467BD8   49                     dec     ecx
00467BD9   75F9                   jnz     00467BD4
00467BDB   51                     push    ecx
00467BDC   53                     push    ebx
00467BDD   56                     push    esi
00467BDE   57                     push    edi
00467BDF   8BD8                   mov     ebx, eax
00467BE1   33C0                   xor     eax, eax
00467BE3   55                     push    ebp

* Possible String Reference to: '閳蛮