📄 reason.pas
字号:
|
0069B344 E8FB78F1FF call 005B2C44
0069B349 298308030000 sub dword ptr [ebx+$0308], eax
* Reference to field TfrmReason.OFFS_0308
|
0069B34F 83BB0803000000 cmp dword ptr [ebx+$0308], +$00
0069B356 7D08 jnl 0069B360
0069B358 33C0 xor eax, eax
* Reference to field TfrmReason.OFFS_0308
|
0069B35A 898308030000 mov [ebx+$0308], eax
0069B360 8BC3 mov eax, ebx
* Reference to : TfrmReason._PROC_0069A7F4()
|
0069B362 E88DF4FFFF call 0069A7F4
* Reference to field TfrmReason.OFFS_02FC
|
0069B367 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Unit_005B2404.Proc_005B2C44
|
0069B36D E8D278F1FF call 005B2C44
* Reference to field TfrmReason.OFFS_030C
|
0069B372 8BB30C030000 mov esi, [ebx+$030C]
0069B378 3BC6 cmp eax, esi
0069B37A 7D1C jnl 0069B398
* Reference to field TfrmReason.OFFS_02FC
|
0069B37C 8BB3FC020000 mov esi, [ebx+$02FC]
0069B382 8BC6 mov eax, esi
* Reference to: Unit_005B2404.Proc_005B2C44
|
0069B384 E8BB78F1FF call 005B2C44
0069B389 8BD0 mov edx, eax
0069B38B 4A dec edx
0069B38C 8BC6 mov eax, esi
* Reference to: Unit_005B2404.Proc_005B2D34
|
0069B38E E8A179F1FF call 005B2D34
0069B393 E93B010000 jmp 0069B4D3
0069B398 8BD6 mov edx, esi
0069B39A 4A dec edx
* Reference to field TfrmReason.OFFS_02FC
|
0069B39B 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Unit_005B2404.Proc_005B2D34
|
0069B3A1 E88E79F1FF call 005B2D34
0069B3A6 E928010000 jmp 0069B4D3
* Reference to field TfrmReason.OFFS_02FC
|
0069B3AB 8BB3FC020000 mov esi, [ebx+$02FC]
0069B3B1 8BC6 mov eax, esi
* Reference to: Unit_005B2404.Proc_005B2D50
|
0069B3B3 E89879F1FF call 005B2D50
0069B3B8 8BD0 mov edx, eax
0069B3BA 4A dec edx
0069B3BB 8BC6 mov eax, esi
* Reference to: Unit_005B2404.Proc_005B2D34
|
0069B3BD E87279F1FF call 005B2D34
0069B3C2 E90C010000 jmp 0069B4D3
0069B3C7 8BC7 mov eax, edi
* Reference to: Unit_005B2404.Proc_005B2D50
|
0069B3C9 E88279F1FF call 005B2D50
0069B3CE 038308030000 add eax, [ebx+$0308]
0069B3D4 40 inc eax
* Reference to field TfrmReason.OFFS_030C
|
0069B3D5 8B930C030000 mov edx, [ebx+$030C]
0069B3DB 4A dec edx
0069B3DC 3BC2 cmp eax, edx
0069B3DE 0F8FEF000000 jnle 0069B4D3
* Reference to field TfrmReason.OFFS_02FC
|
0069B3E4 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Unit_005B2404.Proc_005B2D50
|
0069B3EA E86179F1FF call 005B2D50
0069B3EF 8BF0 mov esi, eax
* Reference to field TfrmReason.OFFS_02FC
|
0069B3F1 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Unit_005B2404.Proc_005B2C44
|
0069B3F7 E84878F1FF call 005B2C44
0069B3FC 48 dec eax
0069B3FD 3BF0 cmp esi, eax
0069B3FF 7D1C jnl 0069B41D
* Reference to field TfrmReason.OFFS_02FC
|
0069B401 8BB3FC020000 mov esi, [ebx+$02FC]
0069B407 8BC6 mov eax, esi
* Reference to: Unit_005B2404.Proc_005B2D50
|
0069B409 E84279F1FF call 005B2D50
0069B40E 8BD0 mov edx, eax
0069B410 42 inc edx
0069B411 8BC6 mov eax, esi
* Reference to: Unit_005B2404.Proc_005B2D34
|
0069B413 E81C79F1FF call 005B2D34
0069B418 E9B6000000 jmp 0069B4D3
* Reference to field TfrmReason.OFFS_02FC
|
0069B41D 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Unit_005B2404.Proc_005B2C44
|
0069B423 E81C78F1FF call 005B2C44
0069B428 038308030000 add eax, [ebx+$0308]
* Reference to field TfrmReason.OFFS_030C
|
0069B42E 3B830C030000 cmp eax, [ebx+$030C]
0069B434 7D11 jnl 0069B447
* Reference to field TfrmReason.OFFS_02FC
|
0069B436 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Unit_005B2404.Proc_005B2C44
|
0069B43C E80378F1FF call 005B2C44
0069B441 018308030000 add [ebx+$0308], eax
0069B447 33D2 xor edx, edx
* Reference to field TfrmReason.OFFS_02FC
|
0069B449 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Unit_005B2404.Proc_005B2D34
|
0069B44F E8E078F1FF call 005B2D34
* Reference to field TfrmReason.OFFS_02FC
|
0069B454 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Unit_005B2404.Proc_005B2C80
|
0069B45A E82178F1FF call 005B2C80
0069B45F 8BC3 mov eax, ebx
* Reference to : TfrmReason._PROC_0069A7F4()
|
0069B461 E88EF3FFFF call 0069A7F4
0069B466 EB6B jmp 0069B4D3
0069B468 33D2 xor edx, edx
0069B46A 8BC7 mov eax, edi
* Reference to: Unit_005B2404.Proc_005B2D34
|
0069B46C E8C378F1FF call 005B2D34
0069B471 33C0 xor eax, eax
* Reference to field TfrmReason.OFFS_0308
|
0069B473 898308030000 mov [ebx+$0308], eax
0069B479 8BC3 mov eax, ebx
* Reference to : TfrmReason._PROC_0069A7F4()
|
0069B47B E874F3FFFF call 0069A7F4
0069B480 EB51 jmp 0069B4D3
0069B482 33D2 xor edx, edx
0069B484 8BC7 mov eax, edi
* Reference to: Unit_005B2404.Proc_005B2D34
|
0069B486 E8A978F1FF call 005B2D34
* Reference to field TfrmReason.OFFS_02FC
|
0069B48B 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Unit_005B2404.Proc_005B2C44
|
0069B491 E8AE77F1FF call 005B2C44
* Reference to field TfrmReason.OFFS_030C
|
0069B496 3B830C030000 cmp eax, [ebx+$030C]
0069B49C 7F1B jnle 0069B4B9
* Reference to field TfrmReason.OFFS_02FC
|
0069B49E 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Unit_005B2404.Proc_005B2C44
|
0069B4A4 E89B77F1FF call 005B2C44
* Reference to field TfrmReason.OFFS_030C
|
0069B4A9 8B930C030000 mov edx, [ebx+$030C]
0069B4AF 2BD0 sub edx, eax
* Reference to field TfrmReason.OFFS_0308
|
0069B4B1 899308030000 mov [ebx+$0308], edx
0069B4B7 EB08 jmp 0069B4C1
0069B4B9 33C0 xor eax, eax
* Reference to field TfrmReason.OFFS_0308
|
0069B4BB 898308030000 mov [ebx+$0308], eax
* Reference to field TfrmReason.OFFS_02FC
|
0069B4C1 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Unit_005B2404.Proc_005B2C80
|
0069B4C7 E8B477F1FF call 005B2C80
0069B4CC 8BC3 mov eax, ebx
* Reference to : TfrmReason._PROC_0069A7F4()
|
0069B4CE E821F3FFFF call 0069A7F4
0069B4D3 5F pop edi
0069B4D4 5E pop esi
0069B4D5 5B pop ebx
0069B4D6 5D pop ebp
0069B4D7 C20400 ret $0004
*)
end;
procedure TfrmReason.image2Click(Sender : TObject);
begin
(*
0069B4DC 55 push ebp
0069B4DD 8BEC mov ebp, esp
0069B4DF 33C9 xor ecx, ecx
0069B4E1 51 push ecx
0069B4E2 51 push ecx
0069B4E3 51 push ecx
0069B4E4 51 push ecx
0069B4E5 51 push ecx
0069B4E6 51 push ecx
0069B4E7 51 push ecx
0069B4E8 53 push ebx
0069B4E9 56 push esi
0069B4EA 8BD8 mov ebx, eax
0069B4EC 33C0 xor eax, eax
0069B4EE 55 push ebp
0069B4EF 68B3B66900 push $0069B6B3
***** TRY
|
0069B4F4 64FF30 push dword ptr fs:[eax]
0069B4F7 648920 mov fs:[eax], esp
0069B4FA 8D45FC lea eax, [ebp-$04]
* Reference to: system.@LStrClr(String;String);
|
0069B4FD E8F28BD6FF call 004040F4
* Reference to field TfrmReason.OFFS_0304 : String
|
0069B502 83BB0403000000 cmp dword ptr [ebx+$0304], +$00
0069B509 0F8489010000 jz 0069B698
* Reference to field TfrmReason.OFFS_0300 : Byte
|
0069B50F 8A8300030000 mov al, byte ptr [ebx+$0300]
0069B515 2C01 sub al, $01
0069B517 7207 jb 0069B520
0069B519 7473 jz 0069B58E
0069B51B E9DC000000 jmp 0069B5FC
* Reference to pointer to GlobalVar_00799260
|
0069B520 8B1538CA7700 mov edx, [$0077CA38]
0069B526 8B12 mov edx, [edx]
0069B528 8D45F8 lea eax, [ebp-$08]
* Possible String Reference to: 'Consult\link.ini'
|
0069B52B B9C8B66900 mov ecx, $0069B6C8
* Reference to: system.@LStrCat3;
|
0069B530 E8A78ED6FF call 004043DC
0069B535 8B45F8 mov eax, [ebp-$08]
* Reference to: Unit_00409434.Proc_0040A8BC
|
0069B538 E87FF3D6FF call 0040A8BC
0069B53D 84C0 test al, al
0069B53F 0F8445010000 jz 0069B68A
* Reference to pointer to GlobalVar_00799260
|
0069B545 8B1538CA7700 mov edx, [$0077CA38]
0069B54B 8B12 mov edx, [edx]
0069B54D 8D45F4 lea eax, [ebp-$0C]
* Possible String Reference to: 'Consult\link.ini'
|
0069B550 B9C8B66900 mov ecx, $0069B6C8
* Reference to: system.@LStrCat3;
|
0069B555 E8828ED6FF call 004043DC
0069B55A 8B4DF4 mov ecx, [ebp-$0C]
0069B55D B201 mov dl, $01
* Reference to class TIniFile
|
0069B55F A1085A4600 mov eax, dword ptr [$00465A08]
* Reference to: Unit_00465948.Proc_00465B58
|
0069B564 E8EFA5DCFF call 00465B58
0069B569 8BF0 mov esi, eax
0069B56B 6A00 push $00
0069B56D 8D45FC lea eax, [ebp-$04]
0069B570 50 push eax
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -