📄 p_suoha.pas
字号:
procedure TForm1.FormCreate(Sender : TObject);
begin
(*
005017D4 55 push ebp
005017D5 8BEC mov ebp, esp
005017D7 83C4BC add esp, -$44
005017DA 53 push ebx
005017DB 56 push esi
005017DC 57 push edi
005017DD 33C9 xor ecx, ecx
005017DF 894DBC mov [ebp-$44], ecx
005017E2 894DC0 mov [ebp-$40], ecx
005017E5 894DC4 mov [ebp-$3C], ecx
005017E8 894DC8 mov [ebp-$38], ecx
005017EB 894DCC mov [ebp-$34], ecx
005017EE 894DD0 mov [ebp-$30], ecx
005017F1 894DD4 mov [ebp-$2C], ecx
005017F4 894DD8 mov [ebp-$28], ecx
005017F7 8945FC mov [ebp-$04], eax
005017FA 33C0 xor eax, eax
005017FC 55 push ebp
005017FD 68C41E5000 push $00501EC4
***** TRY
|
00501802 64FF30 push dword ptr fs:[eax]
00501805 648920 mov fs:[eax], esp
* Reference to Form1
|
00501808 8B45FC mov eax, [ebp-$04]
0050180B 05E40B0000 add eax, +$00000BE4
* Possible String Reference to: 'gtyx5515'
|
00501810 BADC1E5000 mov edx, $00501EDC
* Reference to : TObject.System.@LStrAsg;()
|
00501815 E81A23F0FF call 00403B34
* Reference to Form1
|
0050181A 8B4DFC mov ecx, [ebp-$04]
0050181D B201 mov dl, $01
* Reference to class TFIFO
|
0050181F A1FC5D4E00 mov eax, dword ptr [$004E5DFC]
* Reference to : TFIFO._PROC_004E5F9C()
|
00501824 E87347FEFF call 004E5F9C
* Reference to Form1
|
00501829 8B55FC mov edx, [ebp-$04]
* Reference to field TForm1.OFFS_0BDC
|
0050182C 8982DC0B0000 mov [edx+$0BDC], eax
00501832 33F6 xor esi, esi
* Reference to Form1
|
00501834 8B45FC mov eax, [ebp-$04]
00501837 8D84B06C0C0000 lea eax, [eax+esi*4+$0C6C]
* Reference to : TObject.System.@LStrClr(String;String);()
|
0050183E E89D22F0FF call 00403AE0
00501843 46 inc esi
00501844 83FE64 cmp esi, +$64
00501847 75EB jnz 00501834
* Reference to Form1
|
00501849 8B45FC mov eax, [ebp-$04]
0050184C 33D2 xor edx, edx
* Reference to field TForm1.OFFS_0DFC
|
0050184E 8990FC0D0000 mov [eax+$0DFC], edx
* Reference to Form1
|
00501854 8B45FC mov eax, [ebp-$04]
00501857 33D2 xor edx, edx
* Reference to field TForm1.OFFS_0E00
|
00501859 8990000E0000 mov [eax+$0E00], edx
* Reference to Form1
|
0050185F 8B45FC mov eax, [ebp-$04]
00501862 33D2 xor edx, edx
* Reference to field TForm1.OFFS_0E04
|
00501864 8990040E0000 mov [eax+$0E04], edx
* Reference to Form1
|
0050186A 8B45FC mov eax, [ebp-$04]
0050186D 8B806C030000 mov eax, [eax+$036C]
00501873 33D2 xor edx, edx
00501875 89500C mov [eax+$0C], edx
* Reference to Form1
|
00501878 8B45FC mov eax, [ebp-$04]
0050187B 8B8044030000 mov eax, [eax+$0344]
00501881 8B8028010000 mov eax, [eax+$0128]
00501887 33D2 xor edx, edx
00501889 8B08 mov ecx, [eax]
0050188B FF5108 call dword ptr [ecx+$08]
* Reference to Form1
|
0050188E 8B45FC mov eax, [ebp-$04]
00501891 8B8044030000 mov eax, [eax+$0344]
* Reference to : TImage.GetCanvas(TImage):TCanvas;()
|
00501897 E800E5F4FF call 0044FD9C
0050189C C740202000CC00 mov dword ptr [eax+$20], $00CC0020
* Reference to Form1
|
005018A3 8B45FC mov eax, [ebp-$04]
005018A6 8BB044030000 mov esi, [eax+$0344]
005018AC 8B463C mov eax, [esi+$3C]
005018AF 057F010000 add eax, +$0000017F
005018B4 50 push eax
005018B5 8D45EC lea eax, [ebp-$14]
005018B8 50 push eax
005018B9 8B4E38 mov ecx, [esi+$38]
005018BC BA7F010000 mov edx, $0000017F
005018C1 33C0 xor eax, eax
* Reference to: Classes.Proc_0040EA34
|
005018C3 E86CD1F0FF call 0040EA34
005018C8 8D45EC lea eax, [ebp-$14]
005018CB 50 push eax
* Reference to Form1
|
005018CC 8B45FC mov eax, [ebp-$04]
005018CF 8B9844030000 mov ebx, [eax+$0344]
005018D5 8B433C mov eax, [ebx+$3C]
005018D8 50 push eax
005018D9 8D45DC lea eax, [ebp-$24]
005018DC 50 push eax
005018DD 8B4B38 mov ecx, [ebx+$38]
005018E0 33D2 xor edx, edx
005018E2 33C0 xor eax, eax
* Reference to: Classes.Proc_0040EA34
|
005018E4 E84BD1F0FF call 0040EA34
005018E9 8D45DC lea eax, [ebp-$24]
005018EC 50 push eax
* Reference to Form1
|
005018ED 8B45FC mov eax, [ebp-$04]
005018F0 8B8030030000 mov eax, [eax+$0330]
* Reference to : TImage.GetCanvas(TImage):TCanvas;()
|
005018F6 E8A1E4F4FF call 0044FD9C
005018FB 50 push eax
* Reference to Form1
|
005018FC 8B45FC mov eax, [ebp-$04]
005018FF 8B8044030000 mov eax, [eax+$0344]
* Reference to : TImage.GetCanvas(TImage):TCanvas;()
|
00501905 E892E4F4FF call 0044FD9C
0050190A 59 pop ecx
0050190B 5A pop edx
* Reference to : TCanvas.CopyRect(TCanvas;TRect;TRect;TCanvas;TRect;TRect);()
|
0050190C E8B37DF1FF call 004196C4
00501911 8D55D8 lea edx, [ebp-$28]
* Possible String Reference to: 'SuoHa'
|
00501914 B8F01E5000 mov eax, $00501EF0
* Reference to: Unit_004E4CDC.Proc_004E59A8
|
00501919 E88A40FEFF call 004E59A8
0050191E 8B55D8 mov edx, [ebp-$28]
* Reference to Form1
|
00501921 8B45FC mov eax, [ebp-$04]
00501924 05440C0000 add eax, +$00000C44
* Reference to : TObject.System.@LStrAsg;()
|
00501929 E80622F0FF call 00403B34
0050192E BE01000000 mov esi, $00000001
* Possible reference to Image
|
00501933 BB00065100 mov ebx, $00510600
* Reference to Form1
|
00501938 8B4DFC mov ecx, [ebp-$04]
0050193B B201 mov dl, $01
* Reference to class TImage
|
0050193D A1E4DA4400 mov eax, dword ptr [$0044DAE4]
* Reference to : TImage.Create(TImage;boolean;TComponent);()
|
00501942 E811E1F4FF call 0044FA58
00501947 8BF8 mov edi, eax
00501949 893B mov [ebx], edi
0050194B 8BC7 mov eax, edi
* Reference to Form1
|
0050194D 8B15FC055100 mov edx, [$005105FC]
00501953 8B08 mov ecx, [eax]
* Reference to method TImage.SetParent(TWinControl)
|
00501955 FF5160 call dword ptr [ecx+$60]
00501958 8B03 mov eax, [ebx]
0050195A BA60000000 mov edx, $00000060
* Reference to : TControl.SetHeight(TControl;Integer);()
|
0050195F E8C0C2F2FF call 0042DC24
00501964 8B03 mov eax, [ebx]
00501966 BA47000000 mov edx, $00000047
* Reference to : TControl.SetWidth(TControl;Integer);()
|
0050196B E894C2F2FF call 0042DC04
00501970 8B03 mov eax, [ebx]
00501972 B201 mov dl, $01
* Reference to : TImage.SetStretch(TImage;Boolean);()
|
00501974 E84BE5F4FF call 0044FEC4
00501979 8B03 mov eax, [ebx]
* Reference to field TImage.Tag : Longint
|
0050197B 89700C mov [eax+$0C], esi
0050197E 33D2 xor edx, edx
* Reference to : TControl.SetVisible(TControl;Boolean);()
|
00501980 E833C9F2FF call 0042E2B8
00501985 8B03 mov eax, [ebx]
* Reference to : TControl.BringToFront(TControl);()
|
00501987 E858CCF2FF call 0042E5E4
0050198C 83FE06 cmp esi, +$06
0050198F 7D0B jnl 0050199C
00501991 8B03 mov eax, [ebx]
00501993 66BAEBFF mov dx, $FFEB
* Reference to : TControl.SetCursor(TControl;TCursor);()
|
00501997 E8F4CBF2FF call 0042E590
0050199C 8B03 mov eax, [ebx]
* Reference to Form1
|
0050199E 8B55FC mov edx, [ebp-$04]
* Reference to field TImage.OFFS_00BC
|
005019A1 8990BC000000 mov [eax+$00BC], edx
* Reference to field TImage.OnMouseDown : TMouseEvent
|
005019A7 C780B8000000F02A5000 mov dword ptr [eax+$00B8], $00502AF0
005019B1 46 inc esi
005019B2 83C304 add ebx, +$04
005019B5 83FE15 cmp esi, +$15
005019B8 0F857AFFFFFF jnz 00501938
005019BE B850065100 mov eax, $00510650
* Reference to : TObject.System.@LStrClr(String;String);()
|
005019C3 E81821F0FF call 00403AE0
005019C8 33C0 xor eax, eax
* Reference to GlobalVar_0051065C
|
005019CA A35C065100 mov dword ptr [$0051065C], eax
005019CF 33C0 xor eax, eax
* Reference to GlobalVar_00510658
|
005019D1 A358065100 mov dword ptr [$00510658], eax
005019D6 33C0 xor eax, eax
* Reference to GlobalVar_00510660
|
005019D8 A360065100 mov dword ptr [$00510660], eax
005019DD C7056C06510002000000 mov dword ptr [$0051066C], $00000002
005019E7 B864065100 mov eax, $00510664
* Reference to : TObject.System.@LStrClr(String;String);()
|
005019EC E8EF20F0FF call 00403AE0
005019F1 33C0 xor eax, eax
* Reference to GlobalVar_00510668
|
005019F3 A368065100 mov dword ptr [$00510668], eax
* Reference to Form1
|
005019F8 8B45FC mov eax, [ebp-$04]
005019FB 8B8010030000 mov eax, [eax+$0310]
00501A01 33D2 xor edx, edx
* Reference to : TControl.SetVisible(TControl;Boolean);()
|
00501A03 E8B0C8F2FF call 0042E2B8
* Possible String Reference to: 'SuoHa'
|
00501A08 B8F01E5000 mov eax, $00501EF0
* Reference to: Unit_004E59A9.Proc_004E5C64
|
00501A0D E85242FEFF call 004E5C64
00501A12 8BD0 mov edx, eax
* Reference to Form1
|
00501A14 8B45FC mov eax, [ebp-$04]
* Reference to : TForm1.SetSoundFlag()
|
00501A17 E880390000 call 0050539C
00501A1C C6058406510001 mov byte ptr [$00510684], $01
00501A23 B878065100 mov eax, $00510678
* Reference to : TObject.System.@LStrClr(String;String);()
|
00501A28 E8B320F0FF call 00403AE0
00501A2D 8D55D4 lea edx, [ebp-$2C]
* Reference to Form1
|
00501A30 8B45FC mov eax, [ebp-$04]
* Reference to field TForm1.OFFS_0C4C
|
00501A33 8B804C0C0000 mov eax, [eax+$0C4C]
* Reference to: Unit_00407A68.Proc_004088F4
|
00501A39 E8B66EF0FF call 004088F4
00501A3E 837DD400 cmp dword ptr [ebp-$2C], +$00
00501A42 7512 jnz 00501A56
* Reference to Form1
|
00501A44 8B45FC mov eax, [ebp-$04]
00501A47 054C0C0000 add eax, +$00000C4C
* Possible String Reference to: 'http://www.gametea.com/ad/sh1.php'
|
00501A4C BA001F5000 mov edx, $00501F00
* Reference to : TObject.System.@LStrAsg;()
|
00501A51 E8DE20F0FF call 00403B34
* Reference to Form1
|
00501A56 8B45FC mov eax, [ebp-$04]
* Reference to : TForm1.Proc_00500430()
|
00501A59 E8D2E9FFFF call 00500430
00501A5E 33C0 xor eax, eax
00501A60 55 push ebp
00501A61 68AF1A5000 push $00501AAF
***** TRY
|
00501A66 64FF30 push dword ptr fs:[eax]
00501A69 648920 mov fs:[eax], esp
* Reference to Form1
|
00501A6C A1FC055100 mov eax, dword ptr [$005105FC]
* Reference to control PlayerList : N.A.
|
00501A71 8B8018030000 mov eax, [eax+$0318]
* Reference to field N.A..OFFS_020C
|
00501A77 8B800C020000 mov eax, [eax+$020C]
00501A7D 33D2 xor edx, edx
* Reference to : TListItems.GetItem(TListItems;Integer):TListItem;()
|
00501A7F E85039F5FF call 004553D4
00501A84 8B4008 mov eax, [eax+$08]
00501A87 8D4DD0 lea ecx, [ebp-$30]
00501A8A BA02000000 mov edx, $00000002
00501A8F 8B18 mov ebx, [eax]
00501A91 FF530C call dword ptr [ebx+$0C]
00501A94 8B45D0 mov eax, [ebp-$30]
* Reference to: Unit_00407A68.Proc_00408D38
|
00501A97 E89C72F0FF call 00408D38
* Reference to Form1
|
00501A9C 8B55FC mov edx, [ebp-$04]
* Reference to field TForm1.OFFS_0C10
|
00501A9F 8982100C0000 mov [edx+$0C10], eax
00501AA5 33C0 xor eax, eax
00501AA7 5A pop edx
00501AA8 59 pop ecx
00501AA9 59 pop ecx
00501AAA 648910 mov fs:[eax], edx
00501AAD EB15 jmp 00501AC4
* Reference to : TObject.System.@HandleAnyException;()
|
00501AAF E91018F0FF jmp 004032C4
* Reference to Form1
|
00501AB4 8B45FC mov eax, [ebp-$04]
00501AB7 33D2 xor edx, edx
* Reference to field TForm1.OFFS_0C10
|
00501AB9 8990100C0000 mov [eax+$0C10], edx
* Reference to : TObject.System.@DoneExcept;()
|
00501ABF E85C1BF0FF call 00403620
****** END
|
* Reference to Form1
|
00501AC4 8B45FC mov eax, [ebp-$04]
* Reference to field TForm1.OFFS_0E0C
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -