📄 billbrd.pas
字号:
00741C22 7F0C jnle 00741C30
00741C24 8BC3 mov eax, ebx
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
00741C26 E89144D1FF call 004560BC
00741C2B E994000000 jmp 00741CC4
00741C30 83F811 cmp eax, +$11
00741C33 7C35 jl 00741C6A
00741C35 3D8C000000 cmp eax, $0000008C
00741C3A 7F2E jnle 00741C6A
00741C3C 81FA73010000 cmp edx, $00000173
00741C42 7C26 jl 00741C6A
00741C44 81FA82010000 cmp edx, $00000182
00741C4A 7F1E jnle 00741C6A
* Reference to pointer to GlobalVar_007991D8
|
00741C4C A1A0D37700 mov eax, dword ptr [$0077D3A0]
00741C51 8B00 mov eax, [eax]
* Reference to field GlobalVar_007991D8.OFFS_001C
|
00741C53 83781C00 cmp dword ptr [eax+$1C], +$00
00741C57 746B jz 00741CC4
* Reference to pointer to GlobalVar_007991D8
|
00741C59 A1A0D37700 mov eax, dword ptr [$0077D3A0]
00741C5E 8B00 mov eax, [eax]
* Reference to field GlobalVar_007991D8.OFFS_001C
|
00741C60 8B401C mov eax, [eax+$1C]
* Reference to: Unit_00651A88.Proc_006543DC
|
00741C63 E87427F1FF call 006543DC
00741C68 EB5A jmp 00741CC4
00741C6A 3D2A010000 cmp eax, $0000012A
00741C6F 7C35 jl 00741CA6
00741C71 3D96010000 cmp eax, $00000196
00741C76 7F2E jnle 00741CA6
00741C78 81FA6C010000 cmp edx, $0000016C
00741C7E 7C26 jl 00741CA6
00741C80 81FA88010000 cmp edx, $00000188
00741C86 7F1E jnle 00741CA6
* Reference to pointer to GlobalVar_007991D8
|
00741C88 A1A0D37700 mov eax, dword ptr [$0077D3A0]
00741C8D 8B00 mov eax, [eax]
* Reference to field GlobalVar_007991D8.OFFS_0018
|
00741C8F 83781800 cmp dword ptr [eax+$18], +$00
00741C93 742F jz 00741CC4
* Reference to pointer to GlobalVar_007991D8
|
00741C95 A1A0D37700 mov eax, dword ptr [$0077D3A0]
00741C9A 8B00 mov eax, [eax]
* Reference to field GlobalVar_007991D8.OFFS_0018
|
00741C9C 8B4018 mov eax, [eax+$18]
* Reference to: Unit_00651A88.Proc_006543DC
|
00741C9F E83827F1FF call 006543DC
00741CA4 EB1E jmp 00741CC4
* Reference to: user32.ReleaseCapture()
|
00741CA6 E8E56FCCFF call 00408C90
00741CAB 6A00 push $00
00741CAD 6812F00000 push $0000F012
00741CB2 6812010000 push $00000112
00741CB7 8BC3 mov eax, ebx
* Reference to: controls.TWinControl.GetHandle(TWinControl):HWND;
|
00741CB9 E8CAE0CFFF call 0043FD88
00741CBE 50 push eax
* Reference to: user32.SendMessageA()
|
00741CBF E81470CCFF call 00408CD8
00741CC4 5B pop ebx
00741CC5 5D pop ebp
00741CC6 C20C00 ret $000C
*)
end;
procedure TfrmBillBrd.Image1MouseMove(Sender : TObject);
begin
(*
00741CCC 55 push ebp
00741CCD 8BEC mov ebp, esp
00741CCF 53 push ebx
00741CD0 56 push esi
00741CD1 57 push edi
00741CD2 8BF8 mov edi, eax
00741CD4 8B7508 mov esi, [ebp+$08]
00741CD7 8B5D0C mov ebx, [ebp+$0C]
00741CDA 33D2 xor edx, edx
00741CDC 8BC7 mov eax, edi
* Reference to: controls.TControl.SetCursor(TControl;TCursor);
|
00741CDE E85D7FCFFF call 00439C40
00741CE3 83FB11 cmp ebx, +$11
00741CE6 7C23 jl 00741D0B
00741CE8 81FB8C000000 cmp ebx, $0000008C
00741CEE 7F1B jnle 00741D0B
00741CF0 81FE73010000 cmp esi, $00000173
00741CF6 7C13 jl 00741D0B
00741CF8 81FE82010000 cmp esi, $00000182
00741CFE 7F0B jnle 00741D0B
00741D00 66BAEBFF mov dx, $FFEB
00741D04 8BC7 mov eax, edi
* Reference to: controls.TControl.SetCursor(TControl;TCursor);
|
00741D06 E8357FCFFF call 00439C40
00741D0B 81FB2A010000 cmp ebx, $0000012A
00741D11 7C23 jl 00741D36
00741D13 81FB96010000 cmp ebx, $00000196
00741D19 7F1B jnle 00741D36
00741D1B 81FE6C010000 cmp esi, $0000016C
00741D21 7C13 jl 00741D36
00741D23 81FE88010000 cmp esi, $00000188
00741D29 7F0B jnle 00741D36
00741D2B 66BAEBFF mov dx, $FFEB
00741D2F 8BC7 mov eax, edi
* Reference to: controls.TControl.SetCursor(TControl;TCursor);
|
00741D31 E80A7FCFFF call 00439C40
00741D36 5F pop edi
00741D37 5E pop esi
00741D38 5B pop ebx
00741D39 5D pop ebp
00741D3A C20800 ret $0008
*)
end;
procedure TfrmBillBrd.Timer2Timer(Sender : TObject);
begin
(*
00741D40 53 push ebx
00741D41 8BD8 mov ebx, eax
* Reference to field TfrmBillBrd.OFFS_02F4
|
00741D43 8B83F4020000 mov eax, [ebx+$02F4]
00741D49 85C0 test eax, eax
00741D4B 7415 jz 00741D62
* Reference to : TShockwaveFlash._PROC_0052BD0C()
|
00741D4D E8BA9FDEFF call 0052BD0C
00741D52 BA64000000 mov edx, $00000064
* Reference to field TfrmBillBrd.OFFS_02F4
|
00741D57 8B83F4020000 mov eax, [ebx+$02F4]
* Reference to : TShockwaveFlash._PROC_0052BCB8()
|
00741D5D E8569FDEFF call 0052BCB8
00741D62 33D2 xor edx, edx
* Reference to control TfrmBillBrd.Timer2 : TTimer
|
00741D64 8B83E0020000 mov eax, [ebx+$02E0]
* Reference to: extctrls.TTimer.SetEnabled(TTimer;Boolean);
|
00741D6A E861D7D1FF call 0045F4D0
00741D6F 5B pop ebx
00741D70 C3 ret
*)
end;
procedure TfrmBillBrd._PROC_00741928(Sender : TObject);
begin
(*
00741928 55 push ebp
00741929 8BEC mov ebp, esp
0074192B 83C4F8 add esp, -$08
0074192E 53 push ebx
0074192F 56 push esi
00741930 57 push edi
00741931 33DB xor ebx, ebx
00741933 895DF8 mov [ebp-$08], ebx
00741936 894DFC mov [ebp-$04], ecx
00741939 8BDA mov ebx, edx
0074193B 8BF8 mov edi, eax
0074193D 8B45FC mov eax, [ebp-$04]
* Reference to: system.@LStrAddRef;
|
00741940 E8FF2BCCFF call 00404544
00741945 8B4508 mov eax, [ebp+$08]
* Reference to: system.@LStrAddRef;
|
00741948 E8F72BCCFF call 00404544
0074194D 33C0 xor eax, eax
0074194F 55 push ebp
00741950 687D1A7400 push $00741A7D
***** TRY
|
00741955 64FF30 push dword ptr fs:[eax]
00741958 648920 mov fs:[eax], esp
0074195B 80EB02 sub bl, $02
0074195E 0F8293000000 jb 007419F7
00741964 7409 jz 0074196F
00741966 FECB dec bl
00741968 745A jz 007419C4
0074196A E9E8000000 jmp 00741A57
* Possible String Reference to: '大智慧系统消息'
|
0074196F BA981A7400 mov edx, $00741A98
00741974 8B87D8020000 mov eax, [edi+$02D8]
* Reference to: controls.TControl.SetText(TControl;TCaption);
|
0074197A E80181CFFF call 00439A80
0074197F 8B87F4020000 mov eax, [edi+$02F4]
00741985 85C0 test eax, eax
00741987 0F84CA000000 jz 00741A57
0074198D B201 mov dl, $01
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
0074198F E8D47FCFFF call 00439968
00741994 8D45F8 lea eax, [ebp-$08]
00741997 8B5508 mov edx, [ebp+$08]
* Reference to: system.@WStrFromLStr(WideString;WideString;String);
|
0074199A E8B12FCCFF call 00404950
0074199F 8B4DF8 mov ecx, [ebp-$08]
007419A2 BA66000000 mov edx, $00000066
007419A7 8B87F4020000 mov eax, [edi+$02F4]
* Reference to: olectrls.TOleControl.SetWideStringProp(TOleControl;Integer;WideString);
|
007419AD E8AAC8DCFF call 0050E25C
007419B2 B201 mov dl, $01
007419B4 8B87E0020000 mov eax, [edi+$02E0]
* Reference to: extctrls.TTimer.SetEnabled(TTimer;Boolean);
|
007419BA E811DBD1FF call 0045F4D0
007419BF E993000000 jmp 00741A57
* Possible String Reference to: '大智慧系统消息'
|
007419C4 BA981A7400 mov edx, $00741A98
007419C9 8B87D8020000 mov eax, [edi+$02D8]
* Reference to: controls.TControl.SetText(TControl;TCaption);
|
007419CF E8AC80CFFF call 00439A80
007419D4 B201 mov dl, $01
007419D6 8B87E4020000 mov eax, [edi+$02E4]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
007419DC E8877FCFFF call 00439968
007419E1 8B87E4020000 mov eax, [edi+$02E4]
007419E7 8B8028010000 mov eax, [eax+$0128]
007419ED 8B5508 mov edx, [ebp+$08]
* Reference to: graphics.TPicture.LoadFromFile(TPicture;AnsiString);
|
007419F0 E85BFDCDFF call 00421750
007419F5 EB60 jmp 00741A57
* Possible String Reference to: '大智慧公告'
|
007419F7 BAB01A7400 mov edx, $00741AB0
007419FC 8B87D8020000 mov eax, [edi+$02D8]
* Reference to: controls.TControl.SetText(TControl;TCaption);
|
00741A02 E87980CFFF call 00439A80
00741A07 8BCF mov ecx, edi
00741A09 B201 mov dl, $01
* Reference to class TLifeBoard
|
00741A0B A1D4977500 mov eax, dword ptr [$007597D4]
* Reference to: LifeBoard.Proc_0075AB1C
|
00741A10 E807910100 call 0075AB1C
00741A15 8BD8 mov ebx, eax
00741A17 899FF0020000 mov [edi+$02F0], ebx
00741A1D 8BF3 mov esi, ebx
00741A1F 8B97DC020000 mov edx, [edi+$02DC]
00741A25 8BC6 mov eax, esi
00741A27 8B08 mov ecx, [eax]
* Possible reference to virtual method TLifeBoard.OFFS_60
|
00741A29 FF5160 call dword ptr [ecx+$60]
00741A2C B205 mov dl, $05
00741A2E 8BC6 mov eax, esi
* Reference to: controls.TControl.SetAlign(TControl;TAlign);
|
00741A30 E80776CFFF call 0043903C
00741A35 B201 mov dl, $01
00741A37 8BC6 mov eax, esi
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
00741A39 E82A7FCFFF call 00439968
00741A3E 8B55FC mov edx, [ebp-$04]
00741A41 8B87F0020000 mov eax, [edi+$02F0]
* Reference to : TLifeBoard._PROC_0075ADD8()
|
00741A47 E88C930100 call 0075ADD8
00741A4C 8B87F0020000 mov eax, [edi+$02F0]
* Reference to: controls.TControl.Refresh(TControl);
|
00741A52 E8D584CFFF call 00439F2C
00741A57 33C0 xor eax, eax
00741A59 5A pop edx
00741A5A 59 pop ecx
00741A5B 59 pop ecx
00741A5C 648910 mov fs:[eax], edx
****** FINALLY
|
00741A5F 68841A7400 push $00741A84
00741A64 8D45F8 lea eax, [ebp-$08]
* Reference to: system.@WStrClr(WideString;WideString);
|
00741A67 E8942DCCFF call 00404800
00741A6C 8D45FC lea eax, [ebp-$04]
* Reference to: system.@LStrClr(String;String);
|
00741A6F E88026CCFF call 004040F4
00741A74 8D4508 lea eax, [ebp+$08]
* Reference to: system.@LStrClr(String;String);
|
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -