📄 dblogdlg.pas
字号:
unit DBLogDlg;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TLoginDialog=class(TForm)
Panel: N.A.;
Bevel: N.A.;
DatabaseName: N.A.;
OKButton: N.A.;
CancelButton: N.A.;
Panel1: N.A.;
Label1: N.A.;
Label2: N.A.;
Label3: N.A.;
Password: N.A.;
UserName: N.A.;
procedure FormShow(Sender : TObject);
procedure _PROC_004B1110(Sender : TObject);
procedure _PROC_004B1240(Sender : TObject);
procedure _PROC_004B1448(Sender : TObject);
procedure _PROC_004B1458(Sender : TObject);
procedure _PROC_004B1488(Sender : TObject);
procedure _PROC_004B14C0(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
LoginDialog: TLoginDialog;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TLoginDialog.FormShow(Sender : TObject);
begin
(*
004B1400 53 push ebx
004B1401 56 push esi
004B1402 8BD8 mov ebx, eax
004B1404 8B83F0020000 mov eax, [ebx+$02F0]
* Reference to: Controls.TControl.GetClientWidth(TControl):Integer;
|
004B140A E8CD65F9FF call 004479DC
004B140F 8BB3F8020000 mov esi, [ebx+$02F8]
004B1415 8B5648 mov edx, [esi+$48]
004B1418 035640 add edx, [esi+$40]
004B141B 3BC2 cmp eax, edx
004B141D 7F24 jnle 004B1443
004B141F 8B83F0020000 mov eax, [ebx+$02F0]
* Reference to: Controls.TControl.GetClientWidth(TControl):Integer;
|
004B1425 E8B265F9FF call 004479DC
004B142A 8BD0 mov edx, eax
004B142C 8B83F8020000 mov eax, [ebx+$02F8]
004B1432 2B5040 sub edx, dword ptr [eax+$40]
004B1435 83EA05 sub edx, +$05
004B1438 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Controls.TControl.SetWidth(TControl;Integer);
|
004B143E E82963F9FF call 0044776C
004B1443 5E pop esi
004B1444 5B pop ebx
004B1445 C3 ret
*)
end;
procedure TLoginDialog._PROC_004B1110(Sender : TObject);
begin
(*
004B1110 55 push ebp
004B1111 8BEC mov ebp, esp
004B1113 83C4F0 add esp, -$10
004B1116 53 push ebx
004B1117 56 push esi
004B1118 57 push edi
004B1119 33DB xor ebx, ebx
004B111B 895DF0 mov [ebp-$10], ebx
004B111E 895DF4 mov [ebp-$0C], ebx
004B1121 8BF9 mov edi, ecx
004B1123 8BDA mov ebx, edx
004B1125 8BF0 mov esi, eax
004B1127 33C0 xor eax, eax
004B1129 55 push ebp
004B112A 682C124B00 push $004B122C
***** TRY
|
004B112F 64FF30 push dword ptr fs:[eax]
004B1132 648920 mov fs:[eax], esp
004B1135 8B0D40765000 mov ecx, [$00507640]
004B113B 8B09 mov ecx, [ecx]
004B113D B201 mov dl, $01
004B113F A1B80D4B00 mov eax, dword ptr [$004B0DB8]
* Reference to: Classes.TDataModule.Create(TDataModule;boolean;TComponent);
| or: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
| or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
004B1144 E82BF8FAFF call 00460974
004B1149 8945F8 mov [ebp-$08], eax
004B114C 33C0 xor eax, eax
004B114E 55 push ebp
004B114F 680A124B00 push $004B120A
***** TRY
|
004B1154 64FF30 push dword ptr fs:[eax]
004B1157 648920 mov fs:[eax], esp
004B115A 8B45F8 mov eax, [ebp-$08]
004B115D 8B80F8020000 mov eax, [eax+$02F8]
004B1163 8BD6 mov edx, esi
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004B1165 E89E6EF9FF call 00448008
004B116A 8B13 mov edx, [ebx]
004B116C 8B45F8 mov eax, [ebp-$08]
004B116F 8B8018030000 mov eax, [eax+$0318]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004B1175 E88E6EF9FF call 00448008
004B117A C645FF00 mov byte ptr [ebp-$01], $00
004B117E 807D0800 cmp byte ptr [ebp+$08], $00
004B1182 7412 jz 004B1196
004B1184 8B45F8 mov eax, [ebp-$08]
004B1187 8B8018030000 mov eax, [eax+$0318]
004B118D 33D2 xor edx, edx
004B118F 8B08 mov ecx, [eax]
004B1191 FF5164 call dword ptr [ecx+$64]
004B1194 EB16 jmp 004B11AC
004B1196 833B00 cmp dword ptr [ebx], +$00
004B1199 7511 jnz 004B11AC
004B119B 8B45F8 mov eax, [ebp-$08]
004B119E 8B9018030000 mov edx, [eax+$0318]
004B11A4 8B45F8 mov eax, [ebp-$08]
* Reference to: Forms.TCustomForm.SetActiveControl(TCustomForm;TWinControl);
|
004B11A7 E8FC1EFBFF call 004630A8
004B11AC 8B45F8 mov eax, [ebp-$08]
004B11AF 8B10 mov edx, [eax]
004B11B1 FF92E8000000 call dword ptr [edx+$00E8]
004B11B7 48 dec eax
004B11B8 753A jnz 004B11F4
004B11BA 8D55F4 lea edx, [ebp-$0C]
004B11BD 8B45F8 mov eax, [ebp-$08]
004B11C0 8B8018030000 mov eax, [eax+$0318]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004B11C6 E80D6EF9FF call 00447FD8
004B11CB 8B55F4 mov edx, [ebp-$0C]
004B11CE 8BC3 mov eax, ebx
* Reference to: System.@LStrAsg(void;void;void;void);
|
004B11D0 E89B38F5FF call 00404A70
004B11D5 8D55F0 lea edx, [ebp-$10]
004B11D8 8B45F8 mov eax, [ebp-$08]
004B11DB 8B8014030000 mov eax, [eax+$0314]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004B11E1 E8F26DF9FF call 00447FD8
004B11E6 8B55F0 mov edx, [ebp-$10]
004B11E9 8BC7 mov eax, edi
* Reference to: System.@LStrAsg(void;void;void;void);
|
004B11EB E88038F5FF call 00404A70
004B11F0 C645FF01 mov byte ptr [ebp-$01], $01
004B11F4 33C0 xor eax, eax
004B11F6 5A pop edx
004B11F7 59 pop ecx
004B11F8 59 pop ecx
004B11F9 648910 mov fs:[eax], edx
****** FINALLY
|
004B11FC 6811124B00 push $004B1211
004B1201 8B45F8 mov eax, [ebp-$08]
* Reference to: System.TObject.Free(TObject);
|
004B1204 E84329F5FF call 00403B4C
004B1209 C3 ret
* Reference to: System.@HandleFinally;
|
004B120A E9D130F5FF jmp 004042E0
004B120F EBF0 jmp 004B1201
****** END
|
004B1211 33C0 xor eax, eax
004B1213 5A pop edx
004B1214 59 pop ecx
004B1215 59 pop ecx
004B1216 648910 mov fs:[eax], edx
****** FINALLY
|
004B1219 6833124B00 push $004B1233
004B121E 8D45F0 lea eax, [ebp-$10]
004B1221 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
004B1226 E81538F5FF call 00404A40
004B122B C3 ret
* Reference to: System.@HandleFinally;
|
004B122C E9AF30F5FF jmp 004042E0
004B1231 EBEB jmp 004B121E
****** END
|
004B1233 8A45FF mov al, byte ptr [ebp-$01]
004B1236 5F pop edi
004B1237 5E pop esi
004B1238 5B pop ebx
004B1239 8BE5 mov esp, ebp
004B123B 5D pop ebp
004B123C C20400 ret $0004
*)
end;
procedure TLoginDialog._PROC_004B1240(Sender : TObject);
begin
(*
004B1240 55 push ebp
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -