generalconfig.pas

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

unit GeneralConfig;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmGeneralConfig=class(TForm)
    Label26: TLabel;
    PageControl: TPageControl;
    NetWorkSheet: TTabSheet;
    GroupBoxNet: TGroupBox;
    LabelGateIPaddr: TLabel;
    LabelGatePort: TLabel;
    EditGateAddr: TEdit;
    EditGatePort: TEdit;
    ButtonNetWorkSave: TButton;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    EditDBPort: TEdit;
    EditDBAddr: TEdit;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    EditIDSPort: TEdit;
    EditIDSAddr: TEdit;
    GroupBox3: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    EditLogServerPort: TEdit;
    EditLogServerAddr: TEdit;
    GroupBox4: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    EditMsgSrvPort: TEdit;
    EditMsgSrvAddr: TEdit;
    ServerInfoSheet: TTabSheet;
    GroupBoxInfo: TGroupBox;
    Label1: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    EditGameName: TEdit;
    EditServerIndex: TEdit;
    EditServerNumber: TEdit;
    CheckBoxServiceMode: TCheckBox;
    GroupBox5: TGroupBox;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    EditTestLevel: TEdit;
    EditTestGold: TEdit;
    EditTestUserLimit: TEdit;
    CheckBoxTestServer: TCheckBox;
    ButtonServerInfoSave: TButton;
    GroupBox6: TGroupBox;
    Label15: TLabel;
    EditUserFull: TEdit;
    GroupBox7: TGroupBox;
    Label16: TLabel;
    EditDBName: TEdit;
    ShareSheet: TTabSheet;
    Label17: TLabel;
    Label18: TLabel;
    Label24: TLabel;
    Label23: TLabel;
    Label22: TLabel;
    Label21: TLabel;
    Label20: TLabel;
    Label19: TLabel;
    Label25: TLabel;
    EditGuildDir: TEdit;
    EditGuildFile: TEdit;
    EditConLogDir: TEdit;
    EditCastleDir: TEdit;
    EditEnvirDir: TEdit;
    EditMapDir: TEdit;
    EditNoticeDir: TEdit;
    EditPlugDir: TEdit;
    EditVentureDir: TEdit;
    ButtonShareDirSave: TButton;
    TabSheet1: TTabSheet;
    GroupBox8: TGroupBox;
    ColorBoxHint: TColorBox;
    ButtonHintSave: TButton;
    GroupBox9: TGroupBox;
    ColorBoxMemoLogFontColor: TColorBox;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    ColorBoxMemoLogColor: TColorBox;
    procedure ButtonNetWorkSaveClick(Sender : TObject);
    procedure EditValueChange(Sender : TObject);
    procedure PageControlChanging(Sender : TObject);
    procedure CheckBoxTestServerClick(Sender : TObject);
    procedure ButtonServerInfoSaveClick(Sender : TObject);
    procedure ButtonShareDirSaveClick(Sender : TObject);
    procedure ColorBoxHintChange(Sender : TObject);
    procedure ButtonHintSaveClick(Sender : TObject);
    procedure _PROC_0051C270(Sender : TObject);
    procedure _PROC_0051C91C(Sender : TObject);
    procedure _PROC_0051CAF1(Sender : TObject);
    procedure _PROC_0051CF84(Sender : TObject);
    procedure _PROC_0051CF93(Sender : TObject);
    procedure _PROC_0051D5AB(Sender : TObject);
    procedure _PROC_0051D6F7(Sender : TObject);
    procedure _PROC_0051DE71(Sender : TObject);
    procedure _PROC_0051E0D9(Sender : TObject);
    procedure _PROC_0051E108(Sender : TObject);
    procedure _PROC_0051E110(Sender : TObject);
    procedure _PROC_0051E19A(Sender : TObject);
    procedure _PROC_0051E20E(Sender : TObject);
    procedure _PROC_0051E695(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.ButtonNetWorkSaveClick(Sender : TObject);
begin
(*
0051C2C4   55                     push    ebp
0051C2C5   8BEC                   mov     ebp, esp
0051C2C7   B90D000000             mov     ecx, $0000000D
0051C2CC   6A00                   push    $00
0051C2CE   6A00                   push    $00
0051C2D0   49                     dec     ecx
0051C2D1   75F9                   jnz     0051C2CC
0051C2D3   51                     push    ecx
0051C2D4   53                     push    ebx
0051C2D5   8955D0                 mov     [ebp-$30], edx
0051C2D8   8945FC                 mov     [ebp-$04], eax
0051C2DB   33C0                   xor     eax, eax
0051C2DD   55                     push    ebp

* Possible String Reference to: '閒