assitant.pas
来自「一套反出来的股票分析软件,对于分析程序结构和数据结构有一定的帮助.」· PAS 代码 · 共 729 行 · 第 1/2 页
PAS
729 行
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006B347D E83A2CDAFF call 004560BC
006B3482 5B pop ebx
006B3483 C3 ret
*)
end;
procedure TfrmAssistant.FormKeyDown(Sender : TObject);
begin
(*
006B3484 55 push ebp
006B3485 8BEC mov ebp, esp
006B3487 53 push ebx
006B3488 56 push esi
006B3489 8BD9 mov ebx, ecx
006B348B 8BF0 mov esi, eax
006B348D 66833B0D cmp word ptr [ebx], +$0D
006B3491 7406 jz 006B3499
006B3493 66833B1B cmp word ptr [ebx], +$1B
006B3497 7507 jnz 006B34A0
006B3499 8BC6 mov eax, esi
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006B349B E81C2CDAFF call 004560BC
* Reference to THJ32Main instance
|
006B34A0 A158D37700 mov eax, dword ptr [$0077D358]
006B34A5 8B00 mov eax, [eax]
* Reference to: forms.TCustomForm.GetActiveMDIChild(TCustomForm):TForm;
|
006B34A7 E88C04DAFF call 00453938
006B34AC 85C0 test eax, eax
006B34AE 7424 jz 006B34D4
006B34B0 8A4508 mov al, byte ptr [ebp+$08]
006B34B3 50 push eax
* Reference to THJ32Main instance
|
006B34B4 A158D37700 mov eax, dword ptr [$0077D358]
006B34B9 8B00 mov eax, [eax]
* Reference to: forms.TCustomForm.GetActiveMDIChild(TCustomForm):TForm;
|
006B34BB E87804DAFF call 00453938
* Reference to class THJForm
|
006B34C0 8B1544027500 mov edx, [$00750244]
* Reference to: system.@AsClass;
|
006B34C6 E891FFD4FF call 0040345C
006B34CB 8BCB mov ecx, ebx
006B34CD 8BD6 mov edx, esi
* Reference to : THJForm._PROC_00750B80()
|
006B34CF E8ACD60900 call 00750B80
006B34D4 5E pop esi
006B34D5 5B pop ebx
006B34D6 5D pop ebp
006B34D7 C20400 ret $0004
*)
end;
procedure TfrmAssistant.Timer2Timer(Sender : TObject);
begin
(*
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006B34DC E8DB2BDAFF call 004560BC
006B34E1 C3 ret
*)
end;
procedure TfrmAssistant.FormKeyPress(Sender : TObject);
begin
(*
006B34E4 53 push ebx
006B34E5 56 push esi
006B34E6 8BF1 mov esi, ecx
006B34E8 8BD8 mov ebx, eax
* Reference to THJ32Main instance
|
006B34EA A158D37700 mov eax, dword ptr [$0077D358]
006B34EF 8B00 mov eax, [eax]
* Reference to: forms.TCustomForm.GetActiveMDIChild(TCustomForm):TForm;
|
006B34F1 E84204DAFF call 00453938
006B34F6 85C0 test eax, eax
006B34F8 7420 jz 006B351A
* Reference to THJ32Main instance
|
006B34FA A158D37700 mov eax, dword ptr [$0077D358]
006B34FF 8B00 mov eax, [eax]
* Reference to: forms.TCustomForm.GetActiveMDIChild(TCustomForm):TForm;
|
006B3501 E83204DAFF call 00453938
* Reference to class THJForm
|
006B3506 8B1544027500 mov edx, [$00750244]
* Reference to: system.@AsClass;
|
006B350C E84BFFD4FF call 0040345C
006B3511 8BCE mov ecx, esi
006B3513 8BD3 mov edx, ebx
* Reference to : THJForm._PROC_00750928()
|
006B3515 E80ED40900 call 00750928
006B351A 5E pop esi
006B351B 5B pop ebx
006B351C C3 ret
*)
end;
procedure TfrmAssistant._PROC_006B3000(Sender : TObject);
begin
(*
006B3000 55 push ebp
006B3001 8BEC mov ebp, esp
006B3003 6A00 push $00
006B3005 53 push ebx
006B3006 56 push esi
006B3007 57 push edi
006B3008 8BFA mov edi, edx
006B300A 8BD8 mov ebx, eax
006B300C 33C0 xor eax, eax
006B300E 55 push ebp
006B300F 6880316B00 push $006B3180
***** TRY
|
006B3014 64FF30 push dword ptr fs:[eax]
006B3017 648920 mov fs:[eax], esp
* Reference to THJ32Main instance
|
006B301A A158D37700 mov eax, dword ptr [$0077D358]
006B301F 8B00 mov eax, [eax]
* Reference to field THJ32Main.OFFS_08B5 : Byte
|
006B3021 80B8B508000000 cmp byte ptr [eax+$08B5], $00
006B3028 0F8421010000 jz 006B314F
006B302E 8BC7 mov eax, edi
006B3030 6683E802 sub ax, +$02
006B3034 7407 jz 006B303D
006B3036 66FFC8 dec ax
006B3039 741D jz 006B3058
006B303B EB2A jmp 006B3067
006B303D BA02000000 mov edx, $00000002
006B3042 8BC3 mov eax, ebx
* Reference to: controls.TControl.SetLeft(TControl;Integer);
|
006B3044 E8FB61D8FF call 00439244
006B3049 8D45FC lea eax, [ebp-$04]
* Possible String Reference to: 'SSJP2.GIF'
|
006B304C BA98316B00 mov edx, $006B3198
* Reference to: system.@LStrLAsg;
|
006B3051 E83611D5FF call 0040418C
006B3056 EB1C jmp 006B3074
006B3058 8D45FC lea eax, [ebp-$04]
* Possible String Reference to: 'SSJP3.GIF'
|
006B305B BAAC316B00 mov edx, $006B31AC
* Reference to: system.@LStrLAsg;
|
006B3060 E82711D5FF call 0040418C
006B3065 EB0D jmp 006B3074
006B3067 8D45FC lea eax, [ebp-$04]
* Possible String Reference to: 'SSJP1.GIF'
|
006B306A BAC0316B00 mov edx, $006B31C0
* Reference to: system.@LStrLAsg;
|
006B306F E81811D5FF call 0040418C
* Reference to pointer to GlobalVar_0078CEF8
|
006B3074 A1B4D57700 mov eax, dword ptr [$0077D5B4]
006B3079 FF30 push dword ptr [eax]
* Possible String Reference to: 'face\'
|
006B307B 68D4316B00 push $006B31D4
006B3080 FF75FC push dword ptr [ebp-$04]
006B3083 8D45FC lea eax, [ebp-$04]
006B3086 BA03000000 mov edx, $00000003
* Reference to: system.@LStrCatN;
|
006B308B E8C013D5FF call 00404450
006B3090 8B45FC mov eax, [ebp-$04]
* Reference to: Unit_00409434.Proc_0040A8BC
|
006B3093 E82478D5FF call 0040A8BC
006B3098 84C0 test al, al
006B309A 0F84AF000000 jz 006B314F
006B30A0 8BCB mov ecx, ebx
006B30A2 B201 mov dl, $01
* Reference to class TfrmCartoon
|
006B30A4 A1782A6B00 mov eax, dword ptr [$006B2A78]
* Reference to: forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
006B30A9 E82EF2D9FF call 004522DC
006B30AE 8BF0 mov esi, eax
* Reference to TScreen instance
|
006B30B0 A11CD57700 mov eax, dword ptr [$0077D51C]
006B30B5 8B00 mov eax, [eax]
* Reference to: forms.TScreen.GetDesktopLeft(TScreen):Integer;
|
006B30B7 E85040DAFF call 0045710C
006B30BC 50 push eax
* Reference to TScreen instance
|
006B30BD A11CD57700 mov eax, dword ptr [$0077D51C]
006B30C2 8B00 mov eax, [eax]
* Reference to: forms.TScreen.GetDesktopWidth(TScreen):Integer;
|
006B30C4 E85B40DAFF call 00457124
006B30C9 5A pop edx
006B30CA 03D0 add edx, eax
006B30CC 83EA0A sub edx, +$0A
006B30CF 83EA5F sub edx, +$5F
006B30D2 2B5338 sub edx, dword ptr [ebx+$38]
006B30D5 8BC6 mov eax, esi
* Reference to: controls.TControl.SetLeft(TControl;Integer);
|
006B30D7 E86861D8FF call 00439244
006B30DC 6683FF02 cmp di, +$02
006B30E0 7519 jnz 006B30FB
006B30E2 BA02000000 mov edx, $00000002
006B30E7 8BC6 mov eax, esi
* Reference to: controls.TControl.SetLeft(TControl;Integer);
|
006B30E9 E85661D8FF call 00439244
* Reference to field TfrmCartoon.Left : Integer
|
006B30EE 8B5630 mov edx, [esi+$30]
006B30F1 035638 add edx, [esi+$38]
006B30F4 8BC3 mov eax, ebx
* Reference to: controls.TControl.SetLeft(TControl;Integer);
|
006B30F6 E84961D8FF call 00439244
* Reference to TScreen instance
|
006B30FB A11CD57700 mov eax, dword ptr [$0077D51C]
006B3100 8B00 mov eax, [eax]
* Reference to: forms.TScreen.GetDesktopTop(TScreen):Integer;
|
006B3102 E8F93FDAFF call 00457100
006B3107 8BF8 mov edi, eax
* Reference to TScreen instance
|
006B3109 A11CD57700 mov eax, dword ptr [$0077D51C]
006B310E 8B00 mov eax, [eax]
* Reference to: forms.TScreen.GetDesktopHeight(TScreen):Integer;
|
006B3110 E80340DAFF call 00457118
006B3115 03F8 add edi, eax
006B3117 8BD7 mov edx, edi
006B3119 83EA1E sub edx, +$1E
006B311C 2B563C sub edx, dword ptr [esi+$3C]
006B311F 8BC6 mov eax, esi
* Reference to: controls.TControl.SetTop(TControl;Integer);
|
006B3121 E83E61D8FF call 00439264
006B3126 8B55FC mov edx, [ebp-$04]
006B3129 8BC6 mov eax, esi
* Reference to : TfrmCartoon._PROC_006B2C34()
|
006B312B E804FBFFFF call 006B2C34
006B3130 8BC6 mov eax, esi
* Reference to: forms.TCustomForm.Show(TCustomForm);
|
006B3132 E83D31DAFF call 00456274
* Reference to TScreen instance
|
006B3137 A11CD57700 mov eax, dword ptr [$0077D51C]
006B313C 8B00 mov eax, [eax]
* Reference to: forms.TScreen.GetHeight(TScreen):Integer;
|
006B313E E8A53FDAFF call 004570E8
006B3143 8BD0 mov edx, eax
006B3145 03563C add edx, [esi+$3C]
006B3148 8BC3 mov eax, ebx
* Reference to: controls.TControl.SetTop(TControl;Integer);
|
006B314A E81561D8FF call 00439264
* Reference to TScreen instance
|
006B314F A11CD57700 mov eax, dword ptr [$0077D51C]
006B3154 8B00 mov eax, [eax]
* Reference to: forms.TScreen.GetHeight(TScreen):Integer;
|
006B3156 E88D3FDAFF call 004570E8
006B315B 8BD0 mov edx, eax
006B315D 2B533C sub edx, dword ptr [ebx+$3C]
006B3160 83EA1E sub edx, +$1E
006B3163 8BC3 mov eax, ebx
* Reference to: controls.TControl.SetTop(TControl;Integer);
|
006B3165 E8FA60D8FF call 00439264
006B316A 33C0 xor eax, eax
006B316C 5A pop edx
006B316D 59 pop ecx
006B316E 59 pop ecx
006B316F 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[Y]⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?