📄 zbpjnewmod.pas
字号:
* Reference to: controls.TWinControl.GetHandle(TWinControl):HWND;
|
006FDDF4 E88F1FD4FF call 0043FD88
006FDDF9 50 push eax
* Reference to: user32.MessageBoxExA()
|
006FDDFA E811AED0FF call 00408C10
006FDDFF 5B pop ebx
006FDE00 C3 ret
006FDE01 8BC3 mov eax, ebx
* Reference to : TPJNewModFrm.Proc_006FDE34()
|
006FDE03 E82C000000 call 006FDE34
006FDE08 8B93B4030000 mov edx, [ebx+$03B4]
006FDE0E 8B833C030000 mov eax, [ebx+$033C]
* Reference to: controls.TControl.SetText(TControl;TCaption);
|
006FDE14 E867BCD3FF call 00439A80
006FDE19 5B pop ebx
006FDE1A C3 ret
*)
end;
procedure TPJNewModFrm.Button2Click(Sender : TObject);
begin
(*
006FE370 55 push ebp
006FE371 8BEC mov ebp, esp
006FE373 6A00 push $00
006FE375 53 push ebx
006FE376 56 push esi
006FE377 57 push edi
006FE378 8BD8 mov ebx, eax
006FE37A 33C0 xor eax, eax
006FE37C 55 push ebp
006FE37D 6857E46F00 push $006FE457
***** TRY
|
006FE382 64FF30 push dword ptr fs:[eax]
006FE385 648920 mov fs:[eax], esp
* Reference to field TPJNewModFrm.OFFS_03AC
|
006FE388 8B83AC030000 mov eax, [ebx+$03AC]
006FE38E 8B9098020000 mov edx, [eax+$0298]
006FE394 8B520C mov edx, [edx+$0C]
006FE397 803A02 cmp byte ptr [edx], $02
006FE39A 0F85A1000000 jnz 006FE441
006FE3A0 80B88B02000004 cmp byte ptr [eax+$028B], $04
006FE3A7 0F8594000000 jnz 006FE441
006FE3AD 8BC3 mov eax, ebx
* Reference to : TPJNewModFrm._PROC_006FE060()
|
006FE3AF E8ACFCFFFF call 006FE060
006FE3B4 84C0 test al, al
006FE3B6 0F8485000000 jz 006FE441
* Reference to control TPJNewModFrm.CQCheck : TCheckBox
|
006FE3BC 8B8334030000 mov eax, [ebx+$0334]
006FE3C2 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
006FE3C4 FF92B4000000 call dword ptr [edx+$00B4]
006FE3CA 8BC8 mov ecx, eax
* Reference to field TPJNewModFrm.OFFS_0360
|
006FE3CC 8D9360030000 lea edx, [ebx+$0360]
006FE3D2 8BC3 mov eax, ebx
* Reference to : TPJNewModFrm.Proc_006FE300()
|
006FE3D4 E827FFFFFF call 006FE300
* Reference to control TPJNewModFrm.ListView3 : TListView
|
006FE3D9 8B834C030000 mov eax, [ebx+$034C]
* Reference to field TListView.Items : TListItems
|
006FE3DF 8B800C020000 mov eax, [eax+$020C]
* Reference to: comctrls.TListItems.Add(TListItems):TListItem;
|
006FE3E5 E812F5D7FF call 0047D8FC
006FE3EA 8BF0 mov esi, eax
006FE3EC 0FBF9366030000 movsx edx, word ptr [ebx+$0366]
006FE3F3 A118CB7700 mov eax, dword ptr [$0077CB18]
006FE3F8 8B00 mov eax, [eax]
006FE3FA 8B4050 mov eax, [eax+$50]
* Reference to: classes.TList.Get(TList;Integer):Pointer;
|
006FE3FD E8225CD1FF call 00414024
006FE402 8BF8 mov edi, eax
006FE404 8D45FC lea eax, [ebp-$04]
006FE407 8B17 mov edx, [edi]
006FE409 B910000000 mov ecx, $00000010
* Reference to: system.@LStrFromArray(String;String;PAnsiChar;Integer);
|
006FE40E E8115FD0FF call 00404324
006FE413 8B55FC mov edx, [ebp-$04]
006FE416 8BC6 mov eax, esi
* Reference to: comctrls.TListItem.SetCaption(TListItem;AnsiString);
|
006FE418 E8B3EFD7FF call 0047D3D0
006FE41D B802000000 mov eax, $00000002
* Reference to: Unit_00409434.Proc_00409FF8
|
006FE422 E8D1BBD0FF call 00409FF8
006FE427 8BD0 mov edx, eax
006FE429 8BC6 mov eax, esi
* Reference to: comctrls.TListItem.SetData(TListItem;Pointer);
|
006FE42B E840F0D7FF call 0047D470
* Reference to field TPJNewModFrm.OFFS_03C8 : TList
|
006FE430 8B83C8030000 mov eax, [ebx+$03C8]
* Reference to field TList.Count : Integer
|
006FE436 668B4008 mov ax, word ptr [eax+$08]
006FE43A 48 dec eax
* Reference to field TListItems.OFFS_000C
|
006FE43B 8B560C mov edx, [esi+$0C]
006FE43E 668902 mov [edx], ax
006FE441 33C0 xor eax, eax
006FE443 5A pop edx
006FE444 59 pop ecx
006FE445 59 pop ecx
006FE446 648910 mov fs:[eax], edx
****** FINALLY
|
006FE449 685EE46F00 push $006FE45E
006FE44E 8D45FC lea eax, [ebp-$04]
* Reference to: system.@LStrClr(String;String);
|
006FE451 E89E5CD0FF call 004040F4
006FE456 C3 ret
* Reference to: system.@HandleFinally;
|
006FE457 E9D055D0FF jmp 00403A2C
006FE45C EBF0 jmp 006FE44E
****** END
|
006FE45E 5F pop edi
006FE45F 5E pop esi
006FE460 5B pop ebx
006FE461 59 pop ecx
006FE462 5D pop ebp
006FE463 C3 ret
*)
end;
procedure TPJNewModFrm.Button8Click(Sender : TObject);
begin
(*
006FE464 53 push ebx
006FE465 56 push esi
006FE466 57 push edi
006FE467 8BF8 mov edi, eax
006FE469 83BFA803000000 cmp dword ptr [edi+$03A8], +$00
006FE470 0F849E000000 jz 006FE514
006FE476 8B874C030000 mov eax, [edi+$034C]
* Reference to field TPJNewModFrm.OFFS_020C
|
006FE47C 8B800C020000 mov eax, [eax+$020C]
* Reference to: comctrls.TTreeNodes.GetCount(TTreeNodes):Integer;
|
006FE482 E8B5F4D7FF call 0047D93C
006FE487 85C0 test eax, eax
006FE489 0F8E85000000 jle 006FE514
006FE48F 8B874C030000 mov eax, [edi+$034C]
006FE495 8B800C020000 mov eax, [eax+$020C]
* Reference to: comctrls.TTreeNodes.GetCount(TTreeNodes):Integer;
|
006FE49B E89CF4D7FF call 0047D93C
006FE4A0 8BF0 mov esi, eax
006FE4A2 4E dec esi
006FE4A3 6683FE00 cmp si, +$00
006FE4A7 725E jb 006FE507
006FE4A9 0FB7D6 movzx edx, si
006FE4AC 8B874C030000 mov eax, [edi+$034C]
006FE4B2 8B800C020000 mov eax, [eax+$020C]
* Reference to: comctrls.TListItems.GetItem(TListItems;Integer):TListItem;
|
006FE4B8 E8AFF4D7FF call 0047D96C
006FE4BD 8BD8 mov ebx, eax
006FE4BF BA03000000 mov edx, $00000003
006FE4C4 8BC3 mov eax, ebx
* Reference to : TSubItems._PROC_0047D49C()
|
006FE4C6 E8D1EFD7FF call 0047D49C
006FE4CB 84C0 test al, al
006FE4CD 7430 jz 006FE4FF
006FE4CF 8B430C mov eax, [ebx+$0C]
006FE4D2 668B00 mov ax, word ptr [eax]
006FE4D5 0FB7D0 movzx edx, ax
006FE4D8 8B87C8030000 mov eax, [edi+$03C8]
* Reference to: classes.TList.Get(TList;Integer):Pointer;
|
006FE4DE E8415BD1FF call 00414024
006FE4E3 C6405600 mov byte ptr [eax+$56], $00
006FE4E7 8B430C mov eax, [ebx+$0C]
* Reference to: system.@FreeMem;
|
006FE4EA E89143D0FF call 00402880
006FE4EF 33D2 xor edx, edx
006FE4F1 8BC3 mov eax, ebx
* Reference to: comctrls.TListItem.SetData(TListItem;Pointer);
|
006FE4F3 E878EFD7FF call 0047D470
006FE4F8 8BC3 mov eax, ebx
* Reference to: comctrls.TListItem.Delete(TListItem);
|
006FE4FA E8F9EDD7FF call 0047D2F8
006FE4FF 4E dec esi
006FE500 6681FEFFFF cmp si, $FFFF
006FE505 75A2 jnz 006FE4A9
006FE507 8B874C030000 mov eax, [edi+$034C]
006FE50D B204 mov dl, $04
* Reference to: comctrls.TCustomListView.Arrange(TCustomListView;TListArrangement);
|
006FE50F E8AC2BD8FF call 004810C0
006FE514 5F pop edi
006FE515 5E pop esi
006FE516 5B pop ebx
006FE517 C3 ret
*)
end;
procedure TPJNewModFrm.ListView3Click(Sender : TObject);
begin
(*
006FE518 53 push ebx
006FE519 8BD8 mov ebx, eax
* Reference to control TPJNewModFrm.ListView3 : TListView
|
006FE51B 8B834C030000 mov eax, [ebx+$034C]
* Reference to: comctrls.TCustomListView.GetSelection(TCustomListView):TListItem;
|
006FE521 E85A29D8FF call 00480E80
* Reference to field TPJNewModFrm.OFFS_03A8
|
006FE526 8983A8030000 mov [ebx+$03A8], eax
006FE52C 5B pop ebx
006FE52D C3 ret
*)
end;
procedure TPJNewModFrm.ListView3Change(Sender : TObject);
begin
(*
006FE530 55 push ebp
006FE531 8BEC mov ebp, esp
006FE533 8BD0 mov edx, eax
* Reference to : TPJNewModFrm.ListView3Click()
|
006FE535 E8DEFFFFFF call 006FE518
006FE53A 5D pop ebp
006FE53B C20400 ret $0004
*)
end;
procedure TPJNewModFrm.BitBtn2Click(Sender : TObject);
begin
(*
006FE540 55 push ebp
006FE541 8BEC mov ebp, esp
006FE543 6A00 push $00
006FE545 6A00 push $00
006FE547 6A00 push $00
006FE549 53 push ebx
006FE54A 56 push esi
006FE54B 57 push edi
006FE54C 8BD8 mov ebx, eax
006FE54E 33C0 xor eax, eax
006FE550 55 push ebp
* Possible String Reference to: '⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -