📄 main.pas
字号:
procedure mnuMainClick(Sender : TObject);
procedure mnuZBEditClick(Sender : TObject);
procedure N44Click(Sender : TObject);
procedure N1Click(Sender : TObject);
procedure mnuTagClick(Sender : TObject);
procedure mnuBtnJBFXClick(Sender : TObject);
procedure mnuHqBtnClick(Sender : TObject);
procedure mnuBZPopClick(Sender : TObject);
procedure NKEY3Click(Sender : TObject);
procedure NKEY2Click(Sender : TObject);
procedure NKEY1Click(Sender : TObject);
procedure KeyboardHook1HookProc(Sender : TObject);
procedure mToolbar971VisibleChanged(Sender : TObject);
procedure mnuJBF(Sender : TObject);
procedure N71AdvancedDrawItem(Sender : TObject);
procedure N71MeasureItem(Sender : TObject);
procedure N211AdvancedDrawItem(Sender : TObject);
procedure mDPZSClick(Sender : TObject);
procedure N148Click(Sender : TObject);
procedure N34Click(Sender : TObject);
procedure N153Click(Sender : TObject);
procedure N156Click(Sender : TObject);
procedure N157Click(Sender : TObject);
procedure N161Click(Sender : TObject);
procedure F101Click(Sender : TObject);
procedure mnuJBFXPopClick(Sender : TObject);
procedure N135Click(Sender : TObject);
procedure N150Click(Sender : TObject);
procedure mnuGJPopClick(Sender : TObject);
procedure N169Click(Sender : TObject);
procedure mnuMainCord(Sender : TObject);
procedure N15Click(Sender : TObject);
procedure N3Click(Sender : TObject);
procedure mnuQGQWClick(Sender : TObject);
procedure MouseHook1HookProc(Sender : TObject);
procedure FormResize(Sender : TObject);
procedure N98Click(Sender : TObject);
procedure N144Click(Sender : TObject);
procedure mnuLessonClick(Sender : TObject);
procedure RxTrayIcon1Click(Sender : TObject);
procedure N174Click(Sender : TObject);
procedure N175Click(Sender : TObject);
procedure N176Click(Sender : TObject);
procedure N178Click(Sender : TObject);
procedure N17Click(Sender : TObject);
procedure mnuJSFXPopClick(Sender : TObject);
procedure mnuIndClick(Sender : TObject);
procedure N140Click(Sender : TObject);
procedure N179Click(Sender : TObject);
procedure N71DrawItem(Sender : TObject);
procedure NKey06MeasureItem(Sender : TObject);
procedure N181Click(Sender : TObject);
procedure N182Click(Sender : TObject);
procedure NZXPTClick(Sender : TObject);
procedure N185Click(Sender : TObject);
procedure N186Click(Sender : TObject);
procedure mChgwinTimerTimer(Sender : TObject);
procedure N197Click(Sender : TObject);
procedure N199Click(Sender : TObject);
procedure N202Click(Sender : TObject);
procedure N203Click(Sender : TObject);
procedure N42Click(Sender : TObject);
procedure mnuUpgradeClick(Sender : TObject);
procedure mPKClick(Sender : TObject);
procedure Timer1Timer(Sender : TObject);
procedure Timer2Timer(Sender : TObject);
procedure mnuBKZSClick(Sender : TObject);
procedure mnuZhongshuClick(Sender : TObject);
procedure N111Click(Sender : TObject);
procedure mnuGaoShouClick(Sender : TObject);
procedure N168Click(Sender : TObject);
procedure N170Click(Sender : TObject);
procedure N188Click(Sender : TObject);
procedure N189Click(Sender : TObject);
procedure N190Click(Sender : TObject);
procedure N180Click(Sender : TObject);
procedure N187Click(Sender : TObject);
procedure N191Click(Sender : TObject);
procedure N193Click(Sender : TObject);
procedure N198Click(Sender : TObject);
procedure N201Click(Sender : TObject);
procedure TimerReConnectTimer(Sender : TObject);
procedure Test1Click(Sender : TObject);
procedure Test21Click(Sender : TObject);
procedure _PROC_006AA259(Sender : TObject);
procedure _PROC_006AA374(Sender : TObject);
procedure _PROC_006AA3E7(Sender : TObject);
procedure _PROC_006AA446(Sender : TObject);
procedure _PROC_006AAE5D(Sender : TObject);
procedure _PROC_006AB070(Sender : TObject);
procedure _PROC_006AB0DA(Sender : TObject);
procedure _PROC_006AB149(Sender : TObject);
procedure _PROC_006AB15C(Sender : TObject);
procedure _PROC_006AB18C(Sender : TObject);
procedure _PROC_006AB1BC(Sender : TObject);
procedure _PROC_006AB1EC(Sender : TObject);
procedure _PROC_006AB21C(Sender : TObject);
procedure _PROC_006AB24C(Sender : TObject);
procedure _PROC_006AB27C(Sender : TObject);
procedure _PROC_006AB2AC(Sender : TObject);
procedure _PROC_006AB2DC(Sender : TObject);
procedure _PROC_006AB30C(Sender : TObject);
procedure _PROC_006AB310(Sender : TObject);
procedure _PROC_006AB6BB(Sender : TObject);
procedure _PROC_006AB73C(Sender : TObject);
procedure _PROC_006AB748(Sender : TObject);
procedure _PROC_006AB92C(Sender : TObject);
procedure _PROC_006AB940(Sender : TObject);
procedure _PROC_006ABDC8(Sender : TObject);
procedure _PROC_006ABF08(Sender : TObject);
procedure _PROC_006AC048(Sender : TObject);
procedure _PROC_006AC841(Sender : TObject);
procedure _PROC_006AC959(Sender : TObject);
procedure _PROC_006AD374(Sender : TObject);
procedure _PROC_006AD6E5(Sender : TObject);
procedure _PROC_006AD7E0(Sender : TObject);
procedure _PROC_006AD948(Sender : TObject);
procedure _PROC_006ADBF0(Sender : TObject);
procedure _PROC_006ADCC4(Sender : TObject);
procedure _PROC_006ADD38(Sender : TObject);
procedure _PROC_006ADEB7(Sender : TObject);
procedure _PROC_006ADEC7(Sender : TObject);
procedure _PROC_006AE6D1(Sender : TObject);
procedure _PROC_006AE718(Sender : TObject);
procedure _PROC_006AE754(Sender : TObject);
procedure _PROC_006AE95C(Sender : TObject);
procedure _PROC_006AE97C(Sender : TObject);
procedure _PROC_006AF422(Sender : TObject);
procedure _PROC_006AF46C(Sender : TObject);
procedure _PROC_006AF6A2(Sender : TObject);
procedure _PROC_006AF8B8(Sender : TObject);
procedure _PROC_006AF8D4(Sender : TObject);
procedure _PROC_006AF938(Sender : TObject);
procedure _PROC_006AF99C(Sender : TObject);
procedure _PROC_006AF9F4(Sender : TObject);
procedure _PROC_006B001C(Sender : TObject);
procedure _PROC_006B016C(Sender : TObject);
procedure _PROC_006B0278(Sender : TObject);
procedure _PROC_006B03B4(Sender : TObject);
procedure _PROC_006B045C(Sender : TObject);
procedure _PROC_006B0474(Sender : TObject);
procedure _PROC_006B04EC(Sender : TObject);
procedure _PROC_006B0641(Sender : TObject);
procedure _PROC_006B089D(Sender : TObject);
procedure _PROC_006B08B4(Sender : TObject);
procedure _PROC_006B0AB5(Sender : TObject);
procedure _PROC_006B0B95(Sender : TObject);
procedure _PROC_006B0C75(Sender : TObject);
procedure _PROC_006B0DD5(Sender : TObject);
procedure _PROC_006B0F8D(Sender : TObject);
procedure _PROC_006B1183(Sender : TObject);
procedure _PROC_006B11AC(Sender : TObject);
procedure _PROC_006B11EC(Sender : TObject);
procedure _PROC_006B1270(Sender : TObject);
procedure _PROC_006B1364(Sender : TObject);
procedure _PROC_006B16B4(Sender : TObject);
procedure _PROC_006B16E1(Sender : TObject);
procedure _PROC_006B1740(Sender : TObject);
procedure _PROC_006B18C9(Sender : TObject);
procedure _PROC_006B1A8C(Sender : TObject);
procedure _PROC_006B1AA8(Sender : TObject);
procedure _PROC_006B1BC0(Sender : TObject);
procedure _PROC_006B1BF8(Sender : TObject);
procedure _PROC_006B1C2C(Sender : TObject);
procedure _PROC_006B1C83(Sender : TObject);
procedure _PROC_006B1C90(Sender : TObject);
procedure _PROC_006B1CA1(Sender : TObject);
procedure _PROC_006B1CAA(Sender : TObject);
procedure _PROC_006B1CB7(Sender : TObject);
procedure _PROC_006B1D40(Sender : TObject);
procedure _PROC_006B1DE1(Sender : TObject);
procedure _PROC_006B1E38(Sender : TObject);
procedure _PROC_006B1E98(Sender : TObject);
procedure _PROC_006B1F50(Sender : TObject);
procedure _PROC_006B1F68(Sender : TObject);
procedure _PROC_006B20A4(Sender : TObject);
procedure _PROC_006B20C0(Sender : TObject);
procedure _PROC_006B20DC(Sender : TObject);
procedure _PROC_006B2176(Sender : TObject);
procedure _PROC_006B2190(Sender : TObject);
procedure _PROC_006B22D9(Sender : TObject);
procedure _PROC_006B247D(Sender : TObject);
procedure _PROC_006B24B0(Sender : TObject);
procedure _PROC_006B24CC(Sender : TObject);
procedure _PROC_006B24E8(Sender : TObject);
procedure _PROC_006B25A0(Sender : TObject);
procedure _PROC_006B2650(Sender : TObject);
procedure _PROC_006B271B(Sender : TObject);
procedure _PROC_006B2750(Sender : TObject);
procedure _PROC_006B2758(Sender : TObject);
procedure _PROC_006B27B8(Sender : TObject);
procedure _PROC_006B2814(Sender : TObject);
procedure Proc_006B0F8C(Sender : TObject);
procedure Proc_006AA3A0(Sender : TObject);
procedure Proc_006AD7DC(Sender : TObject);
procedure Proc_006B0DD4(Sender : TObject);
procedure Proc_006ADB60(Sender : TObject);
procedure Proc_006B0C74(Sender : TObject);
procedure Proc_006B1DE0(Sender : TObject);
procedure Proc_006B2170(Sender : TObject);
procedure Proc_006AA258(Sender : TObject);
procedure Proc_006B0640(Sender : TObject);
procedure Proc_006AB06F(Sender : TObject);
procedure Proc_006B1C7C(Sender : TObject);
procedure Proc_006B1C9C(Sender : TObject);
procedure Proc_006AC838(Sender : TObject);
procedure Proc_006AE6D0(Sender : TObject);
procedure Proc_006AF6A0(Sender : TObject);
procedure Proc_006B0018(Sender : TObject);
procedure Proc_006B2314(Sender : TObject);
procedure Proc_006B088C(Sender : TObject);
procedure Proc_006B16E0(Sender : TObject);
procedure Proc_006ADACC(Sender : TObject);
procedure Proc_006ADB48(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
HJ32Main: THJ32Main;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure THJ32Main.mAlysMenuClick(Sender : TObject);
begin
(*
006AB944 53 push ebx
006AB945 56 push esi
006AB946 57 push edi
006AB947 55 push ebp
006AB948 8BDA mov ebx, edx
006AB94A 8BF0 mov esi, eax
006AB94C 6A00 push $00
006AB94E 8BC6 mov eax, esi
* Reference to: forms.TCustomForm.GetActiveMDIChild(TCustomForm):TForm;
|
006AB950 E8E37FDAFF call 00453938
006AB955 8BD0 mov edx, eax
006AB957 33C9 xor ecx, ecx
006AB959 8BC6 mov eax, esi
* Reference to : THJ32Main._PROC_006AC048()
|
006AB95B E8E8060000 call 006AC048
006AB960 8BF0 mov esi, eax
006AB962 8BC6 mov eax, esi
* Reference to class TAlysDYWin
|
006AB964 8B1520366200 mov edx, [$00623620]
* Reference to: system.@AsClass;
|
006AB96A E8ED7AD5FF call 0040345C
* Reference to : TAlysDYWin._PROC_00623B14()
|
006AB96F E8A081F7FF call 00623B14
006AB974 8BC3 mov eax, ebx
* Reference to class TComponent
|
006AB976 8B153C304100 mov edx, [$0041303C]
* Reference to: system.@AsClass;
|
006AB97C E8DB7AD5FF call 0040345C
006AB981 8BE8 mov ebp, eax
006AB983 8B7D0C mov edi, [ebp+$0C]
006AB986 83FF01 cmp edi, +$01
006AB989 7412 jz 006AB99D
006AB98B 8BC3 mov eax, ebx
* Reference to class TComponent
|
006AB98D 8B153C304100 mov edx, [$0041303C]
* Reference to: system.@AsClass;
|
006AB993 E8C47AD5FF call 0040345C
006AB998 83FF02 cmp edi, +$02
006AB99B 7565 jnz 006ABA02
* Reference to class THJForm
|
006AB99D A144027500 mov eax, dword ptr [$00750244]
* Reference to : THJForm._PROC_007516C8()
|
006AB9A2 E8215D0A00 call 007516C8
* Reference to field THJForm.OFFS_0005
|
006AB9A7 C6400502 mov byte ptr [eax+$05], $02
006AB9AB 8BC3 mov eax, ebx
* Reference to class TComponent
|
006AB9AD 8B153C304100 mov edx, [$0041303C]
* Reference to: system.@AsClass;
|
006AB9B3 E8A47AD5FF call 0040345C
006AB9B8 837D0C01 cmp dword ptr [ebp+$0C], +$01
006AB9BC 750E jnz 006AB9CC
* Reference to class THJForm
|
006AB9BE A144027500 mov eax, dword ptr [$00750244]
* Reference to : THJForm._PROC_007516C8()
|
006AB9C3 E8005D0A00 call 007516C8
* Reference to field THJForm.OFFS_0004
|
006AB9C8 C6400400 mov byte ptr [eax+$04], $00
006AB9CC 8BC3 mov eax, ebx
* Reference to class TComponent
|
006AB9CE 8B153C304100 mov edx, [$0041303C]
* Reference to: system.@AsClass;
|
006AB9D4 E8837AD5FF call 0040345C
006AB9D9 837D0C02 cmp dword ptr [ebp+$0C], +$02
006AB9DD 750E jnz 006AB9ED
* Reference to class THJForm
|
006AB9DF A144027500 mov eax, dword ptr [$00750244]
* Reference to : THJForm._PROC_007516C8()
|
006AB9E4 E8DF5C0A00 call 007516C8
* Reference to field THJForm.OFFS_0004
|
006AB9E9 C6400401 mov byte ptr [eax+$04], $01
006AB9ED 8BC6 mov eax, esi
* Reference to class TAlysDYWin
|
006AB9EF 8B1520366200 mov edx, [$00623620]
* Reference to: system.@AsClass;
|
006AB9F5 E8627AD5FF call 0040345C
006AB9FA 8B10 mov edx, [eax]
* Possible reference to virtual method THJ32Main.OFFS_0148
|
006AB9FC FF9248010000 call dword ptr [edx+$0148]
006ABA02 5D pop ebp
006ABA03 5F pop edi
006ABA04 5E pop esi
006ABA05 5B pop ebx
006ABA06 C3 ret
*)
end;
procedure THJ32Main.FormCreate(Sender : TObject);
begin
(*
006AA484 55 push ebp
006AA485 8BEC mov ebp, esp
006AA487 83C4B0 add esp, -$50
006AA48A 53 push ebx
006AA48B 56 push esi
006AA48C 57 push edi
006AA48D 33C9 xor ecx, ecx
006AA48F 894DFC mov [ebp-$04], ecx
006AA492 894DF4 mov [ebp-$0C], ecx
006AA495 894DF0 mov [ebp-$10], ecx
006AA498 894DEC mov [ebp-$14], ecx
006AA49B 894DE0 mov [ebp-$20], ecx
006AA49E 894DDC mov [ebp-$24], ecx
006AA4A1 894DD4 mov [ebp-$2C], ecx
006AA4A4 8BD8 mov ebx, eax
006AA4A6 33C0 xor eax, eax
006AA4A8 55 push ebp
* Possible String Reference to: '閌屨⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -