📄 main.pas
字号:
|
00583704 8B1500055300 mov edx, [$00530500]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
0058370A E8DD5AEEFF call 004691EC
0058370F 8B03 mov eax, [ebx]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
00583711 E8C225EEFF call 00465CD8
* Reference to TScreen instance
|
00583716 A194865800 mov eax, dword ptr [$00588694]
0058371B 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
0058371D E8A235EEFF call 00466CC4
00583722 8B13 mov edx, [ebx]
00583724 2B424C sub eax, dword ptr [edx+$4C]
00583727 B903000000 mov ecx, $00000003
0058372C 99 cdq
0058372D F7F9 idiv ecx
0058372F 8BD0 mov edx, eax
00583731 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
00583733 E8A04FECFF call 004486D8
* Reference to TScreen instance
|
00583738 A194865800 mov eax, dword ptr [$00588694]
0058373D 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
0058373F E88C35EEFF call 00466CD0
00583744 8BD0 mov edx, eax
00583746 8B03 mov eax, [ebx]
00583748 2B5048 sub edx, dword ptr [eax+$48]
0058374B D1FA sar edx, 1
0058374D 7903 jns 00583752
0058374F 83D200 adc edx, +$00
00583752 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
00583754 E85B4FECFF call 004486B4
00583759 5B pop ebx
0058375A C3 ret
*)
end;
procedure Tmainform.M1Click(Sender : TObject);
begin
(*
0058375C 53 push ebx
* Reference to pointer to GlobalVar_00589FA4
|
0058375D 8B1D30835800 mov ebx, [$00588330]
00583763 8BCB mov ecx, ebx
* Reference to TApplication instance
|
00583765 A124835800 mov eax, dword ptr [$00588324]
0058376A 8B00 mov eax, [eax]
* Reference to class Tlentdiscmb
|
0058376C 8B15B4725300 mov edx, [$005372B4]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
00583772 E8755AEEFF call 004691EC
00583777 8B03 mov eax, [ebx]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
00583779 E85A25EEFF call 00465CD8
* Reference to TScreen instance
|
0058377E A194865800 mov eax, dword ptr [$00588694]
00583783 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
00583785 E83A35EEFF call 00466CC4
0058378A 8B13 mov edx, [ebx]
0058378C 2B424C sub eax, dword ptr [edx+$4C]
0058378F B903000000 mov ecx, $00000003
00583794 99 cdq
00583795 F7F9 idiv ecx
00583797 8BD0 mov edx, eax
00583799 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
0058379B E8384FECFF call 004486D8
* Reference to TScreen instance
|
005837A0 A194865800 mov eax, dword ptr [$00588694]
005837A5 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
005837A7 E82435EEFF call 00466CD0
005837AC 8BD0 mov edx, eax
005837AE 8B03 mov eax, [ebx]
005837B0 2B5048 sub edx, dword ptr [eax+$48]
005837B3 D1FA sar edx, 1
005837B5 7903 jns 005837BA
005837B7 83D200 adc edx, +$00
005837BA 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
005837BC E8F34EECFF call 004486B4
005837C1 5B pop ebx
005837C2 C3 ret
*)
end;
procedure Tmainform.N11Click(Sender : TObject);
begin
(*
005837C4 53 push ebx
* Reference to pointer to GlobalVar_00589FB0
|
005837C5 8B1D88865800 mov ebx, [$00588688]
005837CB 8BCB mov ecx, ebx
* Reference to TApplication instance
|
005837CD A124835800 mov eax, dword ptr [$00588324]
005837D2 8B00 mov eax, [eax]
* Reference to class Tsalediscmb
|
005837D4 8B1590895300 mov edx, [$00538990]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
005837DA E80D5AEEFF call 004691EC
005837DF 8B03 mov eax, [ebx]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
005837E1 E8F224EEFF call 00465CD8
* Reference to TScreen instance
|
005837E6 A194865800 mov eax, dword ptr [$00588694]
005837EB 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
005837ED E8D234EEFF call 00466CC4
005837F2 8B13 mov edx, [ebx]
005837F4 2B424C sub eax, dword ptr [edx+$4C]
005837F7 B903000000 mov ecx, $00000003
005837FC 99 cdq
005837FD F7F9 idiv ecx
005837FF 8BD0 mov edx, eax
00583801 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
00583803 E8D04EECFF call 004486D8
* Reference to TScreen instance
|
00583808 A194865800 mov eax, dword ptr [$00588694]
0058380D 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
0058380F E8BC34EEFF call 00466CD0
00583814 8BD0 mov edx, eax
00583816 8B03 mov eax, [ebx]
00583818 2B5048 sub edx, dword ptr [eax+$48]
0058381B D1FA sar edx, 1
0058381D 7903 jns 00583822
0058381F 83D200 adc edx, +$00
00583822 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
00583824 E88B4EECFF call 004486B4
00583829 5B pop ebx
0058382A C3 ret
*)
end;
procedure Tmainform.W1Click(Sender : TObject);
begin
(*
0058382C 53 push ebx
* Reference to pointer to GlobalVar_00589FBC
|
0058382D 8B1DA0825800 mov ebx, [$005882A0]
00583833 8BCB mov ecx, ebx
* Reference to TApplication instance
|
00583835 A124835800 mov eax, dword ptr [$00588324]
0058383A 8B00 mov eax, [eax]
* Reference to class Twantbuy
|
0058383C 8B15E4A35300 mov edx, [$0053A3E4]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
00583842 E8A559EEFF call 004691EC
00583847 8B03 mov eax, [ebx]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
00583849 E88A24EEFF call 00465CD8
* Reference to TScreen instance
|
0058384E A194865800 mov eax, dword ptr [$00588694]
00583853 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
00583855 E86A34EEFF call 00466CC4
0058385A 8B13 mov edx, [ebx]
0058385C 2B424C sub eax, dword ptr [edx+$4C]
0058385F B903000000 mov ecx, $00000003
00583864 99 cdq
00583865 F7F9 idiv ecx
00583867 8BD0 mov edx, eax
00583869 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
0058386B E8684EECFF call 004486D8
* Reference to TScreen instance
|
00583870 A194865800 mov eax, dword ptr [$00588694]
00583875 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
00583877 E85434EEFF call 00466CD0
0058387C 8BD0 mov edx, eax
0058387E 8B03 mov eax, [ebx]
00583880 2B5048 sub edx, dword ptr [eax+$48]
00583883 D1FA sar edx, 1
00583885 7903 jns 0058388A
00583887 83D200 adc edx, +$00
0058388A 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
0058388C E8234EECFF call 004486B4
00583891 5B pop ebx
00583892 C3 ret
*)
end;
procedure Tmainform.N17Click(Sender : TObject);
begin
(*
00583894 53 push ebx
* Reference to pointer to GlobalVar_00589FC8
|
00583895 8B1DDC845800 mov ebx, [$005884DC]
0058389B 8BCB mov ecx, ebx
* Reference to TApplication instance
|
0058389D A124835800 mov eax, dword ptr [$00588324]
005838A2 8B00 mov eax, [eax]
* Reference to class Tnoin
|
005838A4 8B1580DF5300 mov edx, [$0053DF80]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
005838AA E83D59EEFF call 004691EC
005838AF 8B03 mov eax, [ebx]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
005838B1 E82224EEFF call 00465CD8
* Reference to TScreen instance
|
005838B6 A194865800 mov eax, dword ptr [$00588694]
005838BB 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
005838BD E80234EEFF call 00466CC4
005838C2 8B13 mov edx, [ebx]
005838C4 2B424C sub eax, dword ptr [edx+$4C]
005838C7 B903000000 mov ecx, $00000003
005838CC 99 cdq
005838CD F7F9 idiv ecx
005838CF 8BD0 mov edx, eax
005838D1 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
005838D3 E8004EECFF call 004486D8
* Reference to TScreen instance
|
005838D8 A194865800 mov eax, dword ptr [$00588694]
005838DD 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
005838DF E8EC33EEFF call 00466CD0
005838E4 8BD0 mov edx, eax
005838E6 8B03 mov eax, [ebx]
005838E8 2B5048 sub edx, dword ptr [eax+$48]
005838EB D1FA sar edx, 1
005838ED 7903 jns 005838F2
005838EF 83D200 adc edx, +$00
005838F2 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
005838F4 E8BB4DECFF call 004486B4
005838F9 5B pop ebx
005838FA C3 ret
*)
end;
procedure Tmainform.N19Click(Sender : TObject);
begin
(*
005838FC 53 push ebx
* Reference to pointer to GlobalVar_00589FD0
|
005838FD 8B1D6C815800 mov ebx, [$0058816C]
00583903 8BCB mov ecx, ebx
* Reference to TApplication instance
|
00583905 A124835800 mov eax, dword ptr [$00588324]
0058390A 8B00 mov eax, [eax]
* Reference to class Twantbuyre
|
0058390C 8B1558E95300 mov edx, [$0053E958]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
00583912 E8D558EEFF call 004691EC
00583917 8B03 mov eax, [ebx]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
00583919 E8BA23EEFF call 00465CD8
* Reference to TScreen instance
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -