📄 main.pas
字号:
|
0058391E A194865800 mov eax, dword ptr [$00588694]
00583923 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
00583925 E89A33EEFF call 00466CC4
0058392A 8B13 mov edx, [ebx]
0058392C 2B424C sub eax, dword ptr [edx+$4C]
0058392F B903000000 mov ecx, $00000003
00583934 99 cdq
00583935 F7F9 idiv ecx
00583937 8BD0 mov edx, eax
00583939 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
0058393B E8984DECFF call 004486D8
* Reference to TScreen instance
|
00583940 A194865800 mov eax, dword ptr [$00588694]
00583945 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
00583947 E88433EEFF call 00466CD0
0058394C 8BD0 mov edx, eax
0058394E 8B03 mov eax, [ebx]
00583950 2B5048 sub edx, dword ptr [eax+$48]
00583953 D1FA sar edx, 1
00583955 7903 jns 0058395A
00583957 83D200 adc edx, +$00
0058395A 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
0058395C E8534DECFF call 004486B4
00583961 5B pop ebx
00583962 C3 ret
*)
end;
procedure Tmainform.B2Click(Sender : TObject);
begin
(*
00583964 53 push ebx
* Reference to pointer to GlobalVar_0058A004
|
00583965 8B1D14855800 mov ebx, [$00588514]
0058396B 8BCB mov ecx, ebx
* Reference to TApplication instance
|
0058396D A124835800 mov eax, dword ptr [$00588324]
00583972 8B00 mov eax, [eax]
* Reference to class Tmembuysort
|
00583974 8B15241A5600 mov edx, [$00561A24]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
0058397A E86D58EEFF call 004691EC
0058397F 8B03 mov eax, [ebx]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
00583981 E85223EEFF call 00465CD8
* Reference to TScreen instance
|
00583986 A194865800 mov eax, dword ptr [$00588694]
0058398B 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
0058398D E83233EEFF call 00466CC4
00583992 8B13 mov edx, [ebx]
00583994 2B424C sub eax, dword ptr [edx+$4C]
00583997 B903000000 mov ecx, $00000003
0058399C 99 cdq
0058399D F7F9 idiv ecx
0058399F 8BD0 mov edx, eax
005839A1 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
005839A3 E8304DECFF call 004486D8
* Reference to TScreen instance
|
005839A8 A194865800 mov eax, dword ptr [$00588694]
005839AD 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
005839AF E81C33EEFF call 00466CD0
005839B4 8BD0 mov edx, eax
005839B6 8B03 mov eax, [ebx]
005839B8 2B5048 sub edx, dword ptr [eax+$48]
005839BB D1FA sar edx, 1
005839BD 7903 jns 005839C2
005839BF 83D200 adc edx, +$00
005839C2 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
005839C4 E8EB4CECFF call 004486B4
005839C9 5B pop ebx
005839CA C3 ret
*)
end;
procedure Tmainform.H2Click(Sender : TObject);
begin
(*
005839CC 53 push ebx
* Reference to pointer to GlobalVar_0058A00C
|
005839CD 8B1D0C835800 mov ebx, [$0058830C]
005839D3 8BCB mov ecx, ebx
* Reference to TApplication instance
|
005839D5 A124835800 mov eax, dword ptr [$00588324]
005839DA 8B00 mov eax, [eax]
* Reference to class Tmemlentsort
|
005839DC 8B1598395600 mov edx, [$00563998]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
005839E2 E80558EEFF call 004691EC
005839E7 8B03 mov eax, [ebx]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
005839E9 E8EA22EEFF call 00465CD8
* Reference to TScreen instance
|
005839EE A194865800 mov eax, dword ptr [$00588694]
005839F3 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
005839F5 E8CA32EEFF call 00466CC4
005839FA 8B13 mov edx, [ebx]
005839FC 2B424C sub eax, dword ptr [edx+$4C]
005839FF B903000000 mov ecx, $00000003
00583A04 99 cdq
00583A05 F7F9 idiv ecx
00583A07 8BD0 mov edx, eax
00583A09 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
00583A0B E8C84CECFF call 004486D8
* Reference to TScreen instance
|
00583A10 A194865800 mov eax, dword ptr [$00588694]
00583A15 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
00583A17 E8B432EEFF call 00466CD0
00583A1C 8BD0 mov edx, eax
00583A1E 8B03 mov eax, [ebx]
00583A20 2B5048 sub edx, dword ptr [eax+$48]
00583A23 D1FA sar edx, 1
00583A25 7903 jns 00583A2A
00583A27 83D200 adc edx, +$00
00583A2A 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
00583A2C E8834CECFF call 004486B4
00583A31 5B pop ebx
00583A32 C3 ret
*)
end;
procedure Tmainform.L5Click(Sender : TObject);
begin
(*
00583A34 53 push ebx
* Reference to pointer to GlobalVar_0058A014
|
00583A35 8B1DB07C5800 mov ebx, [$00587CB0]
00583A3B 8BCB mov ecx, ebx
* Reference to TApplication instance
|
00583A3D A124835800 mov eax, dword ptr [$00588324]
00583A42 8B00 mov eax, [eax]
* Reference to class Tdiscsalesort
|
00583A44 8B1510595600 mov edx, [$00565910]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
00583A4A E89D57EEFF call 004691EC
00583A4F 8B03 mov eax, [ebx]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
00583A51 E88222EEFF call 00465CD8
* Reference to TScreen instance
|
00583A56 A194865800 mov eax, dword ptr [$00588694]
00583A5B 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
00583A5D E86232EEFF call 00466CC4
00583A62 8B13 mov edx, [ebx]
00583A64 2B424C sub eax, dword ptr [edx+$4C]
00583A67 B903000000 mov ecx, $00000003
00583A6C 99 cdq
00583A6D F7F9 idiv ecx
00583A6F 8BD0 mov edx, eax
00583A71 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
00583A73 E8604CECFF call 004486D8
* Reference to TScreen instance
|
00583A78 A194865800 mov eax, dword ptr [$00588694]
00583A7D 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
00583A7F E84C32EEFF call 00466CD0
00583A84 8BD0 mov edx, eax
00583A86 8B03 mov eax, [ebx]
00583A88 2B5048 sub edx, dword ptr [eax+$48]
00583A8B D1FA sar edx, 1
00583A8D 7903 jns 00583A92
00583A8F 83D200 adc edx, +$00
00583A92 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
00583A94 E81B4CECFF call 004486B4
00583A99 5B pop ebx
00583A9A C3 ret
*)
end;
procedure Tmainform.S6Click(Sender : TObject);
begin
(*
00583A9C 53 push ebx
* Reference to pointer to GlobalVar_0058A01C
|
00583A9D 8B1D10845800 mov ebx, [$00588410]
00583AA3 8BCB mov ecx, ebx
* Reference to TApplication instance
|
00583AA5 A124835800 mov eax, dword ptr [$00588324]
00583AAA 8B00 mov eax, [eax]
* Reference to class Tdisclentsort
|
00583AAC 8B152C7B5600 mov edx, [$00567B2C]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
00583AB2 E83557EEFF call 004691EC
00583AB7 8B03 mov eax, [ebx]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
00583AB9 E81A22EEFF call 00465CD8
* Reference to TScreen instance
|
00583ABE A194865800 mov eax, dword ptr [$00588694]
00583AC3 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
00583AC5 E8FA31EEFF call 00466CC4
00583ACA 8B13 mov edx, [ebx]
00583ACC 2B424C sub eax, dword ptr [edx+$4C]
00583ACF B903000000 mov ecx, $00000003
00583AD4 99 cdq
00583AD5 F7F9 idiv ecx
00583AD7 8BD0 mov edx, eax
00583AD9 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
00583ADB E8F84BECFF call 004486D8
* Reference to TScreen instance
|
00583AE0 A194865800 mov eax, dword ptr [$00588694]
00583AE5 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
00583AE7 E8E431EEFF call 00466CD0
00583AEC 8BD0 mov edx, eax
00583AEE 8B03 mov eax, [ebx]
00583AF0 2B5048 sub edx, dword ptr [eax+$48]
00583AF3 D1FA sar edx, 1
00583AF5 7903 jns 00583AFA
00583AF7 83D200 adc edx, +$00
00583AFA 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
00583AFC E8B34BECFF call 004486B4
00583B01 5B pop ebx
00583B02 C3 ret
*)
end;
procedure Tmainform.S4Click(Sender : TObject);
begin
(*
00583B04 53 push ebx
* Reference to pointer to GlobalVar_0058A024
|
00583B05 8B1D88805800 mov ebx, [$00588088]
00583B0B 8BCB mov ecx, ebx
* Reference to TApplication instance
|
00583B0D A124835800 mov eax, dword ptr [$00588324]
00583B12 8B00 mov eax, [eax]
* Reference to class Twantbuymemony
|
00583B14 8B154C9D5600 mov edx, [$00569D4C]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
00583B1A E8CD56EEFF call 004691EC
00583B1F 8B03 mov eax, [ebx]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
00583B21 E8B221EEFF call 00465CD8
* Reference to TScreen instance
|
00583B26 A194865800 mov eax, dword ptr [$00588694]
00583B2B 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
00583B2D E89231EEFF call 00466CC4
00583B32 8B13 mov edx, [ebx]
00583B34 2B424C sub eax, dword ptr [edx+$4C]
00583B37 B903000000 mov ecx, $000000⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -