?? prefconfig.pas
字號:
unit PrefConfig;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmPrefConfig=class(TForm)
GroupBoxServer: TGroupBox;
EditServerCheckTimeOut: TSpinEdit;
LabelCheckTimeOut: TLabel;
Label1: TLabel;
GroupBox1: TGroupBox;
LabelSendBlockSize: TLabel;
Label3: TLabel;
EditSendBlockSize: TSpinEdit;
ButtonOK: TButton;
procedure EditServerCheckTimeOutChange(Sender : TObject);
procedure EditSendBlockSizeChange(Sender : TObject);
procedure ButtonOKClick(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmPrefConfig: TfrmPrefConfig;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmPrefConfig.EditServerCheckTimeOutChange(Sender : TObject);
begin
(*
00487B58 53 push ebx
00487B59 8BD8 mov ebx, eax
00487B5B 80BB1C03000000 cmp byte ptr [ebx+$031C], $00
00487B62 741A jz 00487B7E
00487B64 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to : TTimerSpeedButton._PROC_0048551C()
|
00487B6A E8ADD9FFFF call 0048551C
00487B6F 69C0E8030000 imul eax, eax, $000003E8
00487B75 8B1554314C00 mov edx, [$004C3154]
00487B7B 89423E mov [edx+$3E], eax
00487B7E 5B pop ebx
00487B7F C3 ret
*)
end;
procedure TfrmPrefConfig.EditSendBlockSizeChange(Sender : TObject);
begin
(*
00487B80 53 push ebx
00487B81 8BD8 mov ebx, eax
00487B83 80BB1C03000000 cmp byte ptr [ebx+$031C], $00
00487B8A 7417 jz 00487BA3
00487B8C 8B8314030000 mov eax, [ebx+$0314]
* Reference to : TTimerSpeedButton._PROC_0048551C()
|
00487B92 E885D9FFFF call 0048551C
00487B97 8B1554314C00 mov edx, [$004C3154]
00487B9D 8982FA0D0300 mov [edx+$30DFA], eax
00487BA3 5B pop ebx
00487BA4 C3 ret
*)
end;
procedure TfrmPrefConfig.ButtonOKClick(Sender : TObject);
begin
(*
00487BA8 53 push ebx
00487BA9 56 push esi
00487BAA 57 push edi
00487BAB 8BD8 mov ebx, eax
00487BAD 8B3554314C00 mov esi, [$004C3154]
00487BB3 8B463E mov eax, [esi+$3E]
00487BB6 50 push eax
00487BB7 8B5618 mov edx, [esi+$18]
00487BBA 8B86020E0300 mov eax, [esi+$30E02]
* Possible String Reference to: 'ServerCheckTimeOut'
|
00487BC0 B9F87B4800 mov ecx, $00487BF8
00487BC5 8B38 mov edi, [eax]
00487BC7 FF570C call dword ptr [edi+$0C]
00487BCA 8B86FA0D0300 mov eax, [esi+$30DFA]
00487BD0 50 push eax
00487BD1 8B5618 mov edx, [esi+$18]
00487BD4 8B86020E0300 mov eax, [esi+$30E02]
* Possible String Reference to: 'ClientSendBlockSize'
|
00487BDA B9147C4800 mov ecx, $00487C14
00487BDF 8B30 mov esi, [eax]
00487BE1 FF560C call dword ptr [esi+$0C]
00487BE4 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00487BE6 E821BFFDFF call 00463B0C
00487BEB 5F pop edi
00487BEC 5E pop esi
00487BED 5B pop ebx
00487BEE C3 ret
*)
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -