📄 addone.pas
字号:
unit addone;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFormaddone=class(TForm)
suiForm1: TsuiForm;
Label1: TLabel;
EditPic: TsuiEdit;
suiButton1: TsuiButton;
suiButton2: TsuiButton;
suiButton3: TsuiButton;
suiGroupBox1: TsuiGroupBox;
editx: TsuiEdit;
suiGroupBox3: TsuiGroupBox;
RabtnInsert: TsuiRadioButton;
Rabtnadd: TsuiRadioButton;
OpenPictureDialog1: TOpenPictureDialog;
Image1: TImage;
Label2: TLabel;
Label3: TLabel;
EDITy: TsuiEdit;
procedure suiButton1Click(Sender : TObject);
procedure suiButton2Click(Sender : TObject);
procedure InSert(Sender : TObject);
procedure suiButton3Click(Sender : TObject);
procedure _PROC_004B63A5(Sender : TObject);
procedure _PROC_004B63D4(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
Formaddone: TFormaddone;
{This file is generated by DeDe Ver 3.10b Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFormaddone.suiButton1Click(Sender : TObject);
begin
(*
004B5B28 55 push ebp
004B5B29 8BEC mov ebp, esp
004B5B2B 6A00 push $00
004B5B2D 53 push ebx
004B5B2E 8BD8 mov ebx, eax
004B5B30 33C0 xor eax, eax
004B5B32 55 push ebp
004B5B33 688B5B4B00 push $004B5B8B
***** TRY
|
004B5B38 64FF30 push dword ptr fs:[eax]
004B5B3B 648920 mov fs:[eax], esp
* Reference to control TFormaddone.OpenPictureDialog1 : TOpenPictureDialog
|
004B5B3E 8B8324030000 mov eax, [ebx+$0324]
004B5B44 8B10 mov edx, [eax]
* Possible reference to virtual method TOpenPictureDialog.OFFS_3C
|
004B5B46 FF523C call dword ptr [edx+$3C]
004B5B49 84C0 test al, al
004B5B4B 741C jz 004B5B69
004B5B4D 8D55FC lea edx, [ebp-$04]
* Reference to control TFormaddone.OpenPictureDialog1 : TOpenPictureDialog
|
004B5B50 8B8324030000 mov eax, [ebx+$0324]
* Reference to : TSaveDialog._PROC_00432518()
|
004B5B56 E8BDC9F7FF call 00432518
004B5B5B 8B55FC mov edx, [ebp-$04]
* Reference to control TFormaddone.EditPic : TsuiEdit
|
004B5B5E 8B8300030000 mov eax, [ebx+$0300]
* Reference to: Controls.Proc_00450520
|
004B5B64 E8B7A9F9FF call 00450520
* Reference to TApplication instance
|
004B5B69 A110B44B00 mov eax, dword ptr [$004BB410]
004B5B6E 8B00 mov eax, [eax]
* Reference to : TApplication._PROC_00470B6C()
|
004B5B70 E8F7AFFBFF call 00470B6C
004B5B75 33C0 xor eax, eax
004B5B77 5A pop edx
004B5B78 59 pop ecx
004B5B79 59 pop ecx
004B5B7A 648910 mov fs:[eax], edx
****** FINALLY
|
004B5B7D 68925B4B00 push $004B5B92
004B5B82 8D45FC lea eax, [ebp-$04]
* Reference to: System.Proc_004041EC
|
004B5B85 E862E6F4FF call 004041EC
004B5B8A C3 ret
004B5B8B E940E0F4FF jmp 00403BD0
004B5B90 EBF0 jmp 004B5B82
****** END
|
004B5B92 5B pop ebx
004B5B93 59 pop ecx
004B5B94 5D pop ebp
004B5B95 C3 ret
*)
end;
procedure TFormaddone.suiButton2Click(Sender : TObject);
begin
(*
004B5B98 55 push ebp
004B5B99 8BEC mov ebp, esp
004B5B9B 33C9 xor ecx, ecx
004B5B9D 51 push ecx
004B5B9E 51 push ecx
004B5B9F 51 push ecx
004B5BA0 51 push ecx
004B5BA1 51 push ecx
004B5BA2 51 push ecx
004B5BA3 53 push ebx
004B5BA4 56 push esi
004B5BA5 57 push edi
004B5BA6 8BD8 mov ebx, eax
004B5BA8 33C0 xor eax, eax
004B5BAA 55 push ebp
004B5BAB 681E5D4B00 push $004B5D1E
***** TRY
|
004B5BB0 64FF30 push dword ptr fs:[eax]
004B5BB3 648920 mov fs:[eax], esp
004B5BB6 8D55F0 lea edx, [ebp-$10]
* Reference to control TFormaddone.EditPic : TsuiEdit
|
004B5BB9 8B8300030000 mov eax, [ebx+$0300]
* Reference to: Controls.Proc_004504F0
|
004B5BBF E82CA9F9FF call 004504F0
004B5BC4 837DF000 cmp dword ptr [ebp-$10], +$00
004B5BC8 7516 jnz 004B5BE0
* Reference to TFormMain instance
|
004B5BCA A1C0B14B00 mov eax, dword ptr [$004BB1C0]
004B5BCF 8B00 mov eax, [eax]
* Possible String Reference to: '请选择要添加图片文件!'
|
004B5BD1 BA345D4B00 mov edx, $004B5D34
* Reference to : TFormMain.showErrMessage()
|
004B5BD6 E8711E0000 call 004B7A4C
004B5BDB E916010000 jmp 004B5CF6
004B5BE0 8D55EC lea edx, [ebp-$14]
* Reference to control TFormaddone.EditPic : TsuiEdit
|
004B5BE3 8B8300030000 mov eax, [ebx+$0300]
* Reference to: Controls.Proc_004504F0
|
004B5BE9 E802A9F9FF call 004504F0
004B5BEE 8B45EC mov eax, [ebp-$14]
004B5BF1 8D55FC lea edx, [ebp-$04]
* Reference to: Unit_0040780C.Proc_0040928C
|
004B5BF4 E89336F5FF call 0040928C
004B5BF9 8D55E8 lea edx, [ebp-$18]
* Reference to control TFormaddone.EditPic : TsuiEdit
|
004B5BFC 8B8300030000 mov eax, [ebx+$0300]
* Reference to: Controls.Proc_004504F0
|
004B5C02 E8E9A8F9FF call 004504F0
004B5C07 8B55E8 mov edx, [ebp-$18]
* Reference to control TFormaddone.Image1 : TImage
|
004B5C0A 8B8328030000 mov eax, [ebx+$0328]
* Reference to field TImage.OFFS_0168
|
004B5C10 8B8068010000 mov eax, [eax+$0168]
* Reference to: Graphics.Proc_00429088
|
004B5C16 E86D34F7FF call 00429088
* Reference to control TFormaddone.Image1 : TImage
|
004B5C1B 8B8328030000 mov eax, [ebx+$0328]
* Reference to field TImage.OFFS_0168
|
004B5C21 8B8068010000 mov eax, [eax+$0168]
* Reference to: Graphics.Proc_00428FA8
|
004B5C27 E87C33F7FF call 00428FA8
004B5C2C 8BF8 mov edi, eax
004B5C2E 8B45FC mov eax, [ebp-$04]
* Reference to: System.Proc_004044AC
|
004B5C31 E876E8F4FF call 004044AC
004B5C36 8B55FC mov edx, [ebp-$04]
004B5C39 807C02FF5C cmp byte ptr [edx+eax-$01], $5C
004B5C3E 740D jz 004B5C4D
004B5C40 8D45FC lea eax, [ebp-$04]
004B5C43 BA545D4B00 mov edx, $004B5D54
* Reference to: System.Proc_004044B4
|
004B5C48 E867E8F4FF call 004044B4
004B5C4D B201 mov dl, $01
* Reference to class TStringList
|
004B5C4F A13CA14100 mov eax, dword ptr [$0041A13C]
* Reference to: System.Proc_0040344C
|
004B5C54 E8F3D7F4FF call 0040344C
004B5C59 8D55F8 lea edx, [ebp-$08]
* Reference to control TFormaddone.editx : TsuiEdit
|
004B5C5C 8B8314030000 mov eax, [ebx+$0314]
* Reference to: Controls.Proc_004504F0
|
004B5C62 E889A8F9FF call 004504F0
004B5C67 8D55F4 lea edx, [ebp-$0C]
004B5C6A 8B45F8 mov eax, [ebp-$08]
* Reference to: System.Proc_00402E58
|
004B5C6D E8E6D1F4FF call 00402E58
004B5C72 8BF0 mov esi, eax
004B5C74 8D55F8 lea edx, [ebp-$08]
* Reference to control TFormaddone.EDITy : TsuiEdit
|
004B5C77 8B8334030000 mov eax, [ebx+$0334]
* Reference to: Controls.Proc_004504F0
|
004B5C7D E86EA8F9FF call 004504F0
004B5C82 8D55F4 lea edx, [ebp-$0C]
004B5C85 8B45F8 mov eax, [ebp-$08]
* Reference to: System.Proc_00402E58
|
004B5C88 E8CBD1F4FF call 00402E58
* Reference to control TFormaddone.Rabtnadd : TsuiRadioButton
|
004B5C8D 8B9320030000 mov edx, [ebx+$0320]
* Reference to field TsuiRadioButton.OFFS_0210
|
004B5C93 80BA1002000000 cmp byte ptr [edx+$0210], $00
004B5C9A 7413 jz 004B5CAF
004B5C9C 50 push eax
* Reference to TWIL instance
|
004B5C9D A194B24B00 mov eax, dword ptr [$004BB294]
004B5CA2 8B00 mov eax, [eax]
004B5CA4 8BCE mov ecx, esi
004B5CA6 8BD7 mov edx, edi
* Reference to: mywil.Proc_0049703C
|
004B5CA8 E88F13FEFF call 0049703C
004B5CAD EB14 jmp 004B5CC3
004B5CAF 50 push eax
* Reference to pointer to GlobalVar_004BCD80
|
004B5CB0 A160B14B00 mov eax, dword ptr [$004BB160]
004B5CB5 8B00 mov eax, [eax]
004B5CB7 50 push eax
004B5CB8 8BCE mov ecx, esi
004B5CBA 8BD7 mov edx, edi
004B5CBC 8BC3 mov eax, ebx
* Reference to : TFormaddone.InSert()
|
004B5CBE E8CD000000 call 004B5D90
* Reference to TWIL instance
|
004B5CC3 A194B24B00 mov eax, dword ptr [$004BB294]
004B5CC8 8B00 mov eax, [eax]
* Reference to: mywil.Proc_0049672C
|
004B5CCA E85D0AFEFF call 0049672C
* Reference to TWIL instance
|
004B5CCF A194B24B00 mov eax, dword ptr [$004BB294]
004B5CD4 8B00 mov eax, [eax]
* Reference to : TWIL._PROC_0049645C()
|
004B5CD6 E88107FEFF call 0049645C
* Reference to TFormMain instance
|
004B5CDB A1C0B14B00 mov eax, dword ptr [$004BB1C0]
004B5CE0 8B00 mov eax, [eax]
* Possible String Reference to: '加入图片成功！'
|
004B5CE2 BA605D4B00 mov edx, $004B5D60
* Reference to : TFormMain.showMessage()
|
004B5CE7 E8E81D0000 call 004B7AD4
* Reference to Formaddone
|
004B5CEC A170CD4B00 mov eax, dword ptr [$004BCD70]
* Reference to : TApplication._PROC_0046D560()
|
004B5CF1 E86A78FBFF call 0046D560
004B5CF6 33C0 xor eax, eax
004B5CF8 5A pop edx
004B5CF9 59 pop ecx
004B5CFA 59 pop ecx
004B5CFB 648910 mov fs:[eax], edx
****** FINALLY
|
004B5CFE 68255D4B00 push $004B5D25
004B5D03 8D45E8 lea eax, [ebp-$18]
004B5D06 BA03000000 mov edx, $00000003
* Reference to: System.Proc_00404210
|
004B5D0B E800E5F4FF call 00404210
004B5D10 8D45F8 lea eax, [ebp-$08]
004B5D13 BA02000000 mov edx, $00000002
* Reference to: System.Proc_00404210
|
004B5D18 E8F3E4F4FF call 00404210
004B5D1D C3 ret
004B5D1E E9ADDEF4FF jmp 00403BD0
004B5D23 EBDE jmp 004B5D03
****** END
|
004B5D25 5F pop edi
004B5D26 5E pop esi
004B5D27 5B pop ebx
004B5D28 8BE5 mov esp, ebp
004B5D2A 5D pop ebp
004B5D2B C3 ret
*)
end;
procedure TFormaddone.InSert(Sender : TObject);
begin
(*
004B5D90 55 push ebp
004B5D91 8BEC mov ebp, esp
004B5D93 83C4C4 add esp, -$3C
004B5D96 53 push ebx
004B5D97 56 push esi
004B5D98 57 push edi
004B5D99 33DB xor ebx, ebx
004B5D9B 895DC8 mov [ebp-$38], ebx
004B5D9E 895DC4 mov [ebp-$3C], ebx
004B5DA1 895DE4 mov [ebp-$1C], ebx
004B5DA4 895DD8 mov [ebp-$28], ebx
004B5DA7 66894DFA mov [ebp-$06], cx
004B5DAB 8955FC mov [ebp-$04], edx
004B5DAE 8B5D08 mov ebx, [ebp+$08]
004B5DB1 33C0 xor eax, eax
004B5DB3 55 push ebp
004B5DB4 6878634B00 push $004B6378
***** TRY
|
004B5DB9 64FF30 push dword ptr fs:[eax]
004B5DBC 648920 mov fs:[eax], esp
004B5DBF C645F901 mov byte ptr [ebp-$07], $01
004B5DC3 33D2 xor edx, edx
004B5DC5 55 push ebp
* Possible String Reference to: '檗蒸⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -