📄 dblogdlg.pas
字号:
0047DC70 51 push ecx
0047DC71 51 push ecx
0047DC72 53 push ebx
0047DC73 56 push esi
0047DC74 8BF2 mov esi, edx
0047DC76 8BD8 mov ebx, eax
0047DC78 33C0 xor eax, eax
0047DC7A 55 push ebp
0047DC7B 6816DE4700 push $0047DE16
***** TRY
|
0047DC80 64FF30 push dword ptr fs:[eax]
0047DC83 648920 mov fs:[eax], esp
* Reference to TApplication instance
|
0047DC86 8B0D10B44B00 mov ecx, [$004BB410]
0047DC8C 8B09 mov ecx, [ecx]
0047DC8E B201 mov dl, $01
* Reference to class TLoginDialog
|
0047DC90 A1DCD74700 mov eax, dword ptr [$0047D7DC]
* Reference to: Forms.Proc_004693B0
|
0047DC95 E816B7FEFF call 004693B0
0047DC9A 8945F8 mov [ebp-$08], eax
0047DC9D 33D2 xor edx, edx
0047DC9F 55 push ebp
0047DCA0 68ECDD4700 push $0047DDEC
***** TRY
|
0047DCA5 64FF32 push dword ptr fs:[edx]
0047DCA8 648922 mov fs:[edx], esp
0047DCAB 8D55F4 lea edx, [ebp-$0C]
0047DCAE A12CB24B00 mov eax, dword ptr [$004BB22C]
* Reference to: System.Proc_004062AC
|
0047DCB3 E8F485F8FF call 004062AC
0047DCB8 8B55F4 mov edx, [ebp-$0C]
0047DCBB 8B45F8 mov eax, [ebp-$08]
* Reference to: Controls.Proc_00450520
|
0047DCBE E85D28FDFF call 00450520
0047DCC3 8B45F8 mov eax, [ebp-$08]
* Reference to control TLoginDialog.Bevel : TBevel
|
0047DCC6 8B80FC020000 mov eax, [eax+$02FC]
0047DCCC 33D2 xor edx, edx
* Reference to: Controls.Proc_00450410
|
0047DCCE E83D27FDFF call 00450410
0047DCD3 8B45F8 mov eax, [ebp-$08]
* Reference to control TLoginDialog.DatabaseName : TLabel
|
0047DCD6 8B8000030000 mov eax, [eax+$0300]
0047DCDC 33D2 xor edx, edx
* Reference to: Controls.Proc_00450410
|
0047DCDE E82D27FDFF call 00450410
0047DCE3 8B45F8 mov eax, [ebp-$08]
* Reference to control TLoginDialog.Label3 : TLabel
|
0047DCE6 8B8018030000 mov eax, [eax+$0318]
0047DCEC 33D2 xor edx, edx
* Reference to: Controls.Proc_00450410
|
0047DCEE E81D27FDFF call 00450410
0047DCF3 8B45F8 mov eax, [ebp-$08]
* Reference to control TLoginDialog.Panel : TPanel
|
0047DCF6 8B80F8020000 mov eax, [eax+$02F8]
* Reference to field TPanel.OFFS_004C
|
0047DCFC 8B504C mov edx, [eax+$4C]
0047DCFF 8B4DF8 mov ecx, [ebp-$08]
0047DD02 8B89FC020000 mov ecx, [ecx+$02FC]
0047DD08 2B5144 sub edx, dword ptr [ecx+$44]
* Reference to: Controls.Proc_0044FCA8
|
0047DD0B E8981FFDFF call 0044FCA8
0047DD10 8B45F8 mov eax, [ebp-$08]
* Reference to control TLoginDialog.OKButton : TButton
|
0047DD13 8B8004030000 mov eax, [eax+$0304]
* Reference to field TButton.OFFS_0044
|
0047DD19 8B5044 mov edx, [eax+$44]
0047DD1C 8B4DF8 mov ecx, [ebp-$08]
0047DD1F 8B89FC020000 mov ecx, [ecx+$02FC]
0047DD25 2B5144 sub edx, dword ptr [ecx+$44]
* Reference to: Controls.Proc_0044FC5C
|
0047DD28 E82F1FFDFF call 0044FC5C
0047DD2D 8B45F8 mov eax, [ebp-$08]
* Reference to control TLoginDialog.CancelButton : TButton
|
0047DD30 8B8008030000 mov eax, [eax+$0308]
* Reference to field TButton.OFFS_0044
|
0047DD36 8B5044 mov edx, [eax+$44]
0047DD39 8B4DF8 mov ecx, [ebp-$08]
0047DD3C 8B89FC020000 mov ecx, [ecx+$02FC]
0047DD42 2B5144 sub edx, dword ptr [ecx+$44]
* Reference to: Controls.Proc_0044FC5C
|
0047DD45 E8121FFDFF call 0044FC5C
0047DD4A 8B45F8 mov eax, [ebp-$08]
* Reference to field TLoginDialog.OFFS_004C
|
0047DD4D 8B504C mov edx, [eax+$4C]
0047DD50 8B45F8 mov eax, [ebp-$08]
* Reference to control TLoginDialog.Bevel : TBevel
|
0047DD53 8B80FC020000 mov eax, [eax+$02FC]
0047DD59 2B5044 sub edx, dword ptr [eax+$44]
0047DD5C 8B45F8 mov eax, [ebp-$08]
* Reference to: Controls.Proc_0044FCA8
|
0047DD5F E8441FFDFF call 0044FCA8
0047DD64 8B13 mov edx, [ebx]
0047DD66 8B45F8 mov eax, [ebp-$08]
* Reference to control TLoginDialog.UserName : TEdit
|
0047DD69 8B8020030000 mov eax, [eax+$0320]
* Reference to: Controls.Proc_00450520
|
0047DD6F E8AC27FDFF call 00450520
0047DD74 C645FF00 mov byte ptr [ebp-$01], $00
0047DD78 833B00 cmp dword ptr [ebx], +$00
0047DD7B 7511 jnz 0047DD8E
0047DD7D 8B45F8 mov eax, [ebp-$08]
* Reference to control TLoginDialog.UserName : TEdit
|
0047DD80 8B9020030000 mov edx, [eax+$0320]
0047DD86 8B45F8 mov eax, [ebp-$08]
* Reference to : TApplication._PROC_0046BBC0()
|
0047DD89 E832DEFEFF call 0046BBC0
0047DD8E 8B45F8 mov eax, [ebp-$08]
0047DD91 8B10 mov edx, [eax]
* Possible reference to virtual method TLoginDialog.OFFS_00EC
|
0047DD93 FF92EC000000 call dword ptr [edx+$00EC]
0047DD99 48 dec eax
0047DD9A 753A jnz 0047DDD6
0047DD9C 8D55F0 lea edx, [ebp-$10]
0047DD9F 8B45F8 mov eax, [ebp-$08]
* Reference to control TLoginDialog.UserName : TEdit
|
0047DDA2 8B8020030000 mov eax, [eax+$0320]
* Reference to: Controls.Proc_004504F0
|
0047DDA8 E84327FDFF call 004504F0
0047DDAD 8B55F0 mov edx, [ebp-$10]
0047DDB0 8BC3 mov eax, ebx
* Reference to: System.Proc_00404240
|
0047DDB2 E88964F8FF call 00404240
0047DDB7 8D55EC lea edx, [ebp-$14]
0047DDBA 8B45F8 mov eax, [ebp-$08]
* Reference to control TLoginDialog.Password : TEdit
|
0047DDBD 8B801C030000 mov eax, [eax+$031C]
* Reference to: Controls.Proc_004504F0
|
0047DDC3 E82827FDFF call 004504F0
0047DDC8 8B55EC mov edx, [ebp-$14]
0047DDCB 8BC6 mov eax, esi
* Reference to: System.Proc_00404240
|
0047DDCD E86E64F8FF call 00404240
0047DDD2 C645FF01 mov byte ptr [ebp-$01], $01
0047DDD6 33C0 xor eax, eax
0047DDD8 5A pop edx
0047DDD9 59 pop ecx
0047DDDA 59 pop ecx
0047DDDB 648910 mov fs:[eax], edx
****** FINALLY
|
0047DDDE 68F3DD4700 push $0047DDF3
0047DDE3 8B45F8 mov eax, [ebp-$08]
* Reference to: System.Proc_0040347C
|
0047DDE6 E89156F8FF call 0040347C
0047DDEB C3 ret
0047DDEC E9DF5DF8FF jmp 00403BD0
0047DDF1 EBF0 jmp 0047DDE3
****** END
|
0047DDF3 33C0 xor eax, eax
0047DDF5 5A pop edx
0047DDF6 59 pop ecx
0047DDF7 59 pop ecx
0047DDF8 648910 mov fs:[eax], edx
****** FINALLY
|
0047DDFB 681DDE4700 push $0047DE1D
0047DE00 8D45EC lea eax, [ebp-$14]
0047DE03 BA02000000 mov edx, $00000002
* Reference to: System.Proc_00404210
|
0047DE08 E80364F8FF call 00404210
0047DE0D 8D45F4 lea eax, [ebp-$0C]
* Reference to: System.Proc_004041EC
|
0047DE10 E8D763F8FF call 004041EC
0047DE15 C3 ret
0047DE16 E9B55DF8FF jmp 00403BD0
0047DE1B EBE3 jmp 0047DE00
****** END
|
0047DE1D 8A45FF mov al, byte ptr [ebp-$01]
0047DE20 5E pop esi
0047DE21 5B pop ebx
0047DE22 8BE5 mov esp, ebp
0047DE24 5D pop ebp
0047DE25 C3 ret
*)
end;
procedure TLoginDialog._PROC_0047DE70(Sender : TObject);
begin
(*
* Reference to TScreen instance
|
0047DE70 8B15C0B54B00 mov edx, [$004BB5C0]
0047DE76 8B12 mov edx, [edx]
0047DE78 92 xchg eax, edx
* Reference to : TApplication._PROC_0046ECD0()
|
0047DE79 E8520EFFFF call 0046ECD0
0047DE7E C3 ret
*)
end;
procedure TLoginDialog._PROC_0047DE80(Sender : TObject);
begin
(*
0047DE80 55 push ebp
0047DE81 8BEC mov ebp, esp
0047DE83 33C0 xor eax, eax
0047DE85 55 push ebp
* Possible String Reference to: '⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -