📄 dginfo.pas
字号:
unit DGInfo;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmShowInfo=class(TForm)
procedure FormPaint(Sender : TObject);
procedure _PROC_007596ED(Sender : TObject);
procedure _PROC_0075971C(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmShowInfo: TfrmShowInfo;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmShowInfo.FormPaint(Sender : TObject);
begin
(*
007595AC 53 push ebx
007595AD 56 push esi
007595AE 57 push edi
007595AF 55 push ebp
007595B0 83C4E8 add esp, -$18
007595B3 8BF0 mov esi, eax
007595B5 B201 mov dl, $01
* Reference to class TBitmap32
|
007595B7 A1BC925200 mov eax, dword ptr [$005292BC]
* Reference to : TBitmap32._PROC_005297DC()
|
007595BC E81B02DDFF call 005297DC
007595C1 8BD8 mov ebx, eax
007595C3 8BC6 mov eax, esi
* Reference to: controls.TControl.GetClientWidth(TControl):Integer;
|
007595C5 E8EAFECDFF call 004394B4
007595CA 8BD0 mov edx, eax
007595CC 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_005297D0()
|
007595CE E8FD01DDFF call 005297D0
007595D3 8BC6 mov eax, esi
* Reference to: controls.TControl.GetClientHeight(TControl):Integer;
|
007595D5 E81EFFCDFF call 004394F8
007595DA 8BD0 mov edx, eax
007595DC 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_00529778()
|
007595DE E89501DDFF call 00529778
* Possible String Reference to: '楷体_GB2312'
|
007595E3 BAE0967500 mov edx, $007596E0
* Reference to field TBitmap32.OFFS_0078
|
007595E8 8B4378 mov eax, [ebx+$78]
* Reference to: graphics.TFont.SetName(TFont;TFontName);
|
007595EB E8F44ACCFF call 0041E0E4
007595F0 BA12000000 mov edx, $00000012
* Reference to field TBitmap32.OFFS_0078
|
007595F5 8B4378 mov eax, [ebx+$78]
* Reference to: graphics.TFont.SetSize(TFont;Integer);
|
007595F8 E85F4BCCFF call 0041E15C
007595FD 8BCC mov ecx, esp
* Reference to control FindFile : N.A.
|
007595FF 8B96D0020000 mov edx, [esi+$02D0]
00759605 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_0052AA14()
|
00759607 E80814DDFF call 0052AA14
* Reference to field TBitmap32.OFFS_0034
|
0075960C 8B7B34 mov edi, [ebx+$34]
0075960F 2B3C24 sub edi, dword ptr [esp]
00759612 D1FF sar edi, 1
00759614 7903 jns 00759619
00759616 83D700 adc edi, +$00
* Reference to field TBitmap32.OFFS_0030
|
00759619 8B6B30 mov ebp, [ebx+$30]
0075961C 2B6C2404 sub ebp, dword ptr [esp+$04]
00759620 D1FD sar ebp, 1
00759622 7903 jns 00759627
00759624 83D500 adc ebp, +$00
00759627 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_0052A180()
|
00759629 E8520BDDFF call 0052A180
* Reference to field TBitmap32.OFFS_0014
|
0075962E 8B4014 mov eax, [eax+$14]
00759631 BA0000FF00 mov edx, $00FF0000
* Reference to: graphics.TBrush.SetColor(TBrush;TColor);
|
00759636 E87D50CCFF call 0041E6B8
0075963B 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_0052A180()
|
0075963D E83E0BDDFF call 0052A180
* Reference to field TBitmap32.OFFS_0010
|
00759642 8B4010 mov eax, [eax+$10]
00759645 BAFFFFFF00 mov edx, $00FFFFFF
* Reference to: graphics.TPen.SetColor(TPen;TColor);
|
0075964A E8594DCCFF call 0041E3A8
0075964F 8D542408 lea edx, [esp+$08]
00759653 8BC6 mov eax, esi
00759655 8B08 mov ecx, [eax]
* Reference to method TfrmShowInfo.GetClientRect()
|
00759657 FF5140 call dword ptr [ecx+$40]
0075965A 8D442408 lea eax, [esp+$08]
0075965E 50 push eax
0075965F 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_0052A180()
|
00759661 E81A0BDDFF call 0052A180
00759666 5A pop edx
* Reference to: graphics.TCanvas.Ellipse(TCanvas;TRect;TRect);overload;
|
00759667 E8D059CCFF call 0041F03C
* Reference to control FindFile : N.A.
|
0075966C 8B86D0020000 mov eax, [esi+$02D0]
00759672 50 push eax
00759673 6A01 push $01
00759675 B8FFFF5000 mov eax, $0050FFFF
* Reference to: GR32.Proc_005294A8
|
0075967A E829FEDCFF call 005294A8
0075967F 50 push eax
00759680 8BCD mov ecx, ebp
00759682 8BD7 mov edx, edi
00759684 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_0052ACD4()
|
00759686 E84916DDFF call 0052ACD4
0075968B 682000CC00 push $00CC0020
00759690 6A00 push $00
00759692 6A00 push $00
00759694 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_0052A180()
|
00759696 E8E50ADDFF call 0052A180
* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
0075969B E8A85DCCFF call 0041F448
007596A0 50 push eax
007596A1 8BC6 mov eax, esi
* Reference to: controls.TControl.GetClientHeight(TControl):Integer;
|
007596A3 E850FECDFF call 004394F8
007596A8 50 push eax
007596A9 8BC6 mov eax, esi
* Reference to: controls.TControl.GetClientWidth(TControl):Integer;
|
007596AB E804FECDFF call 004394B4
007596B0 50 push eax
007596B1 6A00 push $00
007596B3 6A00 push $00
007596B5 8BC6 mov eax, esi
* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
007596B7 E864A4CFFF call 00453B20
* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
007596BC E8875DCCFF call 0041F448
007596C1 50 push eax
* Reference to: gdi32.BitBlt()
|
007596C2 E8F9ECCAFF call 004083C0
007596C7 8BC3 mov eax, ebx
* Reference to: system.TObject.Free(TObject);
|
007596C9 E8FE9BCAFF call 004032CC
007596CE 83C418 add esp, +$18
007596D1 5D pop ebp
007596D2 5F pop edi
007596D3 5E pop esi
007596D4 5B pop ebx
007596D5 C3 ret
*)
end;
procedure TfrmShowInfo._PROC_007596ED(Sender : TObject);
begin
(*
007596ED 8BEC mov ebp, esp
007596EF 33C0 xor eax, eax
007596F1 55 push ebp
007596F2 6811977500 push $00759711
***** TRY
|
007596F7 64FF30 push dword ptr fs:[eax]
007596FA 648920 mov fs:[eax], esp
007596FD FF0500927900 inc dword ptr [$00799200]
00759703 33C0 xor eax, eax
00759705 5A pop edx
00759706 59 pop ecx
00759707 59 pop ecx
00759708 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']脣纼-'
|
0075970B 6818977500 push $00759718
00759710 C3 ret
* Reference to: system.@HandleFinally;
|
00759711 E916A3CAFF jmp 00403A2C
00759716 EBF8 jmp 00759710
****** END
|
00759718 5D pop ebp
00759719 C3 ret
*)
end;
procedure TfrmShowInfo._PROC_0075971C(Sender : TObject);
begin
(*
0075971C 832D0092790001 sub dword ptr [$00799200], +$01
00759723 C3 ret
*)
end;
end.⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -