📄 showgs.pas
字号:
unit ShowGS;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ExtCtrls
type
TfrmShowGaoShou=class(TForm)
Button1: TButton;
Button2: TButton;
Timer1: TTimer;
lblMsg1: TLabel;
lblMsg2: TLabel;
Image1: TImage;
procedure Timer1Timer(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure Image1MouseDown(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure _PROC_005F0108(Sender : TObject);
procedure _PROC_005F0138(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmShowGaoShou: TfrmShowGaoShou;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmShowGaoShou.Timer1Timer(Sender : TObject);
begin
(*
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
005EFFEC E8CB60E6FF call 004560BC
005EFFF1 C3 ret
*)
end;
procedure TfrmShowGaoShou.FormClose(Sender : TObject);
begin
(*
005EFFF4 C60102 mov byte ptr [ecx], $02
005EFFF7 C3 ret
*)
end;
procedure TfrmShowGaoShou.Button2Click(Sender : TObject);
begin
(*
005EFFF8 53 push ebx
005EFFF9 8BD8 mov ebx, eax
* Reference to THJ32Main instance
|
005EFFFB 8B1558D37700 mov edx, [$0077D358]
005F0001 8B12 mov edx, [edx]
* Reference to THJ32Main instance
|
005F0003 A158D37700 mov eax, dword ptr [$0077D358]
005F0008 8B00 mov eax, [eax]
* Reference to : THJ32Main.mnuGaoShouClick()
|
005F000A E831220C00 call 006B2240
005F000F 8BC3 mov eax, ebx
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
005F0011 E8A660E6FF call 004560BC
005F0016 5B pop ebx
005F0017 C3 ret
*)
end;
procedure TfrmShowGaoShou.Image1MouseDown(Sender : TObject);
begin
(*
005F0018 55 push ebp
005F0019 8BEC mov ebp, esp
005F001B 83C4E8 add esp, -$18
005F001E 53 push ebx
005F001F 8BD8 mov ebx, eax
005F0021 8B450C mov eax, [ebp+$0C]
005F0024 8945F8 mov [ebp-$08], eax
005F0027 8B4508 mov eax, [ebp+$08]
005F002A 8945FC mov [ebp-$04], eax
005F002D C745E8D8000000 mov dword ptr [ebp-$18], $000000D8
005F0034 C745EC0A000000 mov dword ptr [ebp-$14], $0000000A
005F003B C745F0E6000000 mov dword ptr [ebp-$10], $000000E6
005F0042 C745F418000000 mov dword ptr [ebp-$0C], $00000018
005F0049 FF75FC push dword ptr [ebp-$04]
005F004C FF75F8 push dword ptr [ebp-$08]
005F004F 8D45E8 lea eax, [ebp-$18]
005F0052 50 push eax
* Reference to: user32.PtInRect()
|
005F0053 E8108CE1FF call 00408C68
005F0058 85C0 test eax, eax
005F005A 7407 jz 005F0063
005F005C 8BC3 mov eax, ebx
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
005F005E E85960E6FF call 004560BC
005F0063 5B pop ebx
005F0064 8BE5 mov esp, ebp
005F0066 5D pop ebp
005F0067 C20C00 ret $000C
*)
end;
procedure TfrmShowGaoShou.FormCreate(Sender : TObject);
begin
(*
005F006C 55 push ebp
005F006D 8BEC mov ebp, esp
005F006F 6A00 push $00
005F0071 53 push ebx
005F0072 8BD8 mov ebx, eax
005F0074 33C0 xor eax, eax
005F0076 55 push ebp
005F0077 68CD005F00 push $005F00CD
***** TRY
|
005F007C 64FF30 push dword ptr fs:[eax]
005F007F 648920 mov fs:[eax], esp
* Reference to pointer to GlobalVar_00799270
|
005F0082 8B15ECD27700 mov edx, [$0077D2EC]
005F0088 8B12 mov edx, [edx]
005F008A 8D45FC lea eax, [ebp-$04]
* Possible String Reference to: 'gs.jpg'
|
005F008D B9E0005F00 mov ecx, $005F00E0
* Reference to: system.@LStrCat3;
|
005F0092 E84543E1FF call 004043DC
005F0097 8B45FC mov eax, [ebp-$04]
* Reference to: Unit_00409434.Proc_0040A8BC
|
005F009A E81DA8E1FF call 0040A8BC
005F009F 84C0 test al, al
005F00A1 7414 jz 005F00B7
* Reference to control TfrmShowGaoShou.Image1 : TImage
|
005F00A3 8B83E8020000 mov eax, [ebx+$02E8]
* Reference to field TImage.Picture : TPicture
|
005F00A9 8B8028010000 mov eax, [eax+$0128]
005F00AF 8B55FC mov edx, [ebp-$04]
* Reference to: graphics.TPicture.LoadFromFile(TPicture;AnsiString);
|
005F00B2 E89916E3FF call 00421750
005F00B7 33C0 xor eax, eax
005F00B9 5A pop edx
005F00BA 59 pop ecx
005F00BB 59 pop ecx
005F00BC 648910 mov fs:[eax], edx
****** FINALLY
|
005F00BF 68D4005F00 push $005F00D4
005F00C4 8D45FC lea eax, [ebp-$04]
* Reference to: system.@LStrClr(String;String);
|
005F00C7 E82840E1FF call 004040F4
005F00CC C3 ret
* Reference to: system.@HandleFinally;
|
005F00CD E95A39E1FF jmp 00403A2C
005F00D2 EBF0 jmp 005F00C4
****** END
|
005F00D4 5B pop ebx
005F00D5 59 pop ecx
005F00D6 5D pop ebp
005F00D7 C3 ret
*)
end;
procedure TfrmShowGaoShou.Button1Click(Sender : TObject);
begin
(*
* Reference to pointer to GlobalVar_007991D8
|
005F00E8 A1A0D37700 mov eax, dword ptr [$0077D3A0]
005F00ED 8B00 mov eax, [eax]
* Reference to field GlobalVar_007991D8.OFFS_0034
|
005F00EF 83783400 cmp dword ptr [eax+$34], +$00
005F00F3 740F jz 005F0104
* Reference to pointer to GlobalVar_007991D8
|
005F00F5 A1A0D37700 mov eax, dword ptr [$0077D3A0]
005F00FA 8B00 mov eax, [eax]
* Reference to field GlobalVar_007991D8.OFFS_0034
|
005F00FC 8B4034 mov eax, [eax+$34]
* Reference to: Unit_00651A88.Proc_006543DC
|
005F00FF E8D8420600 call 006543DC
005F0104 C3 ret
*)
end;
procedure TfrmShowGaoShou._PROC_005F0108(Sender : TObject);
begin
(*
005F0108 55 push ebp
005F0109 8BEC mov ebp, esp
005F010B 33C0 xor eax, eax
005F010D 55 push ebp
005F010E 682D015F00 push $005F012D
***** TRY
|
005F0113 64FF30 push dword ptr fs:[eax]
005F0116 648920 mov fs:[eax], esp
005F0119 FF050CCC7800 inc dword ptr [$0078CC0C]
005F011F 33C0 xor eax, eax
005F0121 5A pop edx
005F0122 59 pop ecx
005F0123 59 pop ecx
005F0124 648910 mov fs:[eax], edx
****** FINALLY
|
005F0127 6834015F00 push $005F0134
005F012C C3 ret
* Reference to: system.@HandleFinally;
|
005F012D E9FA38E1FF jmp 00403A2C
005F0132 EBF8 jmp 005F012C
****** END
|
005F0134 5D pop ebp
005F0135 C3 ret
*)
end;
procedure TfrmShowGaoShou._PROC_005F0138(Sender : TObject);
begin
(*
005F0138 832D0CCC780001 sub dword ptr [$0078CC0C], +$01
005F013F C3 ret
*)
end;
end.⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -