📄 tdbkwin.pas
字号:
*)
end;
procedure TfrmTDBK.FormDblClick(Sender : TObject);
begin
(*
* Reference to THJ32Main instance
|
0062639C 8B1558D37700 mov edx, [$0077D358]
006263A2 8B12 mov edx, [edx]
* Reference to field THJ32Main.OFFS_08CD : Byte
|
006263A4 C682CD08000003 mov byte ptr [edx+$08CD], $03
006263AB 6A00 push $00
* Reference to THJ32Main instance
|
006263AD 8B1558D37700 mov edx, [$0077D358]
006263B3 8B12 mov edx, [edx]
006263B5 B102 mov cl, $02
006263B7 92 xchg eax, edx
* Reference to : THJ32Main._PROC_006AC048()
|
006263B8 E88B5C0800 call 006AC048
006263BD C3 ret
*)
end;
procedure TfrmTDBK.FormDestroy(Sender : TObject);
begin
(*
006263C0 53 push ebx
006263C1 56 push esi
006263C2 57 push edi
006263C3 8BD8 mov ebx, eax
* Reference to field TfrmTDBK.OFFS_0354
|
006263C5 8BBB54030000 mov edi, [ebx+$0354]
006263CB 0FAFBB58030000 imul edi, [ebx+$0358]
006263D2 4F dec edi
006263D3 85FF test edi, edi
006263D5 7C20 jl 006263F7
006263D7 47 inc edi
006263D8 33F6 xor esi, esi
* Reference to field TfrmTDBK.OFFS_0344
|
006263DA 8B8344030000 mov eax, [ebx+$0344]
006263E0 8B44F004 mov eax, [eax+esi*8+$04]
006263E4 85C0 test eax, eax
006263E6 740B jz 006263F3
* Reference to field TfrmTDBK.OFFS_0344
|
006263E8 8B9344030000 mov edx, [ebx+$0344]
* Reference to: system.TObject.Free(TObject);
|
006263EE E8D9CEDDFF call 004032CC
006263F3 46 inc esi
006263F4 4F dec edi
006263F5 75E3 jnz 006263DA
* Reference to field TfrmTDBK.OFFS_0344
|
006263F7 8B8344030000 mov eax, [ebx+$0344]
* Reference to: system.@FreeMem;
|
006263FD E87EC4DDFF call 00402880
00626402 33C0 xor eax, eax
* Reference to field TfrmTDBK.OFFS_0344
|
00626404 898344030000 mov [ebx+$0344], eax
0062640A 5F pop edi
0062640B 5E pop esi
0062640C 5B pop ebx
0062640D C3 ret
*)
end;
procedure TfrmTDBK.Timer1Timer(Sender : TObject);
begin
(*
006265C8 C3 ret
*)
end;
procedure TfrmTDBK._PROC_00624C44(Sender : TObject);
begin
(*
00624C44 53 push ebx
00624C45 8BD8 mov ebx, eax
00624C47 B203 mov dl, $03
00624C49 8BC3 mov eax, ebx
* Reference to: HJForm.Proc_00750F8C
|
00624C4B E83CC31200 call 00750F8C
00624C50 8BC3 mov eax, ebx
* Reference to : THJForm._PROC_00751178()
|
00624C52 E821C51200 call 00751178
00624C57 5B pop ebx
00624C58 C3 ret
*)
end;
procedure TfrmTDBK._PROC_00624C5C(Sender : TObject);
begin
(*
00624C5C 53 push ebx
00624C5D 83C4F8 add esp, -$08
00624C60 8BD8 mov ebx, eax
00624C62 54 push esp
00624C63 6A02 push $02
* Possible String Reference to: '深'
|
00624C65 68A04C6200 push $00624CA0
00624C6A 8BC3 mov eax, ebx
* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
00624C6C E8AFEEE2FF call 00453B20
* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
00624C71 E8D2A7DFFF call 0041F448
00624C76 50 push eax
* Reference to: gdi32.GetTextExtentPoint32A()
|
00624C77 E86C39DEFF call 004085E8
00624C7C 8B442404 mov eax, [esp+$04]
00624C80 8D0440 lea eax, [eax+eax*2]
00624C83 D1F8 sar eax, 1
00624C85 7903 jns 00624C8A
00624C87 83D000 adc eax, +$00
00624C8A 83C003 add eax, +$03
* Reference to field TfrmTDBK.OFFS_0368
|
00624C8D 898368030000 mov [ebx+$0368], eax
00624C93 33C0 xor eax, eax
* Reference to field TfrmTDBK.OFFS_036C
|
00624C95 89836C030000 mov [ebx+$036C], eax
00624C9B 59 pop ecx
00624C9C 5A pop edx
00624C9D 5B pop ebx
00624C9E C3 ret
*)
end;
procedure TfrmTDBK._PROC_00624C9F(Sender : TObject);
begin
(*
00624C9F 00C9 add cl, cl
00624CA1 EE out dx, al
00624CA2 0000 add [eax], al
*)
end;
procedure TfrmTDBK._PROC_00624CBD(Sender : TObject);
begin
(*
* Reference to field TfrmTDBK.OFFS_007E
|
00624CBD 38407E cmp [eax+$7E], al
00624CC0 0F8B1085D279 jnp 7A34D1D6
00624CC6 0383C203C1FA add eax, [ebx+$FAC103C2]
00624CCC 0201 add al, byte ptr [ecx]
00624CCE 10C3 adc bl, al
00624CD0 833808 cmp dword ptr [eax], +$08
00624CD3 7E07 jle 00624CDC
00624CD5 BA10000000 mov edx, $00000010
00624CDA EB05 jmp 00624CE1
00624CDC BA04000000 mov edx, $00000004
00624CE1 0110 add [eax], edx
00624CE3 C3 ret
*)
end;
procedure TfrmTDBK._PROC_00624CE4(Sender : TObject);
begin
(*
00624CE4 53 push ebx
00624CE5 56 push esi
00624CE6 57 push edi
00624CE7 55 push ebp
00624CE8 83C4DC add esp, -$24
00624CEB 884C2401 mov [esp+$01], cl
00624CEF 881424 mov [esp], dl
00624CF2 8BD8 mov ebx, eax
00624CF4 33C0 xor eax, eax
* Reference to field TfrmTDBK.OFFS_0340
|
00624CF6 898340030000 mov [ebx+$0340], eax
00624CFC 33C0 xor eax, eax
00624CFE 8944240C mov [esp+$0C], eax
* Reference to field TfrmTDBK.OFFS_0344
|
00624D02 8B8344030000 mov eax, [ebx+$0344]
00624D08 85C0 test eax, eax
00624D0A 740D jz 00624D19
* Reference to field TfrmTDBK.OFFS_0374 : Byte
|
00624D0C 80BB7403000000 cmp byte ptr [ebx+$0374], $00
00624D13 7504 jnz 00624D19
00624D15 8944240C mov [esp+$0C], eax
00624D19 B880000000 mov eax, $00000080
* Reference to: system.@GetMem;
|
00624D1E E845DBDDFF call 00402868
* Reference to field TfrmTDBK.OFFS_0344
|
00624D23 898344030000 mov [ebx+$0344], eax
00624D29 C744240410000000 mov dword ptr [esp+$04], $00000010
00624D31 33ED xor ebp, ebp
00624D33 C7442410FFFFFFFF mov dword ptr [esp+$10], $FFFFFFFF
00624D3B 803C2401 cmp byte ptr [esp], $01
00624D3F 0F85AB000000 jnz 00624DF0
00624D45 A184C87700 mov eax, dword ptr [$0077C884]
00624D4A 8B00 mov eax, [eax]
00624D4C 8B7808 mov edi, [eax+$08]
00624D4F 4F dec edi
00624D50 85FF test edi, edi
00624D52 0F8C98000000 jl 00624DF0
00624D58 47 inc edi
00624D59 33F6 xor esi, esi
00624D5B 8D4C2414 lea ecx, [esp+$14]
00624D5F A184C87700 mov eax, dword ptr [$0077C884]
00624D64 8B00 mov eax, [eax]
00624D66 8BD6 mov edx, esi
* Reference to: Unit_004AC2A8.Proc_004AC414
|
00624D68 E8A776E8FF call 004AC414
00624D6D 66817C2414FFFF cmp word ptr [esp+$14], $FFFF
00624D74 7472 jz 00624DE8
00624D76 8D4C2414 lea ecx, [esp+$14]
00624D7A A184C87700 mov eax, dword ptr [$0077C884]
00624D7F 8B00 mov eax, [eax]
00624D81 8BD6 mov edx, esi
* Reference to: Unit_004AC2A8.Proc_004AC414
|
00624D83 E88C76E8FF call 004AC414
00624D88 0FB7442414 movzx eax, word ptr [esp+$14]
* Reference to field TfrmTDBK.OFFS_033C
|
00624D8D 3B833C030000 cmp eax, [ebx+$033C]
00624D93 7504 jnz 00624D99
00624D95 89742410 mov [esp+$10], esi
00624D99 8D4C2414 lea ecx, [esp+$14]
00624D9D A184C87700 mov eax, dword ptr [$0077C884]
00624DA2 8B00 mov eax, [eax]
00624DA4 8BD6 mov edx, esi
* Reference to: Unit_004AC2A8.Proc_004AC414
|
00624DA6 E86976E8FF call 004AC414
00624DAB 668B442414 mov ax, word ptr [esp+$14]
* Reference to field TfrmTDBK.OFFS_0344
|
00624DB0 8B9344030000 mov edx, [ebx+$0344]
00624DB6 668904F2 mov [edx+esi*8], ax
* Reference to field TfrmTDBK.OFFS_0344
|
00624DBA 8B8344030000 mov eax, [ebx+$0344]
00624DC0 33D2 xor edx, edx
00624DC2 8954F004 mov [eax+esi*8+$04], edx
00624DC6 45 inc ebp
00624DC7 3B6C2404 cmp ebp, [esp+$04]
00624DCB 751B jnz 00624DE8
00624DCD 8D442404 lea eax, [esp+$04]
* Reference to : TfrmTDBK.Proc_00624CBC()
|
00624DD1 E8E6FEFFFF call 00624CBC
00624DD6 8B542404 mov edx, [esp+$04]
00624DDA C1E203 shl edx, $03
* Reference to field TfrmTDBK.OFFS_0344
|
00624DDD 8D8344030000 lea eax, [ebx+$0344]
* Reference to: system.@ReallocMem;
|
00624DE3 E8B0DADDFF call 00402898
00624DE8 46 inc esi
00624DE9 4F dec edi
00624DEA 0F856BFFFFFF jnz 00624D5B
00624DF0 803C2400 cmp byte ptr [esp], $00
00624DF4 0F8581000000 jnz 00624E7B
00624DFA 33F6 xor esi, esi
00624DFC 8B03 mov eax, [ebx]
* Reference to : THJForm._PROC_007516C8()
|
00624DFE E8C5C81200 call 007516C8
00624E03 8D542408 lea edx, [esp+$08]
* Reference to: Unit_007605C8.Proc_007606A8
|
00624E07 E89CB81300 call 007606A8
00624E0C 84C0 test al, al
00624E0E 746B jz 00624E7B
00624E10 66817C2408FFFF cmp word ptr [esp+$08], $FFFF
00624E17 7449 jz 00624E62
00624E19 0FB7442408 movzx eax, word ptr [esp+$08]
* Reference to field TfrmTDBK.OFFS_033C
|
00624E1E 3B833C030000 cmp eax, [ebx+$033C]
00624E24 7504 jnz 00624E2A
00624E26 89742410 mov [esp+$10], esi
* Reference to field TfrmTDBK.OFFS_0344
|
00624E2A 8B8344030000 mov eax, [ebx+$0344]
00624E30 668B542408 mov dx, word ptr [esp+$08]
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -