📄 billbrd.pas
字号:
00741A77 E87826CCFF call 004040F4
00741A7C C3 ret
* Reference to: system.@HandleFinally;
|
00741A7D E9AA1FCCFF jmp 00403A2C
00741A82 EBE0 jmp 00741A64
****** END
|
00741A84 5F pop edi
00741A85 5E pop esi
00741A86 5B pop ebx
00741A87 59 pop ecx
00741A88 59 pop ecx
00741A89 5D pop ebp
00741A8A C20400 ret $0004
*)
end;
procedure TfrmBillBrd._PROC_00741D74(Sender : TObject);
begin
(*
00741D74 55 push ebp
00741D75 8BEC mov ebp, esp
00741D77 33C0 xor eax, eax
00741D79 55 push ebp
00741D7A 68991D7400 push $00741D99
***** TRY
|
00741D7F 64FF30 push dword ptr fs:[eax]
00741D82 648920 mov fs:[eax], esp
00741D85 FF05C0917900 inc dword ptr [$007991C0]
00741D8B 33C0 xor eax, eax
00741D8D 5A pop edx
00741D8E 59 pop ecx
00741D8F 59 pop ecx
00741D90 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']脣纼-缿y'
|
00741D93 68A01D7400 push $00741DA0
00741D98 C3 ret
* Reference to: system.@HandleFinally;
|
00741D99 E98E1CCCFF jmp 00403A2C
00741D9E EBF8 jmp 00741D98
****** END
|
00741DA0 5D pop ebp
00741DA1 C3 ret
*)
end;
procedure TfrmBillBrd._PROC_00741DA4(Sender : TObject);
begin
(*
00741DA4 832DC091790001 sub dword ptr [$007991C0], +$01
00741DAB C3 ret
*)
end;
procedure TfrmBillBrd.Proc_007416BC(Sender : TObject);
begin
(*
007416BC 55 push ebp
007416BD 8BEC mov ebp, esp
007416BF 33C9 xor ecx, ecx
007416C1 51 push ecx
007416C2 51 push ecx
007416C3 51 push ecx
007416C4 51 push ecx
007416C5 53 push ebx
007416C6 56 push esi
007416C7 57 push edi
007416C8 8945FC mov [ebp-$04], eax
007416CB 8B45FC mov eax, [ebp-$04]
* Reference to: system.@LStrAddRef;
|
007416CE E8712ECCFF call 00404544
007416D3 33C0 xor eax, eax
007416D5 55 push ebp
007416D6 686A187400 push $0074186A
***** TRY
|
007416DB 64FF30 push dword ptr fs:[eax]
007416DE 648920 mov fs:[eax], esp
007416E1 33C0 xor eax, eax
007416E3 55 push ebp
007416E4 6845187400 push $00741845
***** TRY
|
007416E9 64FF30 push dword ptr fs:[eax]
007416EC 648920 mov fs:[eax], esp
007416EF 837DFC00 cmp dword ptr [ebp-$04], +$00
007416F3 0F8442010000 jz 0074183B
007416F9 8B45FC mov eax, [ebp-$04]
* Reference to: Unit_00409434.Proc_0040A8BC
|
007416FC E8BB91CCFF call 0040A8BC
00741701 84C0 test al, al
00741703 0F8432010000 jz 0074183B
00741709 8D55F0 lea edx, [ebp-$10]
0074170C 8B45FC mov eax, [ebp-$04]
* Reference to: Unit_00409434.Proc_0040ACBC
|
0074170F E8A895CCFF call 0040ACBC
00741714 8B45F0 mov eax, [ebp-$10]
00741717 8D55F8 lea edx, [ebp-$08]
* Reference to: Unit_00409434.Proc_0040A124
|
0074171A E8058ACCFF call 0040A124
0074171F 8B45F8 mov eax, [ebp-$08]
* Possible String Reference to: '.swf'
|
00741722 BA80187400 mov edx, $00741880
* Reference to: system.@LStrCmp;
|
00741727 E8742DCCFF call 004044A0
0074172C 7517 jnz 00741745
0074172E A12CD37700 mov eax, dword ptr [$0077D32C]
00741733 803800 cmp byte ptr [eax], $00
00741736 750D jnz 00741745
00741738 33C0 xor eax, eax
0074173A 5A pop edx
0074173B 59 pop ecx
0074173C 59 pop ecx
0074173D 648910 mov fs:[eax], edx
00741740 E90A010000 jmp 0074184F
00741745 8B45F8 mov eax, [ebp-$08]
* Possible String Reference to: '.swf'
|
00741748 BA80187400 mov edx, $00741880
* Reference to: system.@LStrCmp;
|
0074174D E84E2DCCFF call 004044A0
00741752 7422 jz 00741776
00741754 8B45F8 mov eax, [ebp-$08]
* Possible String Reference to: '.gif'
|
00741757 BA90187400 mov edx, $00741890
* Reference to: system.@LStrCmp;
|
0074175C E83F2DCCFF call 004044A0
00741761 7413 jz 00741776
00741763 8B45F8 mov eax, [ebp-$08]
* Possible String Reference to: '.txt'
|
00741766 BAA0187400 mov edx, $007418A0
* Reference to: system.@LStrCmp;
|
0074176B E8302DCCFF call 004044A0
00741770 0F85C5000000 jnz 0074183B
* Reference to TApplication instance
|
00741776 8B0D00D17700 mov ecx, [$0077D100]
0074177C 8B09 mov ecx, [ecx]
0074177E B201 mov dl, $01
* Reference to class TfrmBillBrd
|
00741780 A124147400 mov eax, dword ptr [$00741424]
* Reference to: forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
00741785 E8520BD1FF call 004522DC
0074178A 8BD8 mov ebx, eax
0074178C 8B45F8 mov eax, [ebp-$08]
* Possible String Reference to: '.swf'
|
0074178F BA80187400 mov edx, $00741880
* Reference to: system.@LStrCmp;
|
00741794 E8072DCCFF call 004044A0
00741799 750F jnz 007417AA
0074179B 8B45FC mov eax, [ebp-$04]
0074179E 50 push eax
0074179F 33C9 xor ecx, ecx
007417A1 B202 mov dl, $02
007417A3 8BC3 mov eax, ebx
* Reference to : TfrmBillBrd._PROC_00741928()
|
007417A5 E87E010000 call 00741928
007417AA 8B45F8 mov eax, [ebp-$08]
* Possible String Reference to: '.gif'
|
007417AD BA90187400 mov edx, $00741890
* Reference to: system.@LStrCmp;
|
007417B2 E8E92CCCFF call 004044A0
007417B7 750F jnz 007417C8
007417B9 8B45FC mov eax, [ebp-$04]
007417BC 50 push eax
007417BD 33C9 xor ecx, ecx
007417BF B203 mov dl, $03
007417C1 8BC3 mov eax, ebx
* Reference to : TfrmBillBrd._PROC_00741928()
|
007417C3 E860010000 call 00741928
007417C8 8B45F8 mov eax, [ebp-$08]
* Possible String Reference to: '.txt'
|
007417CB BAA0187400 mov edx, $007418A0
* Reference to: system.@LStrCmp;
|
007417D0 E8CB2CCCFF call 004044A0
007417D5 740F jz 007417E6
007417D7 8B45F8 mov eax, [ebp-$08]
* Possible String Reference to: '.mnu'
|
007417DA BAB0187400 mov edx, $007418B0
* Reference to: system.@LStrCmp;
|
007417DF E8BC2CCCFF call 004044A0
007417E4 754E jnz 00741834
007417E6 6A40 push $40
007417E8 8B4DFC mov ecx, [ebp-$04]
007417EB B201 mov dl, $01
* Reference to class TFileStream
|
007417ED A1702A4100 mov eax, dword ptr [$00412A70]
* Reference to: classes.TFileStream.Create(TFileStream;boolean;AnsiString;Word);
|
007417F2 E8994ECDFF call 00416690
007417F7 8BF0 mov esi, eax
007417F9 8BC6 mov eax, esi
* Reference to: classes.TStream.GetSize(TStream):Longint;
|
007417FB E8004CCDFF call 00416400
00741800 8BC8 mov ecx, eax
00741802 8D45F4 lea eax, [ebp-$0C]
00741805 33D2 xor edx, edx
* Reference to: system.@LStrFromPCharLen(String;String;PAnsiChar;Integer);
|
00741807 E8D029CCFF call 004041DC
0074180C 8BC6 mov eax, esi
* Reference to: classes.TStream.GetSize(TStream):Longint;
|
0074180E E8ED4BCDFF call 00416400
00741813 8BC8 mov ecx, eax
00741815 8B55F4 mov edx, [ebp-$0C]
00741818 8BC6 mov eax, esi
0074181A 8B38 mov edi, [eax]
* Reference to method TFileStream.Read(Longint,Longint)
|
0074181C FF5704 call dword ptr [edi+$04]
0074181F 6A00 push $00
00741821 8B4DF4 mov ecx, [ebp-$0C]
00741824 33D2 xor edx, edx
00741826 8BC3 mov eax, ebx
* Reference to : TfrmBillBrd._PROC_00741928()
|
00741828 E8FB000000 call 00741928
0074182D 8BC6 mov eax, esi
* Reference to: system.TObject.Free(TObject);
|
0074182F E8981ACCFF call 004032CC
00741834 8BC3 mov eax, ebx
* Reference to: forms.TCustomForm.Show(TCustomForm);
|
00741836 E8394AD1FF call 00456274
0074183B 33C0 xor eax, eax
0074183D 5A pop edx
0074183E 59 pop ecx
0074183F 59 pop ecx
00741840 648910 mov fs:[eax], edx
00741843 EB0A jmp 0074184F
* Reference to: system.@HandleAnyException;
|
00741845 E92E1FCCFF jmp 00403778
* Reference to: system.@DoneExcept;
|
0074184A E84523CCFF call 00403B94
****** END
|
0074184F 33C0 xor eax, eax
00741851 5A pop edx
00741852 59 pop ecx
00741853 59 pop ecx
00741854 648910 mov fs:[eax], edx
****** FINALLY
|
00741857 6871187400 push $00741871
0074185C 8D45F0 lea eax, [ebp-$10]
0074185F BA04000000 mov edx, $00000004
* Reference to: system.@LStrArrayClr;
|
00741864 E8AF28CCFF call 00404118
00741869 C3 ret
* Reference to: system.@HandleFinally;
|
0074186A E9BD21CCFF jmp 00403A2C
0074186F EBEB jmp 0074185C
****** END
|
00741871 5F pop edi
00741872 5E pop esi
00741873 5B pop ebx
00741874 8BE5 mov esp, ebp
00741876 5D pop ebp
00741877 C3 ret
*)
end;
end.⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -