📄 main.pas
字号:
(*
005834EC 53 push ebx
* Reference to pointer to GlobalVar_00589F5C
|
005834ED 8B1DC8825800 mov ebx, [$005882C8]
005834F3 8BCB mov ecx, ebx
* Reference to TApplication instance
|
005834F5 A124835800 mov eax, dword ptr [$00588324]
005834FA 8B00 mov eax, [eax]
* Reference to class Tbiao
|
005834FC 8B1578035200 mov edx, [$00520378]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
00583502 E8E55CEEFF call 004691EC
00583507 8B03 mov eax, [ebx]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
00583509 E8CA27EEFF call 00465CD8
* Reference to TScreen instance
|
0058350E A194865800 mov eax, dword ptr [$00588694]
00583513 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
00583515 E8AA37EEFF call 00466CC4
0058351A 8B13 mov edx, [ebx]
0058351C 2B424C sub eax, dword ptr [edx+$4C]
0058351F B903000000 mov ecx, $00000003
00583524 99 cdq
00583525 F7F9 idiv ecx
00583527 8BD0 mov edx, eax
00583529 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
0058352B E8A851ECFF call 004486D8
* Reference to TScreen instance
|
00583530 A194865800 mov eax, dword ptr [$00588694]
00583535 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
00583537 E89437EEFF call 00466CD0
0058353C 8BD0 mov edx, eax
0058353E 8B03 mov eax, [ebx]
00583540 2B5048 sub edx, dword ptr [eax+$48]
00583543 D1FA sar edx, 1
00583545 7903 jns 0058354A
00583547 83D200 adc edx, +$00
0058354A 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
0058354C E86351ECFF call 004486B4
00583551 5B pop ebx
00583552 C3 ret
*)
end;
procedure Tmainform.N7Click(Sender : TObject);
begin
(*
00583554 53 push ebx
* Reference to pointer to GlobalVar_00589F70
|
00583555 8B1D747C5800 mov ebx, [$00587C74]
0058355B 8BCB mov ecx, ebx
* Reference to TApplication instance
|
0058355D A124835800 mov eax, dword ptr [$00588324]
00583562 8B00 mov eax, [eax]
* Reference to class Tinmem
|
00583564 8B15D41D5200 mov edx, [$00521DD4]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
0058356A E87D5CEEFF call 004691EC
0058356F 8B03 mov eax, [ebx]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
00583571 E86227EEFF call 00465CD8
* Reference to TScreen instance
|
00583576 A194865800 mov eax, dword ptr [$00588694]
0058357B 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
0058357D E84237EEFF call 00466CC4
00583582 8B13 mov edx, [ebx]
00583584 2B424C sub eax, dword ptr [edx+$4C]
00583587 B903000000 mov ecx, $00000003
0058358C 99 cdq
0058358D F7F9 idiv ecx
0058358F 8BD0 mov edx, eax
00583591 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
00583593 E84051ECFF call 004486D8
* Reference to TScreen instance
|
00583598 A194865800 mov eax, dword ptr [$00588694]
0058359D 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
0058359F E82C37EEFF call 00466CD0
005835A4 8BD0 mov edx, eax
005835A6 8B03 mov eax, [ebx]
005835A8 2B5048 sub edx, dword ptr [eax+$48]
005835AB D1FA sar edx, 1
005835AD 7903 jns 005835B2
005835AF 83D200 adc edx, +$00
005835B2 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
005835B4 E8FB50ECFF call 004486B4
005835B9 5B pop ebx
005835BA C3 ret
*)
end;
procedure Tmainform.N8Click(Sender : TObject);
begin
(*
005835BC 53 push ebx
* Reference to pointer to GlobalVar_00589F7C
|
005835BD 8B1D10865800 mov ebx, [$00588610]
005835C3 8BCB mov ecx, ebx
* Reference to TApplication instance
|
005835C5 A124835800 mov eax, dword ptr [$00588324]
005835CA 8B00 mov eax, [eax]
* Reference to class Tmemmb
|
005835CC 8B15E4745200 mov edx, [$005274E4]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
005835D2 E8155CEEFF call 004691EC
005835D7 8B03 mov eax, [ebx]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
005835D9 E8FA26EEFF call 00465CD8
* Reference to TScreen instance
|
005835DE A194865800 mov eax, dword ptr [$00588694]
005835E3 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
005835E5 E8DA36EEFF call 00466CC4
005835EA 8B13 mov edx, [ebx]
005835EC 2B424C sub eax, dword ptr [edx+$4C]
005835EF B903000000 mov ecx, $00000003
005835F4 99 cdq
005835F5 F7F9 idiv ecx
005835F7 8BD0 mov edx, eax
005835F9 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
005835FB E8D850ECFF call 004486D8
* Reference to TScreen instance
|
00583600 A194865800 mov eax, dword ptr [$00588694]
00583605 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
00583607 E8C436EEFF call 00466CD0
0058360C 8BD0 mov edx, eax
0058360E 8B03 mov eax, [ebx]
00583610 2B5048 sub edx, dword ptr [eax+$48]
00583613 D1FA sar edx, 1
00583615 7903 jns 0058361A
00583617 83D200 adc edx, +$00
0058361A 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
0058361C E89350ECFF call 004486B4
00583621 5B pop ebx
00583622 C3 ret
*)
end;
procedure Tmainform.V1Click(Sender : TObject);
begin
(*
00583624 53 push ebx
* Reference to pointer to GlobalVar_00589F84
|
00583625 8B1D087D5800 mov ebx, [$00587D08]
0058362B 8BCB mov ecx, ebx
* Reference to TApplication instance
|
0058362D A124835800 mov eax, dword ptr [$00588324]
00583632 8B00 mov eax, [eax]
* Reference to class Tworkroom
|
00583634 8B15A8935200 mov edx, [$005293A8]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
0058363A E8AD5BEEFF call 004691EC
0058363F 8B03 mov eax, [ebx]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
00583641 E89226EEFF call 00465CD8
* Reference to TScreen instance
|
00583646 A194865800 mov eax, dword ptr [$00588694]
0058364B 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
0058364D E87236EEFF call 00466CC4
00583652 8B13 mov edx, [ebx]
00583654 2B424C sub eax, dword ptr [edx+$4C]
00583657 B903000000 mov ecx, $00000003
0058365C 99 cdq
0058365D F7F9 idiv ecx
0058365F 8BD0 mov edx, eax
00583661 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
00583663 E87050ECFF call 004486D8
* Reference to TScreen instance
|
00583668 A194865800 mov eax, dword ptr [$00588694]
0058366D 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
0058366F E85C36EEFF call 00466CD0
00583674 8BD0 mov edx, eax
00583676 8B03 mov eax, [ebx]
00583678 2B5048 sub edx, dword ptr [eax+$48]
0058367B D1FA sar edx, 1
0058367D 7903 jns 00583682
0058367F 83D200 adc edx, +$00
00583682 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
00583684 E82B50ECFF call 004486B4
00583689 5B pop ebx
0058368A C3 ret
*)
end;
procedure Tmainform.L1Click(Sender : TObject);
begin
(*
0058368C 53 push ebx
* Reference to pointer to GlobalVar_00589F8C
|
0058368D 8B1DA87D5800 mov ebx, [$00587DA8]
00583693 8BCB mov ecx, ebx
* Reference to TApplication instance
|
00583695 A124835800 mov eax, dword ptr [$00588324]
0058369A 8B00 mov eax, [eax]
* Reference to class Tlentdisc
|
0058369C 8B15509E5200 mov edx, [$00529E50]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
005836A2 E8455BEEFF call 004691EC
005836A7 8B03 mov eax, [ebx]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
005836A9 E82A26EEFF call 00465CD8
* Reference to TScreen instance
|
005836AE A194865800 mov eax, dword ptr [$00588694]
005836B3 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
005836B5 E80A36EEFF call 00466CC4
005836BA 8B13 mov edx, [ebx]
005836BC 2B424C sub eax, dword ptr [edx+$4C]
005836BF B903000000 mov ecx, $00000003
005836C4 99 cdq
005836C5 F7F9 idiv ecx
005836C7 8BD0 mov edx, eax
005836C9 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
005836CB E80850ECFF call 004486D8
* Reference to TScreen instance
|
005836D0 A194865800 mov eax, dword ptr [$00588694]
005836D5 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
005836D7 E8F435EEFF call 00466CD0
005836DC 8BD0 mov edx, eax
005836DE 8B03 mov eax, [ebx]
005836E0 2B5048 sub edx, dword ptr [eax+$48]
005836E3 D1FA sar edx, 1
005836E5 7903 jns 005836EA
005836E7 83D200 adc edx, +$00
005836EA 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
005836EC E8C34FECFF call 004486B4
005836F1 5B pop ebx
005836F2 C3 ret
*)
end;
procedure Tmainform.S2Click(Sender : TObject);
begin
(*
005836F4 53 push ebx
* Reference to pointer to GlobalVar_00589F98
|
005836F5 8B1D24815800 mov ebx, [$00588124]
005836FB 8BCB mov ecx, ebx
* Reference to TApplication instance
|
005836FD A124835800 mov eax, dword ptr [$00588324]
00583702 8B00 mov eax, [eax]
* Reference to class Tsaledisc
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -