📄 unit13.pas
字号:
* Reference to field TStaticText.Font : TFont
|
00529BF1 8B4068 mov eax, [eax+$68]
00529BF4 BA0000FF00 mov edx, $00FF0000
* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
00529BF9 E8CAB3EFFF call 00424FC8
* Reference to control Tworkroom.StaticText16 : TStaticText
|
00529BFE 8B8334030000 mov eax, [ebx+$0334]
* Reference to field TStaticText.Font : TFont
|
00529C04 8B4068 mov eax, [eax+$68]
00529C07 BA0000FF00 mov edx, $00FF0000
* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
00529C0C E8B7B3EFFF call 00424FC8
* Reference to control Tworkroom.StaticText17 : TStaticText
|
00529C11 8B8338030000 mov eax, [ebx+$0338]
* Reference to field TStaticText.Font : TFont
|
00529C17 8B4068 mov eax, [eax+$68]
00529C1A BA0000FF00 mov edx, $00FF0000
* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
00529C1F E8A4B3EFFF call 00424FC8
* Reference to control Tworkroom.StaticText18 : TStaticText
|
00529C24 8B833C030000 mov eax, [ebx+$033C]
* Reference to field TStaticText.Font : TFont
|
00529C2A 8B4068 mov eax, [eax+$68]
00529C2D BA0000FF00 mov edx, $00FF0000
* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
00529C32 E891B3EFFF call 00424FC8
* Reference to control Tworkroom.StaticText19 : TStaticText
|
00529C37 8B8340030000 mov eax, [ebx+$0340]
* Reference to field TStaticText.Font : TFont
|
00529C3D 8B4068 mov eax, [eax+$68]
00529C40 BA0000FF00 mov edx, $00FF0000
* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
00529C45 E87EB3EFFF call 00424FC8
* Reference to control Tworkroom.StaticText20 : TStaticText
|
00529C4A 8B8344030000 mov eax, [ebx+$0344]
* Reference to field TStaticText.Font : TFont
|
00529C50 8B4068 mov eax, [eax+$68]
00529C53 BA0000FF00 mov edx, $00FF0000
* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
00529C58 E86BB3EFFF call 00424FC8
00529C5D 5B pop ebx
00529C5E 5D pop ebp
00529C5F C20800 ret $0008
*)
end;
procedure Tworkroom.elClick(Sender : TObject);
begin
(*
00529C64 53 push ebx
00529C65 8BD8 mov ebx, eax
* Reference to control Tworkroom.ep : TShape
|
00529C67 8B834C030000 mov eax, [ebx+$034C]
* Reference to field TShape.Brush : TBrush
|
00529C6D 8B806C010000 mov eax, [eax+$016C]
00529C73 BAFFFF0000 mov edx, $0000FFFF
* Reference to: Graphics.TBrush.SetColor(TBrush;TColor);
|
00529C78 E83FBBEFFF call 004257BC
* Reference to control Tworkroom.el : TStaticText
|
00529C7D 8B8350030000 mov eax, [ebx+$0350]
* Reference to field TStaticText.Font : TFont
|
00529C83 8B4068 mov eax, [eax+$68]
00529C86 BAFF000000 mov edx, $000000FF
* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
00529C8B E838B3EFFF call 00424FC8
00529C90 A1849F5800 mov eax, dword ptr [$00589F84]
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00529C95 E896BEF3FF call 00465B30
00529C9A 5B pop ebx
00529C9B C3 ret
*)
end;
procedure Tworkroom.elMouseMove(Sender : TObject);
begin
(*
00529C9C 55 push ebp
00529C9D 8BEC mov ebp, esp
00529C9F 53 push ebx
00529CA0 8BD8 mov ebx, eax
* Reference to control Tworkroom.ep : TShape
|
00529CA2 8B834C030000 mov eax, [ebx+$034C]
* Reference to field TShape.Brush : TBrush
|
00529CA8 8B806C010000 mov eax, [eax+$016C]
00529CAE BAFFFF0000 mov edx, $0000FFFF
* Reference to: Graphics.TBrush.SetColor(TBrush;TColor);
|
00529CB3 E804BBEFFF call 004257BC
00529CB8 BAFFFF0000 mov edx, $0000FFFF
* Reference to control Tworkroom.el : TStaticText
|
00529CBD 8B8350030000 mov eax, [ebx+$0350]
* Reference to: Controls.TControl.SetColor(TControl;TColor);
|
00529CC3 E844F4F1FF call 0044910C
00529CC8 5B pop ebx
00529CC9 5D pop ebp
00529CCA C20800 ret $0008
*)
end;
procedure Tworkroom.StaticText13Click(Sender : TObject);
begin
(*
00529CD0 6A01 push $01
00529CD2 6A00 push $00
00529CD4 6A00 push $00
* Possible String Reference to: 'mailto:LP@lingpeng.com'
|
00529CD6 68F09C5200 push $00529CF0
00529CDB 6A00 push $00
00529CDD A1849F5800 mov eax, dword ptr [$00589F84]
00529CE2 8B8054020000 mov eax, [eax+$0254]
00529CE8 50 push eax
* Reference to: shell32.ShellExecuteA()
|
00529CE9 E8B626F1FF call 0043C3A4
00529CEE C3 ret
*)
end;
procedure Tworkroom.StaticText15Click(Sender : TObject);
begin
(*
00529D08 6A01 push $01
00529D0A 6A00 push $00
00529D0C 6A00 push $00
* Possible String Reference to: 'http://www.lingpeng.com'
|
00529D0E 68289D5200 push $00529D28
00529D13 6A00 push $00
00529D15 A1849F5800 mov eax, dword ptr [$00589F84]
00529D1A 8B8054020000 mov eax, [eax+$0254]
00529D20 50 push eax
* Reference to: shell32.ShellExecuteA()
|
00529D21 E87E26F1FF call 0043C3A4
00529D26 C3 ret
*)
end;
procedure Tworkroom.StaticText17Click(Sender : TObject);
begin
(*
00529D40 6A01 push $01
00529D42 6A00 push $00
00529D44 6A00 push $00
* Possible String Reference to: 'http://www.lingpeng.com'
|
00529D46 68609D5200 push $00529D60
00529D4B 6A00 push $00
00529D4D A1849F5800 mov eax, dword ptr [$00589F84]
00529D52 8B8054020000 mov eax, [eax+$0254]
00529D58 50 push eax
* Reference to: shell32.ShellExecuteA()
|
00529D59 E84626F1FF call 0043C3A4
00529D5E C3 ret
*)
end;
procedure Tworkroom.StaticText19Click(Sender : TObject);
begin
(*
00529D78 6A01 push $01
00529D7A 6A00 push $00
00529D7C 6A00 push $00
* Possible String Reference to: 'http://www.softreg.com'
|
00529D7E 68989D5200 push $00529D98
00529D83 6A00 push $00
00529D85 A1849F5800 mov eax, dword ptr [$00589F84]
00529D8A 8B8054020000 mov eax, [eax+$0254]
00529D90 50 push eax
* Reference to: shell32.ShellExecuteA()
|
00529D91 E80E26F1FF call 0043C3A4
00529D96 C3 ret
*)
end;
procedure Tworkroom.StaticText20Click(Sender : TObject);
begin
(*
00529DB0 6A01 push $01
00529DB2 6A00 push $00
00529DB4 6A00 push $00
* Possible String Reference to: 'www.skycn.com'
|
00529DB6 68D09D5200 push $00529DD0
00529DBB 6A00 push $00
00529DBD A1849F5800 mov eax, dword ptr [$00589F84]
00529DC2 8B8054020000 mov eax, [eax+$0254]
00529DC8 50 push eax
* Reference to: shell32.ShellExecuteA()
|
00529DC9 E8D625F1FF call 0043C3A4
00529DCE C3 ret
*)
end;
procedure Tworkroom.StaticText18Click(Sender : TObject);
begin
(*
00529DE0 6A01 push $01
00529DE2 6A00 push $00
00529DE4 6A00 push $00
* Possible String Reference to: 'http://www.zzshow.com'
|
00529DE6 68009E5200 push $00529E00
00529DEB 6A00 push $00
00529DED A1849F5800 mov eax, dword ptr [$00589F84]
00529DF2 8B8054020000 mov eax, [eax+$0254]
00529DF8 50 push eax
* Reference to: shell32.ShellExecuteA()
|
00529DF9 E8A625F1FF call 0043C3A4
00529DFE C3 ret
*)
end;
procedure Tworkroom._PROC_00529CEF(Sender : TObject);
begin
(*
00529CEF 006D61 add [ebp+$61], ch
00529CF2 696C746F3A4C5040 imul ebp, [esp+esi*2+$6F], $40504C3A
00529CFA 6C insb
00529CFB 696E6770656E67 imul ebp, [esi+$67], $676E6570
00529D02 2E636F6D arpl cs:[edi+$6D], bp
00529D06 0000 add [eax], al
*)
end;
procedure Tworkroom._PROC_00529E19(Sender : TObject);
begin
(*
00529E19 8BEC mov ebp, esp
00529E1B 33C0 xor eax, eax
00529E1D 55 push ebp
00529E1E 683D9E5200 push $00529E3D
***** TRY
|
00529E23 64FF30 push dword ptr fs:[eax]
00529E26 648920 mov fs:[eax], esp
00529E29 FF05889F5800 inc dword ptr [$00589F88]
00529E2F 33C0 xor eax, eax
00529E31 5A pop edx
00529E32 59 pop ecx
00529E33 59 pop ecx
00529E34 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']脣纼-垷X'
|
00529E37 68449E5200 push $00529E44
00529E3C C3 ret
* Reference to: System.@HandleFinally;
|
00529E3D E902A3EDFF jmp 00404144
00529E42 EBF8 jmp 00529E3C
****** END
|
00529E44 5D pop ebp
00529E45 C3 ret
*)
end;
procedure Tworkroom._PROC_00529E48(Sender : TObject);
begin
(*
00529E48 832D889F580001 sub dword ptr [$00589F88], +$01
00529E4F C3 ret
*)
end;
end.⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -