📄 tdbkwin.pas
字号:
unit TDBkWin;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmTDBK=class(TForm)
Timer1: TTimer;
OFFS_0374: N.A.;
OFFS_0375: N.A.;
OFFS_035C: N.A.;
procedure FormCreate(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure FormPaint(Sender : TObject);
procedure FormKeyDown(Sender : TObject);
procedure FormResize(Sender : TObject);
procedure FormMouseDown(Sender : TObject);
procedure FormDblClick(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure Timer1Timer(Sender : TObject);
procedure _PROC_00624C44(Sender : TObject);
procedure _PROC_00624C5C(Sender : TObject);
procedure _PROC_00624C9F(Sender : TObject);
procedure _PROC_00624CBD(Sender : TObject);
procedure _PROC_00624CE4(Sender : TObject);
procedure _PROC_006250EC(Sender : TObject);
procedure _PROC_006252BC(Sender : TObject);
procedure _PROC_00625304(Sender : TObject);
procedure _PROC_00625851(Sender : TObject);
procedure _PROC_00625988(Sender : TObject);
procedure _PROC_00625A08(Sender : TObject);
procedure _PROC_00625A4C(Sender : TObject);
procedure _PROC_00625B80(Sender : TObject);
procedure _PROC_00625C3C(Sender : TObject);
procedure _PROC_00625C40(Sender : TObject);
procedure _PROC_00625CD8(Sender : TObject);
procedure _PROC_00625D90(Sender : TObject);
procedure _PROC_0062601C(Sender : TObject);
procedure _PROC_0062608F(Sender : TObject);
procedure _PROC_006261FC(Sender : TObject);
procedure _PROC_00626410(Sender : TObject);
procedure _PROC_006264C8(Sender : TObject);
procedure _PROC_00626514(Sender : TObject);
procedure _PROC_00626570(Sender : TObject);
procedure _PROC_006265CC(Sender : TObject);
procedure _PROC_006266C8(Sender : TObject);
procedure _PROC_006266ED(Sender : TObject);
procedure _PROC_0062671C(Sender : TObject);
procedure Proc_00624CBC(Sender : TObject);
procedure Proc_006257E4(Sender : TObject);
procedure Proc_00625850(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmTDBK: TfrmTDBK;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmTDBK.FormCreate(Sender : TObject);
begin
(*
00624BC8 53 push ebx
00624BC9 8BD8 mov ebx, eax
00624BCB 8BC3 mov eax, ebx
00624BCD 8B10 mov edx, [eax]
* Possible reference to virtual method TfrmTDBK.OFFS_01E4
|
00624BCF FF92E4010000 call dword ptr [edx+$01E4]
00624BD5 33C0 xor eax, eax
* Reference to field TfrmTDBK.OFFS_0344
|
00624BD7 898344030000 mov [ebx+$0344], eax
* Reference to field TfrmTDBK.OFFS_0354
|
00624BDD C7835403000002000000 mov dword ptr [ebx+$0354], $00000002
* Reference to field TfrmTDBK.OFFS_0358
|
00624BE7 C7835803000002000000 mov dword ptr [ebx+$0358], $00000002
00624BF1 33C0 xor eax, eax
* Reference to field TfrmTDBK.OFFS_0344
|
00624BF3 898344030000 mov [ebx+$0344], eax
* Reference to field TfrmTDBK.OFFS_0374 : Byte
|
00624BF9 C6837403000001 mov byte ptr [ebx+$0374], $01
* Reference to field TfrmTDBK.OFFS_0375 : Byte
|
00624C00 C6837503000001 mov byte ptr [ebx+$0375], $01
* Reference to field TfrmTDBK.OFFS_033C
|
00624C07 C7833C030000FFFFFFFF mov dword ptr [ebx+$033C], $FFFFFFFF
* Reference to field TfrmTDBK.OFFS_035C : Byte
|
00624C11 C6835C03000000 mov byte ptr [ebx+$035C], $00
00624C18 33C0 xor eax, eax
* Reference to field TfrmTDBK.OFFS_0348
|
00624C1A 898348030000 mov [ebx+$0348], eax
00624C20 33C0 xor eax, eax
* Reference to field TfrmTDBK.OFFS_034C
|
00624C22 89834C030000 mov [ebx+$034C], eax
00624C28 8BC3 mov eax, ebx
* Reference to : TfrmTDBK._PROC_00624C5C()
|
00624C2A E82D000000 call 00624C5C
00624C2F 8BC3 mov eax, ebx
* Reference to : THJForm._PROC_00751538()
|
00624C31 E802C91200 call 00751538
00624C36 33C9 xor ecx, ecx
00624C38 B201 mov dl, $01
00624C3A 8BC3 mov eax, ebx
* Reference to : TfrmTDBK._PROC_00624CE4()
|
00624C3C E8A3000000 call 00624CE4
00624C41 5B pop ebx
00624C42 C3 ret
*)
end;
procedure TfrmTDBK.FormClose(Sender : TObject);
begin
(*
00625C38 C60102 mov byte ptr [ecx], $02
00625C3B C3 ret
*)
end;
procedure TfrmTDBK.FormPaint(Sender : TObject);
begin
(*
* Reference to : TfrmTDBK._PROC_006252BC()
|
00626230 E887F0FFFF call 006252BC
00626235 C3 ret
*)
end;
procedure TfrmTDBK.FormKeyDown(Sender : TObject);
begin
(*
00625D94 55 push ebp
00625D95 8BEC mov ebp, esp
00625D97 53 push ebx
00625D98 56 push esi
00625D99 57 push edi
00625D9A 8BF1 mov esi, ecx
00625D9C 8BF8 mov edi, eax
00625D9E 33DB xor ebx, ebx
00625DA0 0FB706 movzx eax, word ptr [esi]
00625DA3 83C0F3 add eax, -$0D
00625DA6 83F81B cmp eax, +$1B
00625DA9 0F87BA030000 jnbe 00626169
00625DAF 8A80BC5D6200 mov al, byte ptr [eax+$625DBC]
00625DB5 FF2485D85D6200 jmp dword ptr [$625DD8+eax*4]
00625DBC 0800 or [eax], al
00625DBE 0000 add [eax], al
*)
end;
procedure TfrmTDBK.FormResize(Sender : TObject);
begin
(*
00626238 53 push ebx
00626239 8BD8 mov ebx, eax
* Reference to field TfrmTDBK.OFFS_0344
|
0062623B 83BB4403000000 cmp dword ptr [ebx+$0344], +$00
00626242 740E jz 00626252
00626244 8BC3 mov eax, ebx
* Reference to : TfrmTDBK._PROC_006250EC()
|
00626246 E8A1EEFFFF call 006250EC
0062624B 8BC3 mov eax, ebx
* Reference to : TfrmTDBK._PROC_006252BC()
|
0062624D E86AF0FFFF call 006252BC
00626252 5B pop ebx
00626253 C3 ret
*)
end;
procedure TfrmTDBK.FormMouseDown(Sender : TObject);
begin
(*
00626254 55 push ebp
00626255 8BEC mov ebp, esp
00626257 83C4E4 add esp, -$1C
0062625A 53 push ebx
0062625B 56 push esi
0062625C 57 push edi
0062625D 8BD8 mov ebx, eax
0062625F 80E901 sub cl, $01
00626262 7235 jb 00626299
00626264 0F8528010000 jnz 00626392
0062626A 8B450C mov eax, [ebp+$0C]
0062626D 8945F0 mov [ebp-$10], eax
00626270 8B4508 mov eax, [ebp+$08]
00626273 8945F4 mov [ebp-$0C], eax
00626276 8D4DF8 lea ecx, [ebp-$08]
00626279 8D55F0 lea edx, [ebp-$10]
0062627C 8BC3 mov eax, ebx
* Reference to: controls.TControl.ClientToScreen(TControl;TPoint;TPoint):TPoint;
|
0062627E E84533E1FF call 004395C8
00626283 8B4DFC mov ecx, [ebp-$04]
00626286 8B55F8 mov edx, [ebp-$08]
* Reference to field TfrmTDBK.OFFS_0324
|
00626289 8B8324030000 mov eax, [ebx+$0324]
0062628F 8B18 mov ebx, [eax]
00626291 FF5340 call dword ptr [ebx+$40]
00626294 E9F9000000 jmp 00626392
00626299 8BC3 mov eax, ebx
* Reference to: controls.TControl.GetClientWidth(TControl):Integer;
|
0062629B E81432E1FF call 004394B4
006262A0 8945E4 mov [ebp-$1C], eax
006262A3 DB45E4 fild dword ptr [ebp-$1C]
006262A6 DB8354030000 fild dword ptr [ebx+$0354]
006262AC DEF9 fdivp st(1), st(0)
* Reference to: system.@TRUNC;
|
006262AE E84DCADDFF call 00402D00
006262B3 52 push edx
006262B4 50 push eax
006262B5 8B450C mov eax, [ebp+$0C]
006262B8 99 cdq
* Reference to: system.@_lldiv;
|
006262B9 E8C415DEFF call 00407882
006262BE 8BF0 mov esi, eax
006262C0 8BC3 mov eax, ebx
* Reference to: controls.TControl.GetClientHeight(TControl):Integer;
|
006262C2 E83132E1FF call 004394F8
006262C7 8945E4 mov [ebp-$1C], eax
006262CA DB45E4 fild dword ptr [ebp-$1C]
006262CD DB8358030000 fild dword ptr [ebx+$0358]
006262D3 DEF9 fdivp st(1), st(0)
* Reference to: system.@TRUNC;
|
006262D5 E826CADDFF call 00402D00
006262DA 52 push edx
006262DB 50 push eax
006262DC 8B4508 mov eax, [ebp+$08]
006262DF 99 cdq
* Reference to: system.@_lldiv;
|
006262E0 E89D15DEFF call 00407882
006262E5 8BF8 mov edi, eax
006262E7 8B8340030000 mov eax, [ebx+$0340]
006262ED F7AB54030000 imul dword ptr [ebx+$0354]
006262F3 F7AB58030000 imul dword ptr [ebx+$0358]
006262F9 8BD6 mov edx, esi
006262FB 0FAF9358030000 imul edx, [ebx+$0358]
00626302 03C2 add eax, edx
00626304 03C7 add eax, edi
00626306 3B8350030000 cmp eax, [ebx+$0350]
0062630C 0F8D80000000 jnl 00626392
00626312 8B8348030000 mov eax, [ebx+$0348]
00626318 89834C030000 mov [ebx+$034C], eax
0062631E 8BC6 mov eax, esi
00626320 F7AB58030000 imul dword ptr [ebx+$0358]
00626326 03C7 add eax, edi
00626328 898348030000 mov [ebx+$0348], eax
0062632E 8B834C030000 mov eax, [ebx+$034C]
00626334 8B8B58030000 mov ecx, [ebx+$0358]
0062633A 99 cdq
0062633B F7F9 idiv ecx
0062633D 8945EC mov [ebp-$14], eax
00626340 8B834C030000 mov eax, [ebx+$034C]
00626346 99 cdq
00626347 F7F9 idiv ecx
00626349 8955E8 mov [ebp-$18], edx
0062634C 8B9340030000 mov edx, [ebx+$0340]
00626352 0FAF9354030000 imul edx, [ebx+$0354]
00626359 0FAFD1 imul edx, ecx
0062635C 8B45EC mov eax, [ebp-$14]
0062635F 0FAFC1 imul eax, ecx
00626362 03D0 add edx, eax
00626364 0355E8 add edx, [ebp-$18]
00626367 8BC3 mov eax, ebx
* Reference to : TfrmTDBK._PROC_00625304()
|
00626369 E896EFFFFF call 00625304
0062636E 8B9340030000 mov edx, [ebx+$0340]
00626374 0FAF9354030000 imul edx, [ebx+$0354]
0062637B 8B8358030000 mov eax, [ebx+$0358]
00626381 0FAFD0 imul edx, eax
00626384 0FAFF0 imul esi, eax
00626387 03D6 add edx, esi
00626389 03D7 add edx, edi
0062638B 8BC3 mov eax, ebx
* Reference to : TfrmTDBK._PROC_00625304()
|
0062638D E872EFFFFF call 00625304
00626392 5F pop edi
00626393 5E pop esi
00626394 5B pop ebx
00626395 8BE5 mov esp, ebp
00626397 5D pop ebp
00626398 C20C00 ret $000C
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -