📄 main.pas
字号:
005832D7 83D200 adc edx, +$00
005832DA 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
005832DC E8D353ECFF call 004486B4
005832E1 5B pop ebx
005832E2 C3 ret
*)
end;
procedure Tmainform.D1Click(Sender : TObject);
begin
(*
005832E4 53 push ebx
* Reference to pointer to GlobalVar_00589DA8
|
005832E5 8B1D147F5800 mov ebx, [$00587F14]
005832EB 8BCB mov ecx, ebx
* Reference to TApplication instance
|
005832ED A124835800 mov eax, dword ptr [$00588324]
005832F2 8B00 mov eax, [eax]
* Reference to class Tdatasave
|
005832F4 8B15D4BA4D00 mov edx, [$004DBAD4]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
005832FA E8ED5EEEFF call 004691EC
005832FF 8B03 mov eax, [ebx]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
00583301 E8D229EEFF call 00465CD8
* Reference to TScreen instance
|
00583306 A194865800 mov eax, dword ptr [$00588694]
0058330B 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
0058330D E8B239EEFF call 00466CC4
00583312 8B13 mov edx, [ebx]
00583314 2B424C sub eax, dword ptr [edx+$4C]
00583317 B903000000 mov ecx, $00000003
0058331C 99 cdq
0058331D F7F9 idiv ecx
0058331F 8BD0 mov edx, eax
00583321 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
00583323 E8B053ECFF call 004486D8
* Reference to TScreen instance
|
00583328 A194865800 mov eax, dword ptr [$00588694]
0058332D 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
0058332F E89C39EEFF call 00466CD0
00583334 8BD0 mov edx, eax
00583336 8B03 mov eax, [ebx]
00583338 2B5048 sub edx, dword ptr [eax+$48]
0058333B D1FA sar edx, 1
0058333D 7903 jns 00583342
0058333F 83D200 adc edx, +$00
00583342 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
00583344 E86B53ECFF call 004486B4
00583349 5B pop ebx
0058334A C3 ret
*)
end;
procedure Tmainform.U1Click(Sender : TObject);
begin
(*
0058334C 53 push ebx
* Reference to pointer to GlobalVar_00589F2C
|
0058334D 8B1DF0805800 mov ebx, [$005880F0]
00583353 8BCB mov ecx, ebx
* Reference to TApplication instance
|
00583355 A124835800 mov eax, dword ptr [$00588324]
0058335A 8B00 mov eax, [eax]
* Reference to class Tusers
|
0058335C 8B1524575100 mov edx, [$00515724]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
00583362 E8855EEEFF call 004691EC
00583367 8B03 mov eax, [ebx]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
00583369 E86A29EEFF call 00465CD8
* Reference to TScreen instance
|
0058336E A194865800 mov eax, dword ptr [$00588694]
00583373 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
00583375 E84A39EEFF call 00466CC4
0058337A 8B13 mov edx, [ebx]
0058337C 2B424C sub eax, dword ptr [edx+$4C]
0058337F B903000000 mov ecx, $00000003
00583384 99 cdq
00583385 F7F9 idiv ecx
00583387 8BD0 mov edx, eax
00583389 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
0058338B E84853ECFF call 004486D8
* Reference to TScreen instance
|
00583390 A194865800 mov eax, dword ptr [$00588694]
00583395 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
00583397 E83439EEFF call 00466CD0
0058339C 8BD0 mov edx, eax
0058339E 8B03 mov eax, [ebx]
005833A0 2B5048 sub edx, dword ptr [eax+$48]
005833A3 D1FA sar edx, 1
005833A5 7903 jns 005833AA
005833A7 83D200 adc edx, +$00
005833AA 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
005833AC E80353ECFF call 004486B4
005833B1 5B pop ebx
005833B2 C3 ret
*)
end;
procedure Tmainform.C1Click(Sender : TObject);
begin
(*
005833B4 53 push ebx
* Reference to pointer to GlobalVar_00589F38
|
005833B5 8B1D107F5800 mov ebx, [$00587F10]
005833BB 8BCB mov ecx, ebx
* Reference to TApplication instance
|
005833BD A124835800 mov eax, dword ptr [$00588324]
005833C2 8B00 mov eax, [eax]
* Reference to class Tmemclass
|
005833C4 8B1578AE5100 mov edx, [$0051AE78]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
005833CA E81D5EEEFF call 004691EC
005833CF 8B03 mov eax, [ebx]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
005833D1 E80229EEFF call 00465CD8
* Reference to TScreen instance
|
005833D6 A194865800 mov eax, dword ptr [$00588694]
005833DB 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
005833DD E8E238EEFF call 00466CC4
005833E2 8B13 mov edx, [ebx]
005833E4 2B424C sub eax, dword ptr [edx+$4C]
005833E7 B903000000 mov ecx, $00000003
005833EC 99 cdq
005833ED F7F9 idiv ecx
005833EF 8BD0 mov edx, eax
005833F1 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
005833F3 E8E052ECFF call 004486D8
* Reference to TScreen instance
|
005833F8 A194865800 mov eax, dword ptr [$00588694]
005833FD 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
005833FF E8CC38EEFF call 00466CD0
00583404 8BD0 mov edx, eax
00583406 8B03 mov eax, [ebx]
00583408 2B5048 sub edx, dword ptr [eax+$48]
0058340B D1FA sar edx, 1
0058340D 7903 jns 00583412
0058340F 83D200 adc edx, +$00
00583412 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
00583414 E89B52ECFF call 004486B4
00583419 5B pop ebx
0058341A C3 ret
*)
end;
procedure Tmainform.N13Click(Sender : TObject);
begin
(*
0058341C 53 push ebx
* Reference to pointer to GlobalVar_00589F44
|
0058341D 8B1D407E5800 mov ebx, [$00587E40]
00583423 8BCB mov ecx, ebx
* Reference to TApplication instance
|
00583425 A124835800 mov eax, dword ptr [$00588324]
0058342A 8B00 mov eax, [eax]
* Reference to class Tpro
|
0058342C 8B1550C75100 mov edx, [$0051C750]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
00583432 E8B55DEEFF call 004691EC
00583437 8B03 mov eax, [ebx]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
00583439 E89A28EEFF call 00465CD8
* Reference to TScreen instance
|
0058343E A194865800 mov eax, dword ptr [$00588694]
00583443 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
00583445 E87A38EEFF call 00466CC4
0058344A 8B13 mov edx, [ebx]
0058344C 2B424C sub eax, dword ptr [edx+$4C]
0058344F B903000000 mov ecx, $00000003
00583454 99 cdq
00583455 F7F9 idiv ecx
00583457 8BD0 mov edx, eax
00583459 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
0058345B E87852ECFF call 004486D8
* Reference to TScreen instance
|
00583460 A194865800 mov eax, dword ptr [$00588694]
00583465 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
00583467 E86438EEFF call 00466CD0
0058346C 8BD0 mov edx, eax
0058346E 8B03 mov eax, [ebx]
00583470 2B5048 sub edx, dword ptr [eax+$48]
00583473 D1FA sar edx, 1
00583475 7903 jns 0058347A
00583477 83D200 adc edx, +$00
0058347A 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
0058347C E83352ECFF call 004486B4
00583481 5B pop ebx
00583482 C3 ret
*)
end;
procedure Tmainform.N14Click(Sender : TObject);
begin
(*
00583484 53 push ebx
* Reference to pointer to GlobalVar_00589F50
|
00583485 8B1D4C805800 mov ebx, [$0058804C]
0058348B 8BCB mov ecx, ebx
* Reference to TApplication instance
|
0058348D A124835800 mov eax, dword ptr [$00588324]
00583492 8B00 mov eax, [eax]
* Reference to class Tdiscclass
|
00583494 8B15D8F65100 mov edx, [$0051F6D8]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
0058349A E84D5DEEFF call 004691EC
0058349F 8B03 mov eax, [ebx]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
005834A1 E83228EEFF call 00465CD8
* Reference to TScreen instance
|
005834A6 A194865800 mov eax, dword ptr [$00588694]
005834AB 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
005834AD E81238EEFF call 00466CC4
005834B2 8B13 mov edx, [ebx]
005834B4 2B424C sub eax, dword ptr [edx+$4C]
005834B7 B903000000 mov ecx, $00000003
005834BC 99 cdq
005834BD F7F9 idiv ecx
005834BF 8BD0 mov edx, eax
005834C1 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
005834C3 E81052ECFF call 004486D8
* Reference to TScreen instance
|
005834C8 A194865800 mov eax, dword ptr [$00588694]
005834CD 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
005834CF E8FC37EEFF call 00466CD0
005834D4 8BD0 mov edx, eax
005834D6 8B03 mov eax, [ebx]
005834D8 2B5048 sub edx, dword ptr [eax+$48]
005834DB D1FA sar edx, 1
005834DD 7903 jns 005834E2
005834DF 83D200 adc edx, +$00
005834E2 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
005834E4 E8CB51ECFF call 004486B4
005834E9 5B pop ebx
005834EA C3 ret
*)
end;
procedure Tmainform.G1Click(Sender : TObject);
begin
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -