unit GeneralConfig;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmGeneralConfig=class(TForm)
    ButtonOK: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBoxNet: TGroupBox;
    LabelGateIPaddr: TLabel;
    LabelGatePort: TLabel;
    EditGateIPaddr: TEdit;
    EditGatePort: TEdit;
    TabSheet2: TTabSheet;
    GroupBoxInfo: TGroupBox;
    TabSheet3: TTabSheet;
    GroupBox1: TGroupBox;
    LabelServerIPaddr: TLabel;
    EditServerIPaddr: TEdit;
    EditServerPort: TEdit;
    LabelServerPort: TLabel;
    ButtonNetDefault: TButton;
    ButtonSave: TButton;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    EditMonAddr: TEdit;
    EditMonPort: TEdit;
    GroupBox3: TGroupBox;
    CheckBoxDynamicIPMode: TCheckBox;
    CheckBoxTestServer: TCheckBox;
    CheckBoxEnableMakingID: TCheckBox;
    CheckBoxEnableGetbackPassword: TCheckBox;
    GroupBox4: TGroupBox;
    CheckBoxEditAutoClear: TCheckBox;
    EditAutoClearTime: TSpinEdit;
    Label12: TLabel;
    Label3: TLabel;
    ButtonGeneralDefault: TButton;
    EditIdDir: TEdit;
    Label4: TLabel;
    EditWebLogDir: TEdit;
    Label5: TLabel;
    EditCountLogDir: TEdit;
    Label8: TLabel;
    EditChrLogDir: TEdit;
    Label9: TLabel;
    CheckBoxAllowChangePassword: TCheckBox;
    Button1: TButton;
    TabSheet4: TTabSheet;
    GroupBox5: TGroupBox;
    SpinEditGetBackPassWordTick: TSpinEdit;
    SpinEditUpdateAccountTick: TSpinEdit;
    SpinEditChangePasswordTick: TSpinEdit;
    SpinEditAddNewUserTick: TSpinEdit;
    Label6: TLabel;
    Label7: TLabel;
    Label11: TLabel;
    Label10: TLabel;
    Label13: TLabel;
    SpinEditnLockIdTick: TSpinEdit;
    procedure ButtonOKClick(Sender : TObject);
    procedure ButtonNetDefaultClick(Sender : TObject);
    procedure EditGateIPaddrChange(Sender : TObject);
    procedure CheckBoxEnableMakingIDClick(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure FormCreate(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
(*
0048233C   55                     push    ebp
0048233D   8BEC                   mov     ebp, esp
0048233F   B927000000             mov     ecx, $00000027
00482344   6A00                   push    $00
00482346   6A00                   push    $00
00482348   49                     dec     ecx
00482349   75F9                   jnz     00482344
0048234B   51                     push    ecx
0048234C   53                     push    ebx
0048234D   56                     push    esi
0048234E   8BD8                   mov     ebx, eax
00482350   8D75FC                 lea     esi, [ebp-$04]
00482353   33C0                   xor     eax, eax
00482355   55                     push    ebp
00482356   68EF274800             push    $004827EF

***** TRY
|
0048235B   64FF30                 push    dword ptr fs:[eax]
0048235E   648920                 mov     fs:[eax], esp
00482361   A1800F4900             mov     eax, dword ptr [$00490F80]
00482366   8906                   mov     [esi], eax
00482368   8D55E8                 lea     edx, [ebp-$18]
0048236B   8B8380030000           mov     eax, [ebx+$0380]

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00482371   E8F275FCFF             call    00449968
00482376   8B45E8                 mov     eax, [ebp-$18]
00482379   8D55F8                 lea     edx, [ebp-$08]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0048237C   E88B84F8FF             call    0040A80C
00482381   8D55E4                 lea     edx, [ebp-$1C]
00482384   8B8388030000           mov     eax, [ebx+$0388]

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
0048238A   E8D975FCFF             call    00449968
0048238F   8B45E4                 mov     eax, [ebp-$1C]
00482392   8D55F4                 lea     edx, [ebp-$0C]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00482395   E87284F8FF             call    0040A80C
0048239A   8D55E0                 lea     edx, [ebp-$20]
0048239D   8B8390030000           mov     eax, [ebx+$0390]

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004823A3   E8C075FCFF             call    00449968
004823A8   8B45E0                 mov     eax, [ebp-$20]
004823AB   8D55F0                 lea     edx, [ebp-$10]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
004823AE   E85984F8FF             call    0040A80C
004823B3   8D55DC                 lea     edx, [ebp-$24]
004823B6   8B8398030000           mov     eax, [ebx+$0398]

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004823BC   E8A775FCFF             call    00449968
004823C1   8B45DC                 mov     eax, [ebp-$24]
004823C4   8D55EC                 lea     edx, [ebp-$14]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
004823C7   E84084F8FF             call    0040A80C
004823CC   8B45F8                 mov     eax, [ebp-$08]

* Reference to: SysUtils.DirectoryExists(AnsiString):Boolean;
|
004823CF   E8E48BF8FF             call    0040AFB8
004823D4   84C0                   test    al, al
004823D6   7412                   jz      004823EA
004823D8   8B45F8                 mov     eax, [ebp-$08]

* Reference to: System.@LStrLen(String):Integer;
|           or: System.@DynArrayLength;
|           or: System.DynArraySize(Pointer):Integer;
|           or: Variants.DynArraySize(Pointer):Integer;
|
004823DB   E8482CF8FF             call    00405028
004823E0   8B55F8                 mov     edx, [ebp-$08]
004823E3   807C02FF5C             cmp     byte ptr [edx+eax-$01], $5C
004823E8   742B                   jz      00482415
004823EA   6A10                   push    $10

* Possible String Reference to: '錯(cuò)誤信息'
|
004823EC   B9FC274800             mov     ecx, $004827FC

* Possible String Reference to: 'IdDir目錄設(shè)置錯(cuò)誤！'
|
004823F1   BA08284800             mov     edx, $00482808
004823F6   A1F00E4900             mov     eax, dword ptr [$00490EF0]
004823FB   8B00                   mov     eax, [eax]

* Reference to: Forms.TApplication.MessageBox(TApplication;PChar;PChar;Longint):Integer;
|
004823FD   E84674FEFF             call    00469848
00482402   8B8380030000           mov     eax, [ebx+$0380]
00482408   8B10                   mov     edx, [eax]
0048240A   FF92C4000000           call    dword ptr [edx+$00C4]
00482410   E9A2030000             jmp     004827B7
00482415   8B45F4                 mov     eax, [ebp-$0C]

* Reference to: SysUtils.DirectoryExists(AnsiString):Boolean;
|
00482418   E89B8BF8FF             call    0040AFB8
0048241D   84C0                   test    al, al
0048241F   7412                   jz      00482433
00482421   8B45F4                 mov     eax, [ebp-$0C]

* Reference to: System.@LStrLen(String):Integer;
|           or: System.@DynArrayLength;
|           or: System.DynArraySize(Pointer):Integer;
|           or: Variants.DynArraySize(Pointer):Integer;
|
00482424   E8FF2BF8FF             call    00405028
00482429   8B55F4                 mov     edx, [ebp-$0C]
0048242C   807C02FF5C             cmp     byte ptr [edx+eax-$01], $5C
00482431   742B                   jz      0048245E
00482433   6A10                   push    $10

* Possible String Reference to: '錯(cuò)誤信息'
|
00482435   B9FC274800             mov     ecx, $004827FC

* Possible String Reference to: 'WebLogDir目錄設(shè)置錯(cuò)誤！'
|
0048243A   BA1C284800             mov     edx, $0048281C
0048243F   A1F00E4900             mov     eax, dword ptr [$00490EF0]
00482444   8B00                   mov     eax, [eax]

* Reference to: Forms.TApplication.MessageBox(TApplication;PChar;PChar;Longint):Integer;
|
00482446   E8FD73FEFF             call    00469848
0048244B   8B8388030000           mov     eax, [ebx+$0388]
00482451   8B10                   mov     edx, [eax]
00482453   FF92C4000000           call    dword ptr [edx+$00C4]
00482459   E959030000             jmp     004827B7
0048245E   8B45F0                 mov     eax, [ebp-$10]

* Reference to: SysUtils.DirectoryExists(AnsiString):Boolean;
|
00482461   E8528BF8FF             call    0040AFB8
00482466   84C0                   test    al, al
00482468   7412                   jz      0048247C
0048246A   8B45F0                 mov     eax, [ebp-$10]

* Reference to: System.@LStrLen(String):Integer;
|           or: System.@DynArrayLength;
|           or: System.DynArraySize(Pointer):Integer;
|           or: Variants.DynArraySize(Pointer):Integer;
|
0048246D   E8B62BF8FF             call    00405028
00482472   8B55F0                 mov     edx, [ebp-$10]
00482475   807C02FF5C             cmp     byte ptr [edx+eax-$01], $5C
0048247A   742B                   jz      004824A7
0048247C   6A10                   push    $10

* Possible String Reference to: '錯(cuò)誤信息'
|
0048247E   B9FC274800             mov     ecx, $004827FC

* Possible String Reference to: 'CountLogDir目錄設(shè)置錯(cuò)誤！'
|
00482483   BA34284800             mov     edx, $00482834
00482488   A1F00E4900             mov     eax, dword ptr [$00490EF0]
0048248D   8B00                   mov     eax, [eax]

* Reference to: Forms.TApplication.MessageBox(TApplication;PChar;PChar;Longint):Integer;
|
0048248F   E8B473FEFF             call    00469848
00482494   8B8390030000           mov     eax, [ebx+$0390]
0048249A   8B10                   mov     edx, [eax]
0048249C   FF92C4000000           call    dword ptr [edx+$00C4]
004824A2   E910030000             jmp     004827B7
004824A7   8B45EC                 mov     eax, [ebp-$14]

* Reference to: SysUtils.DirectoryExists(AnsiString):Boolean;
|
004824AA   E8098BF8FF             call    0040AFB8
004824AF   84C0                   test    al, al
004824B1   7412                   jz      004824C5
004824B3   8B45EC                 mov     eax, [ebp-$14]

* Reference to: System.@LStrLen(String):Integer;