📄 assitant.pas
字号:
unit Assitant;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmAssistant=class(TForm)
Image1: TImage;
Label1: TLabel;
Timer1: TTimer;
Label2: TLabel;
Label4: TLabel;
MouseHook1: TMouseHook;
Timer2: TTimer;
RxGIFAnimator1: TImage;
Label3: TLabel;
OFFS_02F5: N.A.;
procedure FormClose(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure Image1MouseDown(Sender : TObject);
procedure MouseHook1HookProc(Sender : TObject);
procedure RxGIFAnimator1Click(Sender : TObject);
procedure Label4Click(Sender : TObject);
procedure Label2Click(Sender : TObject);
procedure FormKeyDown(Sender : TObject);
procedure Timer2Timer(Sender : TObject);
procedure FormKeyPress(Sender : TObject);
procedure _PROC_006B3000(Sender : TObject);
procedure _PROC_006B3240(Sender : TObject);
procedure _PROC_006B3520(Sender : TObject);
procedure _PROC_006B3550(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmAssistant: TfrmAssistant;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmAssistant.FormClose(Sender : TObject);
begin
(*
006B2FFC C60102 mov byte ptr [ecx], $02
006B2FFF C3 ret
*)
end;
procedure TfrmAssistant.FormCreate(Sender : TObject);
begin
(*
006B31DC 53 push ebx
006B31DD 8BD8 mov ebx, eax
* Reference to field TfrmAssistant.OFFS_02FC
|
006B31DF 8D83FC020000 lea eax, [ebx+$02FC]
006B31E5 50 push eax
* Reference to field TfrmAssistant.OFFS_02F8
|
006B31E6 8D8BF8020000 lea ecx, [ebx+$02F8]
006B31EC A1A8D37700 mov eax, dword ptr [$0077D3A8]
006B31F1 8B00 mov eax, [eax]
006B31F3 B202 mov dl, $02
* Reference to: Unit_006035CC.Proc_0060454C
|
006B31F5 E85213F5FF call 0060454C
* Reference to field TfrmAssistant.OFFS_02F8
|
006B31FA 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Unit_00409434.Proc_0040A8BC
|
006B3200 E8B776D5FF call 0040A8BC
006B3205 84C0 test al, al
006B3207 7417 jz 006B3220
* Reference to control TfrmAssistant.RxGIFAnimator1 : TImage
|
006B3209 8B83EC020000 mov eax, [ebx+$02EC]
* Reference to field TImage.Picture : TPicture
|
006B320F 8B8028010000 mov eax, [eax+$0128]
* Reference to field TfrmAssistant.OFFS_02F8
|
006B3215 8B93F8020000 mov edx, [ebx+$02F8]
* Reference to: graphics.TPicture.LoadFromFile(TPicture;AnsiString);
|
006B321B E830E5D6FF call 00421750
* Reference to TScreen instance
|
006B3220 A11CD57700 mov eax, dword ptr [$0077D51C]
006B3225 8B00 mov eax, [eax]
* Reference to: forms.TScreen.GetWidth(TScreen):Integer;
|
006B3227 E8C83EDAFF call 004570F4
006B322C 8BD0 mov edx, eax
006B322E 2B5338 sub edx, dword ptr [ebx+$38]
006B3231 83EA02 sub edx, +$02
006B3234 8BC3 mov eax, ebx
* Reference to: controls.TControl.SetLeft(TControl;Integer);
|
006B3236 E80960D8FF call 00439244
006B323B 5B pop ebx
006B323C C3 ret
*)
end;
procedure TfrmAssistant.FormDestroy(Sender : TObject);
begin
(*
006B3320 53 push ebx
006B3321 8BD8 mov ebx, eax
006B3323 33D2 xor edx, edx
* Reference to control TfrmAssistant.MouseHook1 : TMouseHook
|
006B3325 8B83E4020000 mov eax, [ebx+$02E4]
* Reference to: BaseHook.Proc_00527C24
|
006B332B E8F448E7FF call 00527C24
006B3330 33D2 xor edx, edx
* Reference to control TfrmAssistant.Timer1 : TTimer
|
006B3332 8B83D8020000 mov eax, [ebx+$02D8]
* Reference to: extctrls.TTimer.SetEnabled(TTimer;Boolean);
|
006B3338 E893C1DAFF call 0045F4D0
006B333D 33D2 xor edx, edx
* Reference to control TfrmAssistant.Timer2 : TTimer
|
006B333F 8B83E8020000 mov eax, [ebx+$02E8]
* Reference to: extctrls.TTimer.SetEnabled(TTimer;Boolean);
|
006B3345 E886C1DAFF call 0045F4D0
006B334A 5B pop ebx
006B334B C3 ret
*)
end;
procedure TfrmAssistant.Image1MouseDown(Sender : TObject);
begin
(*
006B334C 55 push ebp
006B334D 8BEC mov ebp, esp
006B334F 53 push ebx
006B3350 8BD8 mov ebx, eax
006B3352 8B5508 mov edx, [ebp+$08]
006B3355 8B450C mov eax, [ebp+$0C]
006B3358 83F806 cmp eax, +$06
006B335B 7C18 jl 006B3375
006B335D 83F813 cmp eax, +$13
006B3360 7F13 jnle 006B3375
006B3362 83FA0D cmp edx, +$0D
006B3365 7C0E jl 006B3375
006B3367 83FA17 cmp edx, +$17
006B336A 7F09 jnle 006B3375
006B336C 8BC3 mov eax, ebx
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006B336E E8492DDAFF call 004560BC
006B3373 EB3F jmp 006B33B4
006B3375 3D3B010000 cmp eax, $0000013B
006B337A 7C1A jl 006B3396
006B337C 3D47010000 cmp eax, $00000147
006B3381 7F13 jnle 006B3396
006B3383 83FA06 cmp edx, +$06
006B3386 7C0E jl 006B3396
006B3388 83FA12 cmp edx, +$12
006B338B 7F09 jnle 006B3396
006B338D 8BC3 mov eax, ebx
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006B338F E8282DDAFF call 004560BC
006B3394 EB1E jmp 006B33B4
* Reference to: user32.ReleaseCapture()
|
006B3396 E8F558D5FF call 00408C90
006B339B 6A00 push $00
006B339D 6812F00000 push $0000F012
006B33A2 6812010000 push $00000112
006B33A7 8BC3 mov eax, ebx
* Reference to: controls.TWinControl.GetHandle(TWinControl):HWND;
|
006B33A9 E8DAC9D8FF call 0043FD88
006B33AE 50 push eax
* Reference to: user32.SendMessageA()
|
006B33AF E82459D5FF call 00408CD8
006B33B4 5B pop ebx
006B33B5 5D pop ebp
006B33B6 C20C00 ret $000C
*)
end;
procedure TfrmAssistant.MouseHook1HookProc(Sender : TObject);
begin
(*
006B33BC 55 push ebp
006B33BD 8BEC mov ebp, esp
006B33BF 83C4F8 add esp, -$08
006B33C2 53 push ebx
006B33C3 56 push esi
006B33C4 57 push edi
006B33C5 8BD8 mov ebx, eax
006B33C7 33F6 xor esi, esi
006B33C9 66817D0C0002 cmp word ptr [ebp+$0C], $0200
006B33CF 7554 jnz 006B3425
006B33D1 837D0800 cmp dword ptr [ebp+$08], +$00
006B33D5 744E jz 006B3425
006B33D7 8B7D08 mov edi, [ebp+$08]
006B33DA 8D4DF8 lea ecx, [ebp-$08]
006B33DD 8BD7 mov edx, edi
006B33DF 8BC3 mov eax, ebx
* Reference to: controls.TControl.ScreenToClient(TControl;TPoint;TPoint):TPoint;
|
006B33E1 E80E62D8FF call 004395F4
006B33E6 8B45F8 mov eax, [ebp-$08]
006B33E9 8907 mov [edi], eax
006B33EB 8B45FC mov eax, [ebp-$04]
006B33EE 894704 mov [edi+$04], eax
* Reference to TScreen instance
|
006B33F1 A11CD57700 mov eax, dword ptr [$0077D51C]
006B33F6 8B00 mov eax, [eax]
006B33F8 33D2 xor edx, edx
* Reference to: forms.TScreen.SetCursor(TScreen;TCursor);
|
006B33FA E8FD41DAFF call 004575FC
* Reference to field TfrmAssistant.OFFS_02F5 : Byte
|
006B33FF 80BBF502000001 cmp byte ptr [ebx+$02F5], $01
006B3406 7510 jnz 006B3418
006B3408 BA30750000 mov edx, $00007530
* Reference to control TfrmAssistant.Timer2 : TTimer
|
006B340D 8B83E8020000 mov eax, [ebx+$02E8]
* Reference to: extctrls.TTimer.SetInterval(TTimer;Cardinal);
|
006B3413 E8C8C0DAFF call 0045F4E0
006B3418 B201 mov dl, $01
* Reference to control TfrmAssistant.Timer2 : TTimer
|
006B341A 8B83E8020000 mov eax, [ebx+$02E8]
* Reference to: extctrls.TTimer.SetEnabled(TTimer;Boolean);
|
006B3420 E8ABC0DAFF call 0045F4D0
006B3425 8BC6 mov eax, esi
006B3427 5F pop edi
006B3428 5E pop esi
006B3429 5B pop ebx
006B342A 59 pop ecx
006B342B 59 pop ecx
006B342C 5D pop ebp
006B342D C20800 ret $0008
*)
end;
procedure TfrmAssistant.RxGIFAnimator1Click(Sender : TObject);
begin
(*
006B3430 53 push ebx
006B3431 8BD8 mov ebx, eax
* Reference to field TfrmAssistant.OFFS_02FC
|
006B3433 83BBFC02000000 cmp dword ptr [ebx+$02FC], +$00
006B343A 740B jz 006B3447
* Reference to field TfrmAssistant.OFFS_02FC
|
006B343C 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Unit_00651A88.Proc_006543DC
|
006B3442 E8950FFAFF call 006543DC
006B3447 5B pop ebx
006B3448 C3 ret
*)
end;
procedure TfrmAssistant.Label4Click(Sender : TObject);
begin
(*
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006B344C E86B2CDAFF call 004560BC
006B3451 C3 ret
*)
end;
procedure TfrmAssistant.Label2Click(Sender : TObject);
begin
(*
006B3454 53 push ebx
006B3455 8BD8 mov ebx, eax
* Reference to field TfrmAssistant.OFFS_02F5 : Byte
|
006B3457 80BBF502000000 cmp byte ptr [ebx+$02F5], $00
006B345E 751B jnz 006B347B
* Reference to pointer to GlobalVar_0078CF18
|
006B3460 A1E8D07700 mov eax, dword ptr [$0077D0E8]
006B3465 8B00 mov eax, [eax]
* Reference to class TDataGenDZH
|
006B3467 8B15EC656000 mov edx, [$006065EC]
* Reference to: system.@AsClass;
|
006B346D E8EAFFD4FF call 0040345C
006B3472 66BA6400 mov dx, $0064
* Reference to: Unit_006065EC.Proc_00611E28
|
006B3476 E8ADE9F5FF call 00611E28
006B347B 8BC3 mov eax, ebx
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -