📄 rtzhpm.pas
字号:
unit RTZhpm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFrmZhpm=class(TForm)
Timer1: TTimer;
OFFS_033C: N.A.;
procedure FormCreate(Sender : TObject);
procedure FormPaint(Sender : TObject);
procedure BitBtn1Click(Sender : TObject);
procedure FormKeyDown(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure FormMouseDown(Sender : TObject);
procedure FormDblClick(Sender : TObject);
procedure FormResize(Sender : TObject);
procedure Timer1Timer(Sender : TObject);
procedure _PROC_005B4498(Sender : TObject);
procedure _PROC_005B494D(Sender : TObject);
procedure _PROC_005B5506(Sender : TObject);
procedure _PROC_005B5582(Sender : TObject);
procedure _PROC_005B5668(Sender : TObject);
procedure _PROC_005B56CC(Sender : TObject);
procedure _PROC_005B56D8(Sender : TObject);
procedure _PROC_005B5828(Sender : TObject);
procedure _PROC_005B5B1C(Sender : TObject);
procedure _PROC_005B5B60(Sender : TObject);
procedure _PROC_005B5B90(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmZhpm: TFrmZhpm;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmZhpm.FormCreate(Sender : TObject);
begin
(*
005B4478 53 push ebx
005B4479 8BD8 mov ebx, eax
005B447B B208 mov dl, $08
005B447D 8BC3 mov eax, ebx
* Reference to: HJForm.Proc_00750F8C
|
005B447F E808CB1900 call 00750F8C
005B4484 33C0 xor eax, eax
* Reference to field TFrmZhpm.OFFS_033C : Byte
|
005B4486 89833C030000 mov [ebx+$033C], eax
005B448C 33C0 xor eax, eax
* Reference to field TFrmZhpm.OFFS_0340
|
005B448E 898340030000 mov [ebx+$0340], eax
005B4494 5B pop ebx
005B4495 C3 ret
*)
end;
procedure TFrmZhpm.FormPaint(Sender : TObject);
begin
(*
005B5514 8B10 mov edx, [eax]
* Possible reference to virtual method TFrmZhpm.OFFS_01B8
|
005B5516 FF92B8010000 call dword ptr [edx+$01B8]
005B551C C3 ret
*)
end;
procedure TFrmZhpm.BitBtn1Click(Sender : TObject);
begin
(*
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
005B5520 E8970BEAFF call 004560BC
005B5525 C3 ret
*)
end;
procedure TFrmZhpm.FormKeyDown(Sender : TObject);
begin
(*
005B5528 55 push ebp
005B5529 8BEC mov ebp, esp
005B552B 53 push ebx
005B552C 56 push esi
005B552D 8BF1 mov esi, ecx
005B552F 8B15E8D27700 mov edx, [$0077D2E8]
005B5535 803A00 cmp byte ptr [edx], $00
005B5538 7506 jnz 005B5540
005B553A B103 mov cl, $03
005B553C B212 mov dl, $12
005B553E EB04 jmp 005B5544
005B5540 B102 mov cl, $02
005B5542 B206 mov dl, $06
005B5544 0FB71E movzx ebx, word ptr [esi]
005B5547 83C3F3 add ebx, -$0D
005B554A 83FB1B cmp ebx, +$1B
005B554D 0F8708010000 jnbe 005B565B
005B5553 8A9B60555B00 mov bl, byte ptr [ebx+$5B5560]
005B5559 FF249D7C555B00 jmp dword ptr [$5B557C+ebx*4]
005B5560 06 push es
005B5561 0000 add [eax], al
*)
end;
procedure TFrmZhpm.FormClose(Sender : TObject);
begin
(*
005B5664 C60102 mov byte ptr [ecx], $02
005B5667 C3 ret
*)
end;
procedure TFrmZhpm.FormMouseDown(Sender : TObject);
begin
(*
005B5A08 55 push ebp
005B5A09 8BEC mov ebp, esp
005B5A0B 51 push ecx
005B5A0C 53 push ebx
005B5A0D 56 push esi
005B5A0E 57 push edi
005B5A0F 8BD8 mov ebx, eax
005B5A11 8B7508 mov esi, [ebp+$08]
005B5A14 8B7D0C mov edi, [ebp+$0C]
005B5A17 A1E8D27700 mov eax, dword ptr [$0077D2E8]
005B5A1C 803800 cmp byte ptr [eax], $00
005B5A1F 7574 jnz 005B5A95
005B5A21 8BC3 mov eax, ebx
* Reference to: controls.TControl.GetClientWidth(TControl):Integer;
|
005B5A23 E88C3AE8FF call 004394B4
005B5A28 B903000000 mov ecx, $00000003
005B5A2D 99 cdq
005B5A2E F7F9 idiv ecx
005B5A30 50 push eax
005B5A31 8BC7 mov eax, edi
005B5A33 5A pop edx
005B5A34 8BCA mov ecx, edx
005B5A36 99 cdq
005B5A37 F7F9 idiv ecx
005B5A39 8BF8 mov edi, eax
005B5A3B 8BC3 mov eax, ebx
* Reference to: controls.TControl.GetClientHeight(TControl):Integer;
|
005B5A3D E8B63AE8FF call 004394F8
005B5A42 B903000000 mov ecx, $00000003
005B5A47 99 cdq
005B5A48 F7F9 idiv ecx
005B5A4A 50 push eax
005B5A4B 8BC6 mov eax, esi
005B5A4D 5A pop edx
005B5A4E 8BCA mov ecx, edx
005B5A50 99 cdq
005B5A51 F7F9 idiv ecx
005B5A53 8945FC mov [ebp-$04], eax
005B5A56 8BC3 mov eax, ebx
* Reference to: controls.TControl.GetClientHeight(TControl):Integer;
|
005B5A58 E89B3AE8FF call 004394F8
005B5A5D B903000000 mov ecx, $00000003
005B5A62 99 cdq
005B5A63 F7F9 idiv ecx
005B5A65 F76DFC imul dword ptr [ebp-$04]
005B5A68 2BF0 sub esi, eax
005B5A6A 8BC3 mov eax, ebx
* Reference to: controls.TControl.GetClientHeight(TControl):Integer;
|
005B5A6C E8873AE8FF call 004394F8
005B5A71 B915000000 mov ecx, $00000015
005B5A76 99 cdq
005B5A77 F7F9 idiv ecx
005B5A79 50 push eax
005B5A7A 8BC6 mov eax, esi
005B5A7C 5A pop edx
005B5A7D 8BCA mov ecx, edx
005B5A7F 99 cdq
005B5A80 F7F9 idiv ecx
005B5A82 8BF0 mov esi, eax
005B5A84 85F6 test esi, esi
005B5A86 7E01 jle 005B5A89
005B5A88 4E dec esi
005B5A89 8B45FC mov eax, [ebp-$04]
005B5A8C 03C0 add eax, eax
005B5A8E 8D0440 lea eax, [eax+eax*2]
005B5A91 03F0 add esi, eax
005B5A93 EB38 jmp 005B5ACD
005B5A95 8BC3 mov eax, ebx
* Reference to: controls.TControl.GetClientWidth(TControl):Integer;
|
005B5A97 E8183AE8FF call 004394B4
005B5A9C D1F8 sar eax, 1
005B5A9E 7903 jns 005B5AA3
005B5AA0 83D000 adc eax, +$00
005B5AA3 50 push eax
005B5AA4 8BC7 mov eax, edi
005B5AA6 5A pop edx
005B5AA7 8BCA mov ecx, edx
005B5AA9 99 cdq
005B5AAA F7F9 idiv ecx
005B5AAC 8BF8 mov edi, eax
005B5AAE 8BC3 mov eax, ebx
* Reference to: controls.TControl.GetClientHeight(TControl):Integer;
|
005B5AB0 E8433AE8FF call 004394F8
005B5AB5 B907000000 mov ecx, $00000007
005B5ABA 99 cdq
005B5ABB F7F9 idiv ecx
005B5ABD 50 push eax
005B5ABE 8BC6 mov eax, esi
005B5AC0 5A pop edx
005B5AC1 8BCA mov ecx, edx
005B5AC3 99 cdq
005B5AC4 F7F9 idiv ecx
005B5AC6 8BF0 mov esi, eax
005B5AC8 85F6 test esi, esi
005B5ACA 7E01 jle 005B5ACD
005B5ACC 4E dec esi
005B5ACD 8BCE mov ecx, esi
005B5ACF 2B8B40030000 sub ecx, dword ptr [ebx+$0340]
005B5AD5 8BD7 mov edx, edi
005B5AD7 2B933C030000 sub edx, dword ptr [ebx+$033C]
005B5ADD 8BC3 mov eax, ebx
* Reference to : TFrmZhpm._PROC_005B5828()
|
005B5ADF E844FDFFFF call 005B5828
005B5AE4 5F pop edi
005B5AE5 5E pop esi
005B5AE6 5B pop ebx
005B5AE7 59 pop ecx
005B5AE8 5D pop ebp
005B5AE9 C20C00 ret $000C
*)
end;
procedure TFrmZhpm.FormDblClick(Sender : TObject);
begin
(*
* Reference to THJ32Main instance
|
005B5AEC 8B1558D37700 mov edx, [$0077D358]
005B5AF2 8B12 mov edx, [edx]
* Reference to field THJ32Main.OFFS_08CD : Byte
|
005B5AF4 C682CD08000003 mov byte ptr [edx+$08CD], $03
005B5AFB 6A00 push $00
* Reference to THJ32Main instance
|
005B5AFD 8B1558D37700 mov edx, [$0077D358]
005B5B03 8B12 mov edx, [edx]
005B5B05 B102 mov cl, $02
005B5B07 92 xchg eax, edx
* Reference to : THJ32Main._PROC_006AC048()
|
005B5B08 E83B650F00 call 006AC048
005B5B0D C3 ret
*)
end;
procedure TFrmZhpm.FormResize(Sender : TObject);
begin
(*
005B5B10 8B10 mov edx, [eax]
* Possible reference to virtual method TFrmZhpm.OFFS_01B8
|
005B5B12 FF92B8010000 call dword ptr [edx+$01B8]
005B5B18 C3 ret
*)
end;
procedure TFrmZhpm.Timer1Timer(Sender : TObject);
begin
(*
005B5B28 53 push ebx
005B5B29 56 push esi
005B5B2A 8BD8 mov ebx, eax
005B5B2C 8B03 mov eax, [ebx]
* Reference to : THJForm._PROC_007516C8()
|
005B5B2E E895BB1900 call 007516C8
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -