📄 dgsavdat.pas
字号:
unit DGSavDat;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFrmSavDat=class(TForm)
procedure FormPaint(Sender : TObject);
procedure _PROC_00763825(Sender : TObject);
procedure _PROC_00763854(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmSavDat: TFrmSavDat;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmSavDat.FormPaint(Sender : TObject);
begin
(*
0076368C 55 push ebp
0076368D 8BEC mov ebp, esp
0076368F 83C4E0 add esp, -$20
00763692 53 push ebx
00763693 56 push esi
00763694 57 push edi
00763695 33C9 xor ecx, ecx
00763697 894DF4 mov [ebp-$0C], ecx
0076369A 8BF0 mov esi, eax
0076369C 33C0 xor eax, eax
0076369E 55 push ebp
0076369F 68E2377600 push $007637E2
***** TRY
|
007636A4 64FF30 push dword ptr fs:[eax]
007636A7 648920 mov fs:[eax], esp
007636AA B201 mov dl, $01
* Reference to class TBitmap32
|
007636AC A1BC925200 mov eax, dword ptr [$005292BC]
* Reference to : TBitmap32._PROC_005297DC()
|
007636B1 E82661DCFF call 005297DC
007636B6 8BD8 mov ebx, eax
007636B8 8BC6 mov eax, esi
* Reference to: controls.TControl.GetClientWidth(TControl):Integer;
|
007636BA E8F55DCDFF call 004394B4
007636BF 8BD0 mov edx, eax
007636C1 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_005297D0()
|
007636C3 E80861DCFF call 005297D0
007636C8 8BC6 mov eax, esi
* Reference to: controls.TControl.GetClientHeight(TControl):Integer;
|
007636CA E8295ECDFF call 004394F8
007636CF 8BD0 mov edx, eax
007636D1 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_00529778()
|
007636D3 E8A060DCFF call 00529778
* Possible String Reference to: '楷体_GB2312'
|
007636D8 BAF8377600 mov edx, $007637F8
* Reference to field TBitmap32.OFFS_0078
|
007636DD 8B4378 mov eax, [ebx+$78]
* Reference to: graphics.TFont.SetName(TFont;TFontName);
|
007636E0 E8FFA9CBFF call 0041E0E4
007636E5 BA12000000 mov edx, $00000012
* Reference to field TBitmap32.OFFS_0078
|
007636EA 8B4378 mov eax, [ebx+$78]
* Reference to: graphics.TFont.SetSize(TFont;Integer);
|
007636ED E86AAACBFF call 0041E15C
007636F2 8D45F4 lea eax, [ebp-$0C]
* Possible String Reference to: '正在保存数据，请稍候...'
|
007636F5 BA0C387600 mov edx, $0076380C
* Reference to: system.@LStrLAsg;
|
007636FA E88D0ACAFF call 0040418C
007636FF 8D4DF8 lea ecx, [ebp-$08]
00763702 8B55F4 mov edx, [ebp-$0C]
00763705 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_0052AA14()
|
00763707 E80873DCFF call 0052AA14
* Reference to field TBitmap32.OFFS_0034
|
0076370C 8B7B34 mov edi, [ebx+$34]
0076370F 2B7DF8 sub edi, dword ptr [ebp-$08]
00763712 D1FF sar edi, 1
00763714 7903 jns 00763719
00763716 83D700 adc edi, +$00
* Reference to field TBitmap32.OFFS_0030
|
00763719 8B4330 mov eax, [ebx+$30]
0076371C 2B45FC sub eax, dword ptr [ebp-$04]
0076371F D1F8 sar eax, 1
00763721 7903 jns 00763726
00763723 83D000 adc eax, +$00
00763726 8945F0 mov [ebp-$10], eax
00763729 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_0052A180()
|
0076372B E8506ADCFF call 0052A180
* Reference to field TBitmap32.OFFS_0014
|
00763730 8B4014 mov eax, [eax+$14]
00763733 BA0000FF00 mov edx, $00FF0000
* Reference to: graphics.TBrush.SetColor(TBrush;TColor);
|
00763738 E87BAFCBFF call 0041E6B8
0076373D 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_0052A180()
|
0076373F E83C6ADCFF call 0052A180
* Reference to field TBitmap32.OFFS_0010
|
00763744 8B4010 mov eax, [eax+$10]
00763747 BAFFFFFF00 mov edx, $00FFFFFF
* Reference to: graphics.TPen.SetColor(TPen;TColor);
|
0076374C E857ACCBFF call 0041E3A8
00763751 8D55E0 lea edx, [ebp-$20]
00763754 8BC6 mov eax, esi
00763756 8B08 mov ecx, [eax]
* Reference to method TFrmSavDat.GetClientRect()
|
00763758 FF5140 call dword ptr [ecx+$40]
0076375B 8D45E0 lea eax, [ebp-$20]
0076375E 50 push eax
0076375F 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_0052A180()
|
00763761 E81A6ADCFF call 0052A180
00763766 5A pop edx
* Reference to: graphics.TCanvas.Ellipse(TCanvas;TRect;TRect);overload;
|
00763767 E8D0B8CBFF call 0041F03C
0076376C 8B45F4 mov eax, [ebp-$0C]
0076376F 50 push eax
00763770 6A01 push $01
00763772 B8FFFF5000 mov eax, $0050FFFF
* Reference to: GR32.Proc_005294A8
|
00763777 E82C5DDCFF call 005294A8
0076377C 50 push eax
0076377D 8B4DF0 mov ecx, [ebp-$10]
00763780 8BD7 mov edx, edi
00763782 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_0052ACD4()
|
00763784 E84B75DCFF call 0052ACD4
00763789 682000CC00 push $00CC0020
0076378E 6A00 push $00
00763790 6A00 push $00
00763792 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_0052A180()
|
00763794 E8E769DCFF call 0052A180
* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
00763799 E8AABCCBFF call 0041F448
0076379E 50 push eax
0076379F 8BC6 mov eax, esi
* Reference to: controls.TControl.GetClientHeight(TControl):Integer;
|
007637A1 E8525DCDFF call 004394F8
007637A6 50 push eax
007637A7 8BC6 mov eax, esi
* Reference to: controls.TControl.GetClientWidth(TControl):Integer;
|
007637A9 E8065DCDFF call 004394B4
007637AE 50 push eax
007637AF 6A00 push $00
007637B1 6A00 push $00
007637B3 8BC6 mov eax, esi
* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
007637B5 E86603CFFF call 00453B20
* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
007637BA E889BCCBFF call 0041F448
007637BF 50 push eax
* Reference to: gdi32.BitBlt()
|
007637C0 E8FB4BCAFF call 004083C0
007637C5 8BC3 mov eax, ebx
* Reference to: system.TObject.Free(TObject);
|
007637C7 E800FBC9FF call 004032CC
007637CC 33C0 xor eax, eax
007637CE 5A pop edx
007637CF 59 pop ecx
007637D0 59 pop ecx
007637D1 648910 mov fs:[eax], edx
****** FINALLY
|
007637D4 68E9377600 push $007637E9
007637D9 8D45F4 lea eax, [ebp-$0C]
* Reference to: system.@LStrClr(String;String);
|
007637DC E81309CAFF call 004040F4
007637E1 C3 ret
* Reference to: system.@HandleFinally;
|
007637E2 E94502CAFF jmp 00403A2C
007637E7 EBF0 jmp 007637D9
****** END
|
007637E9 5F pop edi
007637EA 5E pop esi
007637EB 5B pop ebx
007637EC 8BE5 mov esp, ebp
007637EE 5D pop ebp
007637EF C3 ret
*)
end;
procedure TFrmSavDat._PROC_00763825(Sender : TObject);
begin
(*
00763825 8BEC mov ebp, esp
00763827 33C0 xor eax, eax
00763829 55 push ebp
0076382A 6849387600 push $00763849
***** TRY
|
0076382F 64FF30 push dword ptr fs:[eax]
00763832 648920 mov fs:[eax], esp
00763835 FF053C927900 inc dword ptr [$0079923C]
0076383B 33C0 xor eax, eax
0076383D 5A pop edx
0076383E 59 pop ecx
0076383F 59 pop ecx
00763840 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']脣纼-<抷'
|
00763843 6850387600 push $00763850
00763848 C3 ret
* Reference to: system.@HandleFinally;
|
00763849 E9DE01CAFF jmp 00403A2C
0076384E EBF8 jmp 00763848
****** END
|
00763850 5D pop ebp
00763851 C3 ret
*)
end;
procedure TFrmSavDat._PROC_00763854(Sender : TObject);
begin
(*
00763854 832D3C92790001 sub dword ptr [$0079923C], +$01
0076385B C3 ret
*)
end;
end.⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -