📄 msggg.pas
字号:
unit msggg;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmGGInfo=class(TForm)
EmbeddedWB1: TEmbeddedWB;
OFFS_0348: N.A.;
OFFS_0344: N.A.;
OFFS_0342: N.A.;
procedure FormClose(Sender : TObject);
procedure FormKeyDown(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure FormMouseDown(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure FormKeyPress(Sender : TObject);
procedure EmbeddedWB1DocumentComplete(Sender : TObject);
procedure EmbeddedWB1TranslateAccelerator(Sender : TObject);
procedure EmbeddedWB1NewWindow2(Sender : TObject);
procedure _PROC_00604ADC(Sender : TObject);
procedure _PROC_00604B0C(Sender : TObject);
procedure _PROC_00604B88(Sender : TObject);
procedure _PROC_00604BE8(Sender : TObject);
procedure _PROC_00604C24(Sender : TObject);
procedure _PROC_00604CB8(Sender : TObject);
procedure _PROC_00604D14(Sender : TObject);
procedure _PROC_00604EA8(Sender : TObject);
procedure _PROC_00604ED8(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmGGInfo: TfrmGGInfo;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmGGInfo.FormClose(Sender : TObject);
begin
(*
00604B84 C60102 mov byte ptr [ecx], $02
00604B87 C3 ret
*)
end;
procedure TfrmGGInfo.FormKeyDown(Sender : TObject);
begin
(*
00604B94 55 push ebp
00604B95 8BEC mov ebp, esp
00604B97 33D2 xor edx, edx
00604B99 55 push ebp
00604B9A 68DA4B6000 push $00604BDA
***** TRY
|
00604B9F 64FF32 push dword ptr fs:[edx]
00604BA2 648922 mov fs:[edx], esp
00604BA5 668B11 mov dx, word ptr [ecx]
00604BA8 6683EA0D sub dx, +$0D
00604BAC 7406 jz 00604BB4
00604BAE 6683EA0E sub dx, +$0E
00604BB2 7507 jnz 00604BBB
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
00604BB4 E80315E5FF call 004560BC
00604BB9 EB11 jmp 00604BCC
00604BBB 668B11 mov dx, word ptr [ecx]
* Reference to field TfrmGGInfo.OFFS_033C
|
00604BBE 8B803C030000 mov eax, [eax+$033C]
00604BC4 8A4D08 mov cl, byte ptr [ebp+$08]
* Reference to: Unit_00604EE0.Proc_00605CD0
|
00604BC7 E804110000 call 00605CD0
00604BCC 33C0 xor eax, eax
00604BCE 5A pop edx
00604BCF 59 pop ecx
00604BD0 59 pop ecx
00604BD1 648910 mov fs:[eax], edx
****** FINALLY
|
00604BD4 68E14B6000 push $00604BE1
00604BD9 C3 ret
* Reference to: system.@HandleFinally;
|
00604BDA E94DEEDFFF jmp 00403A2C
00604BDF EBF8 jmp 00604BD9
****** END
|
00604BE1 5D pop ebp
00604BE2 C20400 ret $0004
*)
end;
procedure TfrmGGInfo.FormCreate(Sender : TObject);
begin
(*
00604AAC 53 push ebx
00604AAD 8BD8 mov ebx, eax
00604AAF B20A mov dl, $0A
00604AB1 8BC3 mov eax, ebx
* Reference to: HJForm.Proc_00750F8C
|
00604AB3 E8D4C41400 call 00750F8C
* Reference to field TfrmGGInfo.OFFS_0340
|
00604AB8 66C78340030000FFFF mov word ptr [ebx+$0340], $FFFF
00604AC1 6A01 push $01
00604AC3 8BCB mov ecx, ebx
00604AC5 B201 mov dl, $01
* Reference to class TF10Read
|
00604AC7 A1E04E6000 mov eax, dword ptr [$00604EE0]
* Reference to: Unit_00604EE0.Proc_00604F50
|
00604ACC E87F040000 call 00604F50
* Reference to field TfrmGGInfo.OFFS_033C
|
00604AD1 89833C030000 mov [ebx+$033C], eax
00604AD7 5B pop ebx
00604AD8 C3 ret
*)
end;
procedure TfrmGGInfo.FormMouseDown(Sender : TObject);
begin
(*
00604C10 55 push ebp
00604C11 8BEC mov ebp, esp
00604C13 80F901 cmp cl, $01
00604C16 7505 jnz 00604C1D
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
00604C18 E89F14E5FF call 004560BC
00604C1D 5D pop ebp
00604C1E C20C00 ret $000C
*)
end;
procedure TfrmGGInfo.FormDestroy(Sender : TObject);
begin
(*
* Reference to field TfrmGGInfo.OFFS_033C
|
00604D6C 8B803C030000 mov eax, [eax+$033C]
* Reference to: system.TObject.Free(TObject);
|
00604D72 E855E5DFFF call 004032CC
00604D77 C3 ret
*)
end;
procedure TfrmGGInfo.FormKeyPress(Sender : TObject);
begin
(*
00604D78 53 push ebx
00604D79 51 push ecx
00604D7A 8BD8 mov ebx, eax
00604D7C 8A01 mov al, byte ptr [ecx]
00604D7E 2C5B sub al, $5B
00604D80 7404 jz 00604D86
00604D82 2C02 sub al, $02
00604D84 7558 jnz 00604DDE
* Reference to field TfrmGGInfo.OFFS_0340
|
00604D86 668B8340030000 mov ax, word ptr [ebx+$0340]
00604D8D 66890424 mov [esp], ax
00604D91 80395B cmp byte ptr [ecx], $5B
00604D94 7513 jnz 00604DA9
00604D96 8B03 mov eax, [ebx]
* Reference to : THJForm._PROC_007516C8()
|
00604D98 E82BC91400 call 007516C8
00604D9D 8BD4 mov edx, esp
00604D9F 83C9FF or ecx, -$01
* Reference to: Unit_007605C8.Proc_007607FC
|
00604DA2 E855BA1500 call 007607FC
00604DA7 EB13 jmp 00604DBC
00604DA9 8B03 mov eax, [ebx]
* Reference to : THJForm._PROC_007516C8()
|
00604DAB E818C91400 call 007516C8
00604DB0 8BD4 mov edx, esp
00604DB2 B901000000 mov ecx, $00000001
* Reference to: Unit_007605C8.Proc_007607FC
|
00604DB7 E840BA1500 call 007607FC
* Reference to pointer to GlobalVar_0078CF10
|
00604DBC A1DCCA7700 mov eax, dword ptr [$0077CADC]
00604DC1 8B00 mov eax, [eax]
00604DC3 668B1424 mov dx, word ptr [esp]
* Reference to: Unit_00762200.Proc_00762E10
|
00604DC7 E844E01500 call 00762E10
00604DCC 85C0 test eax, eax
00604DCE 740E jz 00604DDE
00604DD0 668B1424 mov dx, word ptr [esp]
00604DD4 8BC3 mov eax, ebx
00604DD6 8B08 mov ecx, [eax]
* Possible reference to virtual method TfrmGGInfo.OFFS_0144
|
00604DD8 FF9144010000 call dword ptr [ecx+$0144]
00604DDE 5A pop edx
00604DDF 5B pop ebx
00604DE0 C3 ret
*)
end;
procedure TfrmGGInfo.EmbeddedWB1DocumentComplete(Sender : TObject);
begin
(*
00604DE4 55 push ebp
00604DE5 8BEC mov ebp, esp
00604DE7 8B10 mov edx, [eax]
* Reference to method TfrmGGInfo.SetFocus()
|
00604DE9 FF92B0000000 call dword ptr [edx+$00B0]
00604DEF 5D pop ebp
00604DF0 C20400 ret $0004
*)
end;
procedure TfrmGGInfo.EmbeddedWB1TranslateAccelerator(Sender : TObject);
begin
(*
00604DF4 55 push ebp
00604DF5 8BEC mov ebp, esp
00604DF7 81C4F8FEFFFF add esp, $FFFFFEF8
00604DFD 53 push ebx
00604DFE 56 push esi
00604DFF 57 push edi
00604E00 8BFA mov edi, edx
00604E02 8BF0 mov esi, eax
00604E04 8B4704 mov eax, [edi+$04]
00604E07 3D00010000 cmp eax, $00000100
00604E0C 7564 jnz 00604E72
00604E0E 837F0872 cmp dword ptr [edi+$08], +$72
00604E12 7514 jnz 00604E28
* Reference to THJ32Main instance
|
00604E14 A158D37700 mov eax, dword ptr [$0077D358]
00604E19 8B00 mov eax, [eax]
* Reference to control THJ32Main.mnuSHLX : TMenuItem
|
00604E1B 8B803C040000 mov eax, [eax+$043C]
00604E21 8B10 mov edx, [eax]
* Reference to method TMenuItem.Click()
|
00604E23 FF5240 call dword ptr [edx+$40]
00604E26 EB63 jmp 00604E8B
00604E28 837F0873 cmp dword ptr [edi+$08], +$73
00604E2C 7514 jnz 00604E42
* Reference to THJ32Main instance
|
00604E2E A158D37700 mov eax, dword ptr [$0077D358]
00604E33 8B00 mov eax, [eax]
* Reference to control THJ32Main.mnuSZLX : TMenuItem
|
00604E35 8B8040040000 mov eax, [eax+$0440]
00604E3B 8B10 mov edx, [eax]
* Reference to method TMenuItem.Click()
|
00604E3D FF5240 call dword ptr [edx+$40]
00604E40 EB49 jmp 00604E8B
00604E42 8D85F9FEFFFF lea eax, [ebp+$FFFFFEF9]
00604E48 50 push eax
* Reference to: user32.GetKeyboardState()
|
00604E49 E8D23BE0FF call 00408A20
00604E4E 8D85F9FEFFFF lea eax, [ebp+$FFFFFEF9]
* Reference to: forms.KeyboardStateToShiftState(TKeyboardState;TKeyboardState):TShiftState;
|
00604E54 E873BBE4FF call 004509CC
00604E59 8BD8 mov ebx, eax
00604E5B 668B4708 mov ax, word ptr [edi+$08]
00604E5F 668945FA mov [ebp-$06], ax
00604E63 53 push ebx
00604E64 8D4DFA lea ecx, [ebp-$06]
00604E67 8BD6 mov edx, esi
00604E69 8BC6 mov eax, esi
* Reference to : THJForm._PROC_00750B80()
|
00604E6B E810BD1400 call 00750B80
00604E70 EB19 jmp 00604E8B
00604E72 3D02010000 cmp eax, $00000102
00604E77 7512 jnz 00604E8B
00604E79 8A4708 mov al, byte ptr [edi+$08]
00604E7C 8845F9 mov [ebp-$07], al
00604E7F 8D4DF9 lea ecx, [ebp-$07]
00604E82 8BD6 mov edx, esi
00604E84 8BC6 mov eax, esi
* Reference to : THJForm._PROC_00750928()
|
00604E86 E89DBA1400 call 00750928
00604E8B 8B45FC mov eax, [ebp-$04]
00604E8E 5F pop edi
00604E8F 5E pop esi
00604E90 5B pop ebx
00604E91 8BE5 mov esp, ebp
00604E93 5D pop ebp
00604E94 C20400 ret $0004
*)
end;
procedure TfrmGGInfo.EmbeddedWB1NewWindow2(Sender : TObject);
begin
(*
00604E98 55 push ebp
00604E99 8BEC mov ebp, esp
00604E9B 8B4508 mov eax, [ebp+$08]
00604E9E 66C700FFFF mov word ptr [eax], $FFFF
00604EA3 5D pop ebp
00604EA4 C20400 ret $0004
*)
end;
procedure TfrmGGInfo._PROC_00604ADC(Sender : TObject);
begin
(*
00604ADC 53 push ebx
00604ADD 8BD8 mov ebx, eax
00604ADF 8BC3 mov eax, ebx
* Reference to : THJForm._PROC_0075124C()
|
00604AE1 E866C71400 call 0075124C
00604AE6 8B03 mov eax, [ebx]
* Reference to : THJForm._PROC_007516C8()
|
00604AE8 E8DBCB1400 call 007516C8
* Reference to field TfrmGGInfo.OFFS_0340
|
00604AED 8D9340030000 lea edx, [ebx+$0340]
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -