📄 dblogdlg.pas
字号:
unit DBLogDlg;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TLoginDialog=class(TForm)
Panel: TPanel;
Bevel: TBevel;
DatabaseName: TLabel;
OKButton: TButton;
CancelButton: TButton;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Password: TEdit;
UserName: TEdit;
procedure FormShow(Sender : TObject);
procedure _PROC_0047DB38(Sender : TObject);
procedure _PROC_0047DC68(Sender : TObject);
procedure _PROC_0047DE70(Sender : TObject);
procedure _PROC_0047DE80(Sender : TObject);
procedure _PROC_0047DEB0(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
LoginDialog: TLoginDialog;
{This file is generated by DeDe Ver 3.10b Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TLoginDialog.FormShow(Sender : TObject);
begin
(*
0047DE28 53 push ebx
0047DE29 56 push esi
0047DE2A 8BD8 mov ebx, eax
* Reference to control TLoginDialog.Panel : TPanel
|
0047DE2C 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Controls.Proc_0044FEF4
|
0047DE32 E8BD20FDFF call 0044FEF4
* Reference to control TLoginDialog.DatabaseName : TLabel
|
0047DE37 8BB300030000 mov esi, [ebx+$0300]
* Reference to field TLabel.OFFS_0048
|
0047DE3D 8B5648 mov edx, [esi+$48]
0047DE40 035640 add edx, [esi+$40]
0047DE43 3BC2 cmp eax, edx
0047DE45 7F24 jnle 0047DE6B
* Reference to control TLoginDialog.Panel : TPanel
|
0047DE47 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Controls.Proc_0044FEF4
|
0047DE4D E8A220FDFF call 0044FEF4
0047DE52 8BD0 mov edx, eax
* Reference to control TLoginDialog.DatabaseName : TLabel
|
0047DE54 8B8300030000 mov eax, [ebx+$0300]
0047DE5A 2B5040 sub edx, dword ptr [eax+$40]
0047DE5D 83EA05 sub edx, +$05
* Reference to control TLoginDialog.DatabaseName : TLabel
|
0047DE60 8B8300030000 mov eax, [ebx+$0300]
* Reference to: Controls.Proc_0044FC84
|
0047DE66 E8191EFDFF call 0044FC84
0047DE6B 5E pop esi
0047DE6C 5B pop ebx
0047DE6D C3 ret
*)
end;
procedure TLoginDialog._PROC_0047DB38(Sender : TObject);
begin
(*
0047DB38 55 push ebp
0047DB39 8BEC mov ebp, esp
0047DB3B 83C4F0 add esp, -$10
0047DB3E 53 push ebx
0047DB3F 56 push esi
0047DB40 57 push edi
0047DB41 33DB xor ebx, ebx
0047DB43 895DF0 mov [ebp-$10], ebx
0047DB46 895DF4 mov [ebp-$0C], ebx
0047DB49 8BF9 mov edi, ecx
0047DB4B 8BDA mov ebx, edx
0047DB4D 8BF0 mov esi, eax
0047DB4F 33C0 xor eax, eax
0047DB51 55 push ebp
0047DB52 6854DC4700 push $0047DC54
***** TRY
|
0047DB57 64FF30 push dword ptr fs:[eax]
0047DB5A 648920 mov fs:[eax], esp
* Reference to TApplication instance
|
0047DB5D 8B0D10B44B00 mov ecx, [$004BB410]
0047DB63 8B09 mov ecx, [ecx]
0047DB65 B201 mov dl, $01
* Reference to class TLoginDialog
|
0047DB67 A1DCD74700 mov eax, dword ptr [$0047D7DC]
* Reference to: Forms.Proc_004693B0
|
0047DB6C E83FB8FEFF call 004693B0
0047DB71 8945F8 mov [ebp-$08], eax
0047DB74 33C0 xor eax, eax
0047DB76 55 push ebp
0047DB77 6832DC4700 push $0047DC32
***** TRY
|
0047DB7C 64FF30 push dword ptr fs:[eax]
0047DB7F 648920 mov fs:[eax], esp
0047DB82 8B45F8 mov eax, [ebp-$08]
* Reference to control TLoginDialog.DatabaseName : TLabel
|
0047DB85 8B8000030000 mov eax, [eax+$0300]
0047DB8B 8BD6 mov edx, esi
* Reference to: Controls.Proc_00450520
|
0047DB8D E88E29FDFF call 00450520
0047DB92 8B13 mov edx, [ebx]
0047DB94 8B45F8 mov eax, [ebp-$08]
* Reference to control TLoginDialog.UserName : TEdit
|
0047DB97 8B8020030000 mov eax, [eax+$0320]
* Reference to: Controls.Proc_00450520
|
0047DB9D E87E29FDFF call 00450520
0047DBA2 C645FF00 mov byte ptr [ebp-$01], $00
0047DBA6 807D0800 cmp byte ptr [ebp+$08], $00
0047DBAA 7412 jz 0047DBBE
0047DBAC 8B45F8 mov eax, [ebp-$08]
* Reference to control TLoginDialog.UserName : TEdit
|
0047DBAF 8B8020030000 mov eax, [eax+$0320]
0047DBB5 33D2 xor edx, edx
0047DBB7 8B08 mov ecx, [eax]
* Possible reference to virtual method TEdit.OFFS_64
|
0047DBB9 FF5164 call dword ptr [ecx+$64]
0047DBBC EB16 jmp 0047DBD4
0047DBBE 833B00 cmp dword ptr [ebx], +$00
0047DBC1 7511 jnz 0047DBD4
0047DBC3 8B45F8 mov eax, [ebp-$08]
* Reference to control TLoginDialog.UserName : TEdit
|
0047DBC6 8B9020030000 mov edx, [eax+$0320]
0047DBCC 8B45F8 mov eax, [ebp-$08]
* Reference to : TApplication._PROC_0046BBC0()
|
0047DBCF E8ECDFFEFF call 0046BBC0
0047DBD4 8B45F8 mov eax, [ebp-$08]
0047DBD7 8B10 mov edx, [eax]
* Possible reference to virtual method TLoginDialog.OFFS_00EC
|
0047DBD9 FF92EC000000 call dword ptr [edx+$00EC]
0047DBDF 48 dec eax
0047DBE0 753A jnz 0047DC1C
0047DBE2 8D55F4 lea edx, [ebp-$0C]
0047DBE5 8B45F8 mov eax, [ebp-$08]
* Reference to control TLoginDialog.UserName : TEdit
|
0047DBE8 8B8020030000 mov eax, [eax+$0320]
* Reference to: Controls.Proc_004504F0
|
0047DBEE E8FD28FDFF call 004504F0
0047DBF3 8B55F4 mov edx, [ebp-$0C]
0047DBF6 8BC3 mov eax, ebx
* Reference to: System.Proc_00404240
|
0047DBF8 E84366F8FF call 00404240
0047DBFD 8D55F0 lea edx, [ebp-$10]
0047DC00 8B45F8 mov eax, [ebp-$08]
* Reference to control TLoginDialog.Password : TEdit
|
0047DC03 8B801C030000 mov eax, [eax+$031C]
* Reference to: Controls.Proc_004504F0
|
0047DC09 E8E228FDFF call 004504F0
0047DC0E 8B55F0 mov edx, [ebp-$10]
0047DC11 8BC7 mov eax, edi
* Reference to: System.Proc_00404240
|
0047DC13 E82866F8FF call 00404240
0047DC18 C645FF01 mov byte ptr [ebp-$01], $01
0047DC1C 33C0 xor eax, eax
0047DC1E 5A pop edx
0047DC1F 59 pop ecx
0047DC20 59 pop ecx
0047DC21 648910 mov fs:[eax], edx
****** FINALLY
|
0047DC24 6839DC4700 push $0047DC39
0047DC29 8B45F8 mov eax, [ebp-$08]
* Reference to: System.Proc_0040347C
|
0047DC2C E84B58F8FF call 0040347C
0047DC31 C3 ret
0047DC32 E9995FF8FF jmp 00403BD0
0047DC37 EBF0 jmp 0047DC29
****** END
|
0047DC39 33C0 xor eax, eax
0047DC3B 5A pop edx
0047DC3C 59 pop ecx
0047DC3D 59 pop ecx
0047DC3E 648910 mov fs:[eax], edx
****** FINALLY
|
0047DC41 685BDC4700 push $0047DC5B
0047DC46 8D45F0 lea eax, [ebp-$10]
0047DC49 BA02000000 mov edx, $00000002
* Reference to: System.Proc_00404210
|
0047DC4E E8BD65F8FF call 00404210
0047DC53 C3 ret
0047DC54 E9775FF8FF jmp 00403BD0
0047DC59 EBEB jmp 0047DC46
****** END
|
0047DC5B 8A45FF mov al, byte ptr [ebp-$01]
0047DC5E 5F pop edi
0047DC5F 5E pop esi
0047DC60 5B pop ebx
0047DC61 8BE5 mov esp, ebp
0047DC63 5D pop ebp
0047DC64 C20400 ret $0004
*)
end;
procedure TLoginDialog._PROC_0047DC68(Sender : TObject);
begin
(*
0047DC68 55 push ebp
0047DC69 8BEC mov ebp, esp
0047DC6B 33C9 xor ecx, ecx
0047DC6D 51 push ecx
0047DC6E 51 push ecx
0047DC6F 51 push ecx
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -