📄 generalconfig.pas
字号:
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: '错误信息'
|
004823EC B9FC274800 mov ecx, $004827FC
* Possible String Reference to: 'IdDir目录设置错误！'
|
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: '错误信息'
|
00482435 B9FC274800 mov ecx, $004827FC
* Possible String Reference to: 'WebLogDir目录设置错误！'
|
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: '错误信息'
|
0048247E B9FC274800 mov ecx, $004827FC
* Possible String Reference to: 'CountLogDir目录设置错误！'
|
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;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -