📄 addpic.pas
字号:
unit addpic;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFormadd=class(TForm)
suiForm1: TsuiForm;
Label1: TLabel;
EditPicPath: TsuiEdit;
suiButton1: TsuiButton;
suiButton2: TsuiButton;
suiButton3: TsuiButton;
GroupBoxxy: TsuiGroupBox;
RabtnFile: TsuiRadioButton;
suiRadioButton2: TsuiRadioButton;
editxy: TsuiEdit;
PBFolderDialog1: TPBFolderDialog;
PBFolderDialog2: TPBFolderDialog;
suiProgressBar1: TProgressBar;
suiGroupBox2: TsuiGroupBox;
suiGroupBox3: TsuiGroupBox;
Label2: TLabel;
Label3: TLabel;
EditEnd: TsuiEdit;
editBegin: TsuiEdit;
RabtnAdd: TsuiRadioButton;
RabtnInsert: TsuiRadioButton;
RabtnReplace: TsuiRadioButton;
suiGroupBox4: TsuiGroupBox;
RabtnAll: TsuiRadioButton;
RabtnPic: TsuiRadioButton;
Rabtnxy: TsuiRadioButton;
procedure suiButton1Click(Sender : TObject);
procedure suiButton3Click(Sender : TObject);
procedure RabtnInsertClick(Sender : TObject);
procedure AddAll(Sender : TObject);
procedure AddPic(Sender : TObject);
procedure AddXy(Sender : TObject);
procedure Add(Sender : TObject);
procedure InSert(Sender : TObject);
procedure Replace(Sender : TObject);
procedure RabtnPicClick(Sender : TObject);
procedure suiButton2Click(Sender : TObject);
procedure _PROC_004B2599(Sender : TObject);
procedure _PROC_004B40CD(Sender : TObject);
procedure _PROC_004B4110(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
Formadd: TFormadd;
{This file is generated by DeDe Ver 3.10b Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFormadd.suiButton1Click(Sender : TObject);
begin
(*
004B19C4 53 push ebx
004B19C5 8BD8 mov ebx, eax
* Reference to control TFormadd.PBFolderDialog1 : TPBFolderDialog
|
004B19C7 8B8320030000 mov eax, [ebx+$0320]
* Reference to: PBFolderDialog.Proc_004B0BD0
|
004B19CD E8FEF1FFFF call 004B0BD0
004B19D2 84C0 test al, al
004B19D4 7414 jz 004B19EA
* Reference to control TFormadd.PBFolderDialog1 : TPBFolderDialog
|
004B19D6 8B8320030000 mov eax, [ebx+$0320]
* Reference to field TPBFolderDialog.OFFS_004C
|
004B19DC 8B504C mov edx, [eax+$4C]
* Reference to control TFormadd.EditPicPath : TsuiEdit
|
004B19DF 8B8300030000 mov eax, [ebx+$0300]
* Reference to: Controls.Proc_00450520
|
004B19E5 E836EBF9FF call 00450520
004B19EA 5B pop ebx
004B19EB C3 ret
*)
end;
procedure TFormadd.suiButton3Click(Sender : TObject);
begin
(*
* Reference to : TApplication._PROC_0046D560()
|
004B258C E8CFAFFBFF call 0046D560
004B2591 C3 ret
*)
end;
procedure TFormadd.RabtnInsertClick(Sender : TObject);
begin
(*
004B2594 53 push ebx
004B2595 8BD8 mov ebx, eax
* Reference to control TFormadd.RabtnAdd : TsuiRadioButton
|
004B2597 8B8344030000 mov eax, [ebx+$0344]
* Reference to field TsuiRadioButton.OFFS_0210
|
004B259D 8A9010020000 mov dl, byte ptr [eax+$0210]
004B25A3 80F201 xor dl, $01
* Reference to control TFormadd.suiGroupBox2 : TsuiGroupBox
|
004B25A6 8B832C030000 mov eax, [ebx+$032C]
004B25AC 8B08 mov ecx, [eax]
* Possible reference to virtual method TsuiGroupBox.OFFS_64
|
004B25AE FF5164 call dword ptr [ecx+$64]
* Reference to control TFormadd.RabtnReplace : TsuiRadioButton
|
004B25B1 8B834C030000 mov eax, [ebx+$034C]
* Reference to field TsuiRadioButton.OFFS_0210
|
004B25B7 8A9010020000 mov dl, byte ptr [eax+$0210]
* Reference to control TFormadd.EditEnd : TsuiEdit
|
004B25BD 8B833C030000 mov eax, [ebx+$033C]
004B25C3 8B08 mov ecx, [eax]
* Possible reference to virtual method TsuiEdit.OFFS_64
|
004B25C5 FF5164 call dword ptr [ecx+$64]
004B25C8 5B pop ebx
004B25C9 C3 ret
*)
end;
procedure TFormadd.AddAll(Sender : TObject);
begin
(*
004B19EC 55 push ebp
004B19ED 8BEC mov ebp, esp
004B19EF B906000000 mov ecx, $00000006
004B19F4 6A00 push $00
004B19F6 6A00 push $00
004B19F8 49 dec ecx
004B19F9 75F9 jnz 004B19F4
004B19FB 53 push ebx
004B19FC 56 push esi
004B19FD 57 push edi
004B19FE 8BD8 mov ebx, eax
004B1A00 33C0 xor eax, eax
004B1A02 55 push ebp
004B1A03 68321D4B00 push $004B1D32
***** TRY
|
004B1A08 64FF30 push dword ptr fs:[eax]
004B1A0B 648920 mov fs:[eax], esp
004B1A0E C645FF00 mov byte ptr [ebp-$01], $00
004B1A12 8D55E8 lea edx, [ebp-$18]
* Reference to control TFormadd.EditPicPath : TsuiEdit
|
004B1A15 8B8300030000 mov eax, [ebx+$0300]
* Reference to: Controls.Proc_004504F0
|
004B1A1B E8D0EAF9FF call 004504F0
004B1A20 837DE800 cmp dword ptr [ebp-$18], +$00
004B1A24 7516 jnz 004B1A3C
* Reference to TFormMain instance
|
004B1A26 A1C0B14B00 mov eax, dword ptr [$004BB1C0]
004B1A2B 8B00 mov eax, [eax]
* Possible String Reference to: '请输入图片所在路径!'
|
004B1A2D BA4C1D4B00 mov edx, $004B1D4C
* Reference to : TFormMain.showErrMessage()
|
004B1A32 E815600000 call 004B7A4C
004B1A37 E9D3020000 jmp 004B1D0F
* Reference to TApplication instance
|
004B1A3C A110B44B00 mov eax, dword ptr [$004BB410]
004B1A41 8B00 mov eax, [eax]
* Reference to : TApplication._PROC_00470B6C()
|
004B1A43 E824F1FBFF call 00470B6C
004B1A48 8D55EC lea edx, [ebp-$14]
* Reference to control TFormadd.EditPicPath : TsuiEdit
|
004B1A4B 8B8300030000 mov eax, [ebx+$0300]
* Reference to: Controls.Proc_004504F0
|
004B1A51 E89AEAF9FF call 004504F0
004B1A56 8B45EC mov eax, [ebp-$14]
* Reference to: System.Proc_004044AC
|
004B1A59 E84E2AF5FF call 004044AC
004B1A5E 8B55EC mov edx, [ebp-$14]
004B1A61 807C02FF5C cmp byte ptr [edx+eax-$01], $5C
004B1A66 740D jz 004B1A75
004B1A68 8D45EC lea eax, [ebp-$14]
004B1A6B BA681D4B00 mov edx, $004B1D68
* Reference to: System.Proc_004044B4
|
004B1A70 E83F2AF5FF call 004044B4
004B1A75 8BCB mov ecx, ebx
004B1A77 B201 mov dl, $01
* Reference to class TFileListBox
|
004B1A79 A120DA4A00 mov eax, dword ptr [$004ADA20]
* Reference to : TFileListBox._PROC_004AE604()
|
004B1A7E E881CBFFFF call 004AE604
004B1A83 8BF0 mov esi, eax
* Reference to Formadd
|
004B1A85 8B1548CD4B00 mov edx, [$004BCD48]
004B1A8B 8BC6 mov eax, esi
004B1A8D 8B08 mov ecx, [eax]
* Possible reference to virtual method TFileListBox.OFFS_68
|
004B1A8F FF5168 call dword ptr [ecx+$68]
004B1A92 8D55E4 lea edx, [ebp-$1C]
* Reference to control TFormadd.EditPicPath : TsuiEdit
|
004B1A95 8B8300030000 mov eax, [ebx+$0300]
* Reference to: Controls.Proc_004504F0
|
004B1A9B E850EAF9FF call 004504F0
004B1AA0 8B55E4 mov edx, [ebp-$1C]
004B1AA3 8BC6 mov eax, esi
004B1AA5 8B08 mov ecx, [eax]
* Possible reference to virtual method TFileListBox.OFFS_0110
|
004B1AA7 FF9110010000 call dword ptr [ecx+$0110]
* Possible String Reference to: '*.bmp'
|
004B1AAD BA741D4B00 mov edx, $004B1D74
004B1AB2 8BC6 mov eax, esi
* Reference to : TFileListBox._PROC_004AEF9C()
|
004B1AB4 E8E3D4FFFF call 004AEF9C
004B1AB9 33D2 xor edx, edx
004B1ABB 8BC6 mov eax, esi
* Reference to: Controls.Proc_00450410
|
004B1ABD E84EE9F9FF call 00450410
* Reference to control TFormadd.RabtnFile : TsuiRadioButton
|
004B1AC2 8B8314030000 mov eax, [ebx+$0314]
* Reference to field TsuiRadioButton.OFFS_0210
|
004B1AC8 80B81002000000 cmp byte ptr [eax+$0210], $00
004B1ACF 7407 jz 004B1AD8
004B1AD1 33C0 xor eax, eax
004B1AD3 8945F0 mov [ebp-$10], eax
004B1AD6 EB07 jmp 004B1ADF
004B1AD8 C745F001000000 mov dword ptr [ebp-$10], $00000001
* Reference to control TFormadd.RabtnAdd : TsuiRadioButton
|
004B1ADF 8B8344030000 mov eax, [ebx+$0344]
* Reference to field TsuiRadioButton.OFFS_0210
|
004B1AE5 80B81002000000 cmp byte ptr [eax+$0210], $00
004B1AEC 7427 jz 004B1B15
004B1AEE 8A45F0 mov al, byte ptr [ebp-$10]
004B1AF1 50 push eax
004B1AF2 8D55E0 lea edx, [ebp-$20]
* Reference to control TFormadd.EditPicPath : TsuiEdit
|
004B1AF5 8B8300030000 mov eax, [ebx+$0300]
* Reference to: Controls.Proc_004504F0
|
004B1AFB E8F0E9F9FF call 004504F0
004B1B00 8B4DE0 mov ecx, [ebp-$20]
* Reference to field TFileListBox.OFFS_0218
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -