📄 reason.pas
字号:
0069BBE2 E8A141DAFF call 0043FD88
0069BBE7 50 push eax
* Reference to: user32.PostMessageA()
|
0069BBE8 E86BD0D6FF call 00408C58
0069BBED 6A00 push $00
0069BBEF 6A21 push $21
0069BBF1 6801010000 push $00000101
0069BBF6 8BC3 mov eax, ebx
* Reference to: controls.TWinControl.GetHandle(TWinControl):HWND;
|
0069BBF8 E88B41DAFF call 0043FD88
0069BBFD 50 push eax
* Reference to: user32.PostMessageA()
|
0069BBFE E855D0D6FF call 00408C58
0069BC03 EB2C jmp 0069BC31
0069BC05 6A00 push $00
0069BC07 6A22 push $22
0069BC09 6800010000 push $00000100
0069BC0E 8BC3 mov eax, ebx
* Reference to: controls.TWinControl.GetHandle(TWinControl):HWND;
|
0069BC10 E87341DAFF call 0043FD88
0069BC15 50 push eax
* Reference to: user32.PostMessageA()
|
0069BC16 E83DD0D6FF call 00408C58
0069BC1B 6A00 push $00
0069BC1D 6A22 push $22
0069BC1F 6801010000 push $00000101
0069BC24 8BC3 mov eax, ebx
* Reference to: controls.TWinControl.GetHandle(TWinControl):HWND;
|
0069BC26 E85D41DAFF call 0043FD88
0069BC2B 50 push eax
* Reference to: user32.PostMessageA()
|
0069BC2C E827D0D6FF call 00408C58
0069BC31 5F pop edi
0069BC32 5E pop esi
0069BC33 5B pop ebx
0069BC34 59 pop ecx
0069BC35 59 pop ecx
0069BC36 5D pop ebp
0069BC37 C20C00 ret $000C
*)
end;
procedure TfrmReason.Button1Click(Sender : TObject);
begin
(*
* Reference to pointer to GlobalVar_007991D8
|
0069BC3C A1A0D37700 mov eax, dword ptr [$0077D3A0]
0069BC41 8B00 mov eax, [eax]
* Reference to field GlobalVar_007991D8.OFFS_0038
|
0069BC43 83783800 cmp dword ptr [eax+$38], +$00
0069BC47 740F jz 0069BC58
* Reference to pointer to GlobalVar_007991D8
|
0069BC49 A1A0D37700 mov eax, dword ptr [$0077D3A0]
0069BC4E 8B00 mov eax, [eax]
* Reference to field GlobalVar_007991D8.OFFS_0038
|
0069BC50 8B4038 mov eax, [eax+$38]
* Reference to: Unit_00651A88.Proc_006543DC
|
0069BC53 E88487FBFF call 006543DC
0069BC58 C3 ret
*)
end;
procedure TfrmReason._PROC_0069A28C(Sender : TObject);
begin
(*
* Reference to field TfrmReason.OFFS_02F4
|
0069A28C 8990F4020000 mov [eax+$02F4], edx
0069A292 C3 ret
*)
end;
procedure TfrmReason._PROC_0069A294(Sender : TObject);
begin
(*
0069A294 53 push ebx
0069A295 56 push esi
0069A296 8BF1 mov esi, ecx
0069A298 8BD8 mov ebx, eax
* Reference to field TfrmReason.OFFS_0310
|
0069A29A 899310030000 mov [ebx+$0310], edx
* Reference to field TfrmReason.OFFS_030C
|
0069A2A0 89B30C030000 mov [ebx+$030C], esi
0069A2A6 8BC6 mov eax, esi
0069A2A8 C1E002 shl eax, $02
* Reference to: Unit_00409434.Proc_00409FF8
|
0069A2AB E848FDD6FF call 00409FF8
* Reference to field TfrmReason.OFFS_0320
|
0069A2B0 898320030000 mov [ebx+$0320], eax
0069A2B6 8BD6 mov edx, esi
0069A2B8 4A dec edx
0069A2B9 85D2 test edx, edx
0069A2BB 7C14 jl 0069A2D1
0069A2BD 42 inc edx
0069A2BE 33C0 xor eax, eax
0069A2C0 8BC8 mov ecx, eax
0069A2C2 C1E102 shl ecx, $02
0069A2C5 038B20030000 add ecx, [ebx+$0320]
0069A2CB 8901 mov [ecx], eax
0069A2CD 40 inc eax
0069A2CE 4A dec edx
0069A2CF 75EF jnz 0069A2C0
* Reference to control FindButton : N.A.
|
0069A2D1 80BB0003000002 cmp byte ptr [ebx+$0300], $02
0069A2D8 750C jnz 0069A2E6
0069A2DA C7832403000004000000 mov dword ptr [ebx+$0324], $00000004
0069A2E4 EB0A jmp 0069A2F0
0069A2E6 C7832403000003000000 mov dword ptr [ebx+$0324], $00000003
0069A2F0 C7832803000001000000 mov dword ptr [ebx+$0328], $00000001
0069A2FA 8BC3 mov eax, ebx
* Reference to : TfrmReason._PROC_0069A774()
|
0069A2FC E873040000 call 0069A774
0069A301 33C0 xor eax, eax
0069A303 898308030000 mov [ebx+$0308], eax
0069A309 8BC3 mov eax, ebx
* Reference to : TfrmReason._PROC_0069A7F4()
|
0069A30B E8E4040000 call 0069A7F4
0069A310 8BC3 mov eax, ebx
* Reference to : TfrmReason._PROC_0069B7E0()
|
0069A312 E8C9140000 call 0069B7E0
0069A317 5E pop esi
0069A318 5B pop ebx
0069A319 C3 ret
*)
end;
procedure TfrmReason._PROC_0069A31C(Sender : TObject);
begin
(*
0069A31C 55 push ebp
0069A31D 8BEC mov ebp, esp
0069A31F 83C4F0 add esp, -$10
0069A322 53 push ebx
0069A323 56 push esi
0069A324 57 push edi
0069A325 8BF9 mov edi, ecx
0069A327 8955F8 mov [ebp-$08], edx
0069A32A 8945FC mov [ebp-$04], eax
0069A32D 8BC7 mov eax, edi
* Reference to: Unit_00409434.Proc_00409FF8
|
0069A32F E8C4FCD6FF call 00409FF8
0069A334 8945F0 mov [ebp-$10], eax
0069A337 8B5D0C mov ebx, [ebp+$0C]
0069A33A 8B7508 mov esi, [ebp+$08]
0069A33D 8B45F8 mov eax, [ebp-$08]
0069A340 8B00 mov eax, [eax]
0069A342 8B550C mov edx, [ebp+$0C]
0069A345 035508 add edx, [ebp+$08]
0069A348 D1EA shr edx, 1
0069A34A 0FAFD7 imul edx, edi
0069A34D 03C2 add eax, edx
0069A34F 8945F4 mov [ebp-$0C], eax
0069A352 EB01 jmp 0069A355
0069A354 43 inc ebx
0069A355 8B55F8 mov edx, [ebp-$08]
0069A358 8B12 mov edx, [edx]
0069A35A 8BC3 mov eax, ebx
0069A35C 0FAFC7 imul eax, edi
0069A35F 03D0 add edx, eax
0069A361 8B4DF4 mov ecx, [ebp-$0C]
0069A364 8B45FC mov eax, [ebp-$04]
* Reference to : TfrmReason._PROC_0069A450()
|
0069A367 E8E4000000 call 0069A450
0069A36C 85C0 test eax, eax
0069A36E 7CE4 jl 0069A354
0069A370 EB01 jmp 0069A373
0069A372 4E dec esi
0069A373 8B55F8 mov edx, [ebp-$08]
0069A376 8B12 mov edx, [edx]
0069A378 8BC6 mov eax, esi
0069A37A 0FAFC7 imul eax, edi
0069A37D 03D0 add edx, eax
0069A37F 8B4DF4 mov ecx, [ebp-$0C]
0069A382 8B45FC mov eax, [ebp-$04]
* Reference to : TfrmReason._PROC_0069A450()
|
0069A385 E8C6000000 call 0069A450
0069A38A 85C0 test eax, eax
0069A38C 7FE4 jnle 0069A372
0069A38E 3BF3 cmp esi, ebx
0069A390 7C7F jl 0069A411
0069A392 8B45F8 mov eax, [ebp-$08]
0069A395 8B00 mov eax, [eax]
0069A397 8BD3 mov edx, ebx
0069A399 0FAFD7 imul edx, edi
0069A39C 03C2 add eax, edx
0069A39E 8B55F0 mov edx, [ebp-$10]
0069A3A1 8BCF mov ecx, edi
* Reference to: system.Move(void;void;void;void;Integer);
|
0069A3A3 E8D086D6FF call 00402A78
0069A3A8 8B45F8 mov eax, [ebp-$08]
0069A3AB 8B00 mov eax, [eax]
0069A3AD 8BD0 mov edx, eax
0069A3AF 8BCB mov ecx, ebx
0069A3B1 0FAFCF imul ecx, edi
0069A3B4 03D1 add edx, ecx
0069A3B6 52 push edx
0069A3B7 8B55F8 mov edx, [ebp-$08]
0069A3BA 8BD6 mov edx, esi
0069A3BC 0FAFD7 imul edx, edi
0069A3BF 03C2 add eax, edx
0069A3C1 8BCF mov ecx, edi
0069A3C3 5A pop edx
* Reference to: system.Move(void;void;void;void;Integer);
|
0069A3C4 E8AF86D6FF call 00402A78
0069A3C9 8B55F8 mov edx, [ebp-$08]
0069A3CC 8B12 mov edx, [edx]
0069A3CE 8BC6 mov eax, esi
0069A3D0 0FAFC7 imul eax, edi
0069A3D3 03D0 add edx, eax
0069A3D5 8B45F0 mov eax, [ebp-$10]
0069A3D8 8BCF mov ecx, edi
* Reference to: system.Move(void;void;void;void;Integer);
|
0069A3DA E89986D6FF call 00402A78
0069A3DF 8B450C mov eax, [ebp+$0C]
0069A3E2 034508 add eax, [ebp+$08]
0069A3E5 D1E8 shr eax, 1
0069A3E7 3BD8 cmp ebx, eax
0069A3E9 7511 jnz 0069A3FC
0069A3EB 8B45F8 mov eax, [ebp-$08]
0069A3EE 8B00 mov eax, [eax]
0069A3F0 8BD6 mov edx, esi
0069A3F2 0FAFD7 imul edx, edi
0069A3F5 03C2 add eax, edx
0069A3F7 8945F4 mov [ebp-$0C], eax
0069A3FA EB13 jmp 0069A40F
0069A3FC 3BC6 cmp eax, esi
0069A3FE 750F jnz 0069A40F
0069A400 8B45F8 mov eax, [ebp-$08]
0069A403 8B00 mov eax, [eax]
0069A405 8BD3 mov edx, ebx
0069A407 0FAFD7 imul edx, edi
0069A40A 03C2 add eax, edx
0069A40C 8945F4 mov [ebp-$0C], eax
0069A40F 43 inc ebx
0069A410 4E dec esi
0069A411 3BF3 cmp esi, ebx
0069A413 0F8D3CFFFFFF jnl 0069A355
0069A419 3B750C cmp esi, [ebp+$0C]
0069A41C 7E12 jle 0069A430
0069A41E 8B450C mov eax, [ebp+$0C]
0069A421 50 push eax
0069A422 56 push esi
0069A423 8B55F8 mov edx, [ebp-$08]
0069A426 8BCF mov ecx, edi
0069A428 8B45FC mov eax, [ebp-$04]
* Reference to : TfrmReason._PROC_0069A31C()
|
0069A42B E8ECFEFFFF call 0069A31C
0069A430 895D0C mov [ebp+$0C], ebx
0069A433 3B5D08 cmp ebx, [ebp+$08]
0069A436 0F8CFBFEFFFF jl 0069A337
0069A43C 8B45F0 mov eax, [ebp-$10]
* Reference to: system.@FreeMem;
|
0069A43F E83C84D6FF call 00402880
0069A444 5F pop edi
0069A445 5E pop esi
0069A446 5B pop ebx
0069A447 8BE5 mov esp, ebp
0069A449 5D pop ebp
0069A44A C20800 ret $0008
*)
end;
procedure TfrmReason._PROC_0069A450(Sender : TObject);
begin
(*
0069A450 55 push ebp
0069A451 8BEC mov ebp, esp
0069A453 51 push ecx
0069A454 B904000000 mov ecx, $00000004
0069A459 6A00 push $00
0069A45B 6A00 push $00
0069A45D 49 dec ecx
0069A45E 75F9 jnz 0069A459
0069A460 874DFC xchg [ebp-$04], ecx
0069A463 53 push ebx
0069A464 56 push esi
0069A465 57 push edi
0069A466 8BF1 mov esi, ecx
0069A468 8BD8 mov ebx, eax
0069A46A 33C0 xor eax, eax
0069A46C 55 push ebp
* Possible String Reference to: '槠捴⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -