📄 hqsting.pas
字号:
unit hqSting;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmHqSetting=class(TForm)
ListBox1: TListBox;
Label1: TLabel;
ListBox2: TListBox;
ListBox3: TListBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Label2: TLabel;
Label3: TLabel;
Button6: TButton;
Button7: TButton;
Button8: TButton;
procedure Button5Click(Sender : TObject);
procedure ListBox2Click(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure Button3Click(Sender : TObject);
procedure Button4Click(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure Button7Click(Sender : TObject);
procedure Button6Click(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure Button8Click(Sender : TObject);
procedure _PROC_00634D08(Sender : TObject);
procedure _PROC_00634D58(Sender : TObject);
procedure _PROC_00634F50(Sender : TObject);
procedure _PROC_0063549C(Sender : TObject);
procedure _PROC_006355C9(Sender : TObject);
procedure _PROC_00635880(Sender : TObject);
procedure _PROC_006358B0(Sender : TObject);
procedure Proc_006355C8(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmHqSetting: TfrmHqSetting;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmHqSetting.Button5Click(Sender : TObject);
begin
(*
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
00634D00 E8B713E2FF call 004560BC
00634D05 C3 ret
*)
end;
procedure TfrmHqSetting.ListBox2Click(Sender : TObject);
begin
(*
00634DA8 53 push ebx
00634DA9 56 push esi
00634DAA 57 push edi
00634DAB 83C4EC add esp, -$14
00634DAE 8BF0 mov esi, eax
00634DB0 8BC6 mov eax, esi
* Reference to : TfrmHqSetting._PROC_00634D08()
|
00634DB2 E851FFFFFF call 00634D08
* Reference to control TfrmHqSetting.ListBox2 : TListBox
|
00634DB7 8B86DC020000 mov eax, [esi+$02DC]
* Reference to: stdctrls.TCustomListBox.GetItemIndex(TCustomListBox):Integer;
|
00634DBD E8AADEDFFF call 00432C6C
00634DC2 83F804 cmp eax, +$04
00634DC5 0F8770010000 jnbe 00634F3B
00634DCB FF2485D24D6300 jmp dword ptr [$634DD2+eax*4]
00634DD2 E64D out $4D, al
00634DD4 6300 arpl [eax], ax
00634DD6 2C4E sub al, $4E
00634DD8 6300 arpl [eax], ax
00634DDA 724E jb 00634E2A
00634DDC 6300 arpl [eax], ax
00634DDE B84E6300FB mov eax, $FB00634E
00634DE3 4E dec esi
00634DE4 6300 arpl [eax], ax
00634DE6 B303 mov bl, $03
00634DE8 A100D57700 mov eax, dword ptr [$0077D500]
00634DED 83C00C add eax, +$0C
00634DF0 89442404 mov [esp+$04], eax
00634DF4 B80C000000 mov eax, $0000000C
* Reference to: Unit_00409434.Proc_00409FF8
|
00634DF9 E8FA51DDFF call 00409FF8
00634DFE C60000 mov byte ptr [eax], $00
00634E01 885801 mov [eax+$01], bl
00634E04 8B542404 mov edx, [esp+$04]
00634E08 8B12 mov edx, [edx]
* Reference to control FindFile : N.A.
|
00634E0A 8B8ED0020000 mov ecx, [esi+$02D0]
00634E10 8B89F0010000 mov ecx, [ecx+$01F0]
00634E16 91 xchg eax, ecx
00634E17 8B38 mov edi, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00634E19 FF5738 call dword ptr [edi+$38]
00634E1C 43 inc ebx
00634E1D 8344240404 add dword ptr [esp+$04], +$04
00634E22 80FB18 cmp bl, $18
00634E25 75CD jnz 00634DF4
00634E27 E90F010000 jmp 00634F3B
00634E2C B318 mov bl, $18
00634E2E A100D57700 mov eax, dword ptr [$0077D500]
00634E33 83C060 add eax, +$60
00634E36 89442408 mov [esp+$08], eax
00634E3A B80C000000 mov eax, $0000000C
* Reference to: Unit_00409434.Proc_00409FF8
|
00634E3F E8B451DDFF call 00409FF8
00634E44 C60000 mov byte ptr [eax], $00
00634E47 885801 mov [eax+$01], bl
00634E4A 8B542408 mov edx, [esp+$08]
00634E4E 8B12 mov edx, [edx]
* Reference to control FindFile : N.A.
|
00634E50 8B8ED0020000 mov ecx, [esi+$02D0]
00634E56 8B89F0010000 mov ecx, [ecx+$01F0]
00634E5C 91 xchg eax, ecx
00634E5D 8B38 mov edi, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00634E5F FF5738 call dword ptr [edi+$38]
00634E62 43 inc ebx
00634E63 8344240804 add dword ptr [esp+$08], +$04
00634E68 80FB33 cmp bl, $33
00634E6B 75CD jnz 00634E3A
00634E6D E9C9000000 jmp 00634F3B
00634E72 B303 mov bl, $03
00634E74 A150CC7700 mov eax, dword ptr [$0077CC50]
00634E79 83C00C add eax, +$0C
00634E7C 8944240C mov [esp+$0C], eax
00634E80 B80C000000 mov eax, $0000000C
* Reference to: Unit_00409434.Proc_00409FF8
|
00634E85 E86E51DDFF call 00409FF8
00634E8A C60001 mov byte ptr [eax], $01
00634E8D 885801 mov [eax+$01], bl
00634E90 8B54240C mov edx, [esp+$0C]
00634E94 8B12 mov edx, [edx]
* Reference to control FindFile : N.A.
|
00634E96 8B8ED0020000 mov ecx, [esi+$02D0]
00634E9C 8B89F0010000 mov ecx, [ecx+$01F0]
00634EA2 91 xchg eax, ecx
00634EA3 8B38 mov edi, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00634EA5 FF5738 call dword ptr [edi+$38]
00634EA8 43 inc ebx
00634EA9 8344240C04 add dword ptr [esp+$0C], +$04
00634EAE 80FB0A cmp bl, $0A
00634EB1 75CD jnz 00634E80
00634EB3 E983000000 jmp 00634F3B
00634EB8 B30A mov bl, $0A
00634EBA A150CC7700 mov eax, dword ptr [$0077CC50]
00634EBF 83C028 add eax, +$28
00634EC2 89442410 mov [esp+$10], eax
00634EC6 B80C000000 mov eax, $0000000C
* Reference to: Unit_00409434.Proc_00409FF8
|
00634ECB E82851DDFF call 00409FF8
00634ED0 C60001 mov byte ptr [eax], $01
00634ED3 885801 mov [eax+$01], bl
00634ED6 8B542410 mov edx, [esp+$10]
00634EDA 8B12 mov edx, [edx]
* Reference to control FindFile : N.A.
|
00634EDC 8B8ED0020000 mov ecx, [esi+$02D0]
00634EE2 8B89F0010000 mov ecx, [ecx+$01F0]
00634EE8 91 xchg eax, ecx
00634EE9 8B38 mov edi, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00634EEB FF5738 call dword ptr [edi+$38]
00634EEE 43 inc ebx
00634EEF 8344241004 add dword ptr [esp+$10], +$04
00634EF4 80FB1B cmp bl, $1B
00634EF7 75CD jnz 00634EC6
00634EF9 EB40 jmp 00634F3B
00634EFB C604241A mov byte ptr [esp], $1A
00634EFF 8B1D44CA7700 mov ebx, [$0077CA44]
00634F05 83C368 add ebx, +$68
00634F08 B80C000000 mov eax, $0000000C
* Reference to: Unit_00409434.Proc_00409FF8
|
00634F0D E8E650DDFF call 00409FF8
00634F12 C60002 mov byte ptr [eax], $02
00634F15 8A1424 mov dl, byte ptr [esp]
00634F18 885001 mov [eax+$01], dl
00634F1B 8B13 mov edx, [ebx]
* Reference to control FindFile : N.A.
|
00634F1D 8B8ED0020000 mov ecx, [esi+$02D0]
00634F23 8B89F0010000 mov ecx, [ecx+$01F0]
00634F29 91 xchg eax, ecx
00634F2A 8B38 mov edi, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00634F2C FF5738 call dword ptr [edi+$38]
00634F2F FE0424 inc byte ptr [esp]
00634F32 83C304 add ebx, +$04
00634F35 803C2425 cmp byte ptr [esp], $25
00634F39 75CD jnz 00634F08
00634F3B 33D2 xor edx, edx
* Reference to control FindFile : N.A.
|
00634F3D 8B86D0020000 mov eax, [esi+$02D0]
* Reference to: stdctrls.TCustomListBox.SetItemIndex(TCustomListBox;Integer);
|
00634F43 E860DDDFFF call 00432CA8
00634F48 83C414 add esp, +$14
00634F4B 5F pop edi
00634F4C 5E pop esi
00634F4D 5B pop ebx
00634F4E C3 ret
*)
end;
procedure TfrmHqSetting.Button1Click(Sender : TObject);
begin
(*
00635054 55 push ebp
00635055 8BEC mov ebp, esp
00635057 83C4F8 add esp, -$08
0063505A 53 push ebx
0063505B 56 push esi
0063505C 57 push edi
0063505D 33C9 xor ecx, ecx
0063505F 894DF8 mov [ebp-$08], ecx
00635062 8BD8 mov ebx, eax
00635064 33C0 xor eax, eax
00635066 55 push ebp
* Possible String Reference to: '镕檐⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -