📄 dblogdlg.pas
字号:
004B1241 8BEC mov ebp, esp
004B1243 33C9 xor ecx, ecx
004B1245 51 push ecx
004B1246 51 push ecx
004B1247 51 push ecx
004B1248 51 push ecx
004B1249 51 push ecx
004B124A 53 push ebx
004B124B 56 push esi
004B124C 8BF2 mov esi, edx
004B124E 8BD8 mov ebx, eax
004B1250 33C0 xor eax, eax
004B1252 55 push ebp
004B1253 68EE134B00 push $004B13EE
***** TRY
|
004B1258 64FF30 push dword ptr fs:[eax]
004B125B 648920 mov fs:[eax], esp
004B125E 8B0D40765000 mov ecx, [$00507640]
004B1264 8B09 mov ecx, [ecx]
004B1266 B201 mov dl, $01
004B1268 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);
|
004B126D E802F7FAFF call 00460974
004B1272 8945F8 mov [ebp-$08], eax
004B1275 33D2 xor edx, edx
004B1277 55 push ebp
004B1278 68C4134B00 push $004B13C4
***** TRY
|
004B127D 64FF32 push dword ptr fs:[edx]
004B1280 648922 mov fs:[edx], esp
004B1283 8D55F4 lea edx, [ebp-$0C]
004B1286 A1CC735000 mov eax, dword ptr [$005073CC]
* Reference to: System.LoadResString(PResStringRec):String;
|
004B128B E8945CF5FF call 00406F24
004B1290 8B55F4 mov edx, [ebp-$0C]
004B1293 8B45F8 mov eax, [ebp-$08]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004B1296 E86D6DF9FF call 00448008
004B129B 8B45F8 mov eax, [ebp-$08]
004B129E 8B80F4020000 mov eax, [eax+$02F4]
004B12A4 33D2 xor edx, edx
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
004B12A6 E84D6CF9FF call 00447EF8
004B12AB 8B45F8 mov eax, [ebp-$08]
004B12AE 8B80F8020000 mov eax, [eax+$02F8]
004B12B4 33D2 xor edx, edx
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
004B12B6 E83D6CF9FF call 00447EF8
004B12BB 8B45F8 mov eax, [ebp-$08]
004B12BE 8B8010030000 mov eax, [eax+$0310]
004B12C4 33D2 xor edx, edx
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
004B12C6 E82D6CF9FF call 00447EF8
004B12CB 8B45F8 mov eax, [ebp-$08]
004B12CE 8B80F0020000 mov eax, [eax+$02F0]
004B12D4 8B504C mov edx, [eax+$4C]
004B12D7 8B4DF8 mov ecx, [ebp-$08]
004B12DA 8B89F4020000 mov ecx, [ecx+$02F4]
004B12E0 2B5144 sub edx, dword ptr [ecx+$44]
* Reference to: Controls.TControl.SetHeight(TControl;Integer);
|
004B12E3 E8A864F9FF call 00447790
004B12E8 8B45F8 mov eax, [ebp-$08]
004B12EB 8B80FC020000 mov eax, [eax+$02FC]
004B12F1 8B5044 mov edx, [eax+$44]
004B12F4 8B4DF8 mov ecx, [ebp-$08]
004B12F7 8B89F4020000 mov ecx, [ecx+$02F4]
004B12FD 2B5144 sub edx, dword ptr [ecx+$44]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
004B1300 E83F64F9FF call 00447744
004B1305 8B45F8 mov eax, [ebp-$08]
004B1308 8B8000030000 mov eax, [eax+$0300]
004B130E 8B5044 mov edx, [eax+$44]
004B1311 8B4DF8 mov ecx, [ebp-$08]
004B1314 8B89F4020000 mov ecx, [ecx+$02F4]
004B131A 2B5144 sub edx, dword ptr [ecx+$44]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
004B131D E82264F9FF call 00447744
004B1322 8B45F8 mov eax, [ebp-$08]
004B1325 8B504C mov edx, [eax+$4C]
004B1328 8B45F8 mov eax, [ebp-$08]
004B132B 8B80F4020000 mov eax, [eax+$02F4]
004B1331 2B5044 sub edx, dword ptr [eax+$44]
004B1334 8B45F8 mov eax, [ebp-$08]
* Reference to: Controls.TControl.SetHeight(TControl;Integer);
|
004B1337 E85464F9FF call 00447790
004B133C 8B13 mov edx, [ebx]
004B133E 8B45F8 mov eax, [ebp-$08]
004B1341 8B8018030000 mov eax, [eax+$0318]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004B1347 E8BC6CF9FF call 00448008
004B134C C645FF00 mov byte ptr [ebp-$01], $00
004B1350 833B00 cmp dword ptr [ebx], +$00
004B1353 7511 jnz 004B1366
004B1355 8B45F8 mov eax, [ebp-$08]
004B1358 8B9018030000 mov edx, [eax+$0318]
004B135E 8B45F8 mov eax, [ebp-$08]
* Reference to: Forms.TCustomForm.SetActiveControl(TCustomForm;TWinControl);
|
004B1361 E8421DFBFF call 004630A8
004B1366 8B45F8 mov eax, [ebp-$08]
004B1369 8B10 mov edx, [eax]
004B136B FF92E8000000 call dword ptr [edx+$00E8]
004B1371 48 dec eax
004B1372 753A jnz 004B13AE
004B1374 8D55F0 lea edx, [ebp-$10]
004B1377 8B45F8 mov eax, [ebp-$08]
004B137A 8B8018030000 mov eax, [eax+$0318]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004B1380 E8536CF9FF call 00447FD8
004B1385 8B55F0 mov edx, [ebp-$10]
004B1388 8BC3 mov eax, ebx
* Reference to: System.@LStrAsg(void;void;void;void);
|
004B138A E8E136F5FF call 00404A70
004B138F 8D55EC lea edx, [ebp-$14]
004B1392 8B45F8 mov eax, [ebp-$08]
004B1395 8B8014030000 mov eax, [eax+$0314]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004B139B E8386CF9FF call 00447FD8
004B13A0 8B55EC mov edx, [ebp-$14]
004B13A3 8BC6 mov eax, esi
* Reference to: System.@LStrAsg(void;void;void;void);
|
004B13A5 E8C636F5FF call 00404A70
004B13AA C645FF01 mov byte ptr [ebp-$01], $01
004B13AE 33C0 xor eax, eax
004B13B0 5A pop edx
004B13B1 59 pop ecx
004B13B2 59 pop ecx
004B13B3 648910 mov fs:[eax], edx
****** FINALLY
|
004B13B6 68CB134B00 push $004B13CB
004B13BB 8B45F8 mov eax, [ebp-$08]
* Reference to: System.TObject.Free(TObject);
|
004B13BE E88927F5FF call 00403B4C
004B13C3 C3 ret
* Reference to: System.@HandleFinally;
|
004B13C4 E9172FF5FF jmp 004042E0
004B13C9 EBF0 jmp 004B13BB
****** END
|
004B13CB 33C0 xor eax, eax
004B13CD 5A pop edx
004B13CE 59 pop ecx
004B13CF 59 pop ecx
004B13D0 648910 mov fs:[eax], edx
****** FINALLY
|
004B13D3 68F5134B00 push $004B13F5
004B13D8 8D45EC lea eax, [ebp-$14]
004B13DB BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
004B13E0 E85B36F5FF call 00404A40
004B13E5 8D45F4 lea eax, [ebp-$0C]
* Reference to: System.@LStrClr(void;void);
|
004B13E8 E82F36F5FF call 00404A1C
004B13ED C3 ret
* Reference to: System.@HandleFinally;
|
004B13EE E9ED2EF5FF jmp 004042E0
004B13F3 EBE3 jmp 004B13D8
****** END
|
004B13F5 8A45FF mov al, byte ptr [ebp-$01]
004B13F8 5E pop esi
004B13F9 5B pop ebx
004B13FA 8BE5 mov esp, ebp
004B13FC 5D pop ebp
004B13FD C3 ret
*)
end;
procedure TLoginDialog._PROC_004B1448(Sender : TObject);
begin
(*
004B1448 8B1580785000 mov edx, [$00507880]
004B144E 8B12 mov edx, [edx]
004B1450 92 xchg eax, edx
* Reference to: Forms.TScreen.SetCursor(TScreen;TCursor);
|
004B1451 E8BA4CFBFF call 00466110
004B1456 C3 ret
*)
end;
procedure TLoginDialog._PROC_004B1458(Sender : TObject);
begin
(*
004B1458 55 push ebp
004B1459 8BEC mov ebp, esp
004B145B 33C0 xor eax, eax
004B145D 55 push ebp
* Possible String Reference to: '閊.⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -