new.pas

乐都wil编辑器 3.2 反编译delphi源代码

unit new;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFormnew=class(TForm)
    suiForm1: TsuiForm;
    Label1: TLabel;
    Label2: TLabel;
    EditPicPath: TsuiEdit;
    EditFileName: TsuiEdit;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    suiButton3: TsuiButton;
    suiGroupBox1: TsuiGroupBox;
    suiRadioButton1: TsuiRadioButton;
    suiRadioButton2: TsuiRadioButton;
    editxy: TsuiEdit;
    PBFolderDialog1: TPBFolderDialog;
    suiButton4: TsuiButton;
    SaveDialog1: TSaveDialog;
    suiProgressBar1: TProgressBar;
    suiGroupBox2: TsuiGroupBox;
    RbBoardSys: TsuiRadioButton;
    RbBoardBmp: TsuiRadioButton;
    procedure suiButton1Click(Sender : TObject);
    procedure suiButton2Click(Sender : TObject);
    procedure suiButton4Click(Sender : TObject);
    procedure suiButton3Click(Sender : TObject);
    procedure _PROC_004B4D18(Sender : TObject);
    procedure _PROC_004B4D5C(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  Formnew: TFormnew;

{This file is generated by DeDe Ver 3.10b Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TFormnew.suiButton1Click(Sender : TObject);
begin
(*
004B44E0   53                     push    ebx
004B44E1   8BD8                   mov     ebx, eax

* Reference to control TFormnew.PBFolderDialog1 : TPBFolderDialog
|
004B44E3   8B8328030000           mov     eax, [ebx+$0328]

* Reference to: PBFolderDialog.Proc_004B0BD0
|
004B44E9   E8E2C6FFFF             call    004B0BD0
004B44EE   84C0                   test    al, al
004B44F0   7414                   jz      004B4506

* Reference to control TFormnew.PBFolderDialog1 : TPBFolderDialog
|
004B44F2   8B8328030000           mov     eax, [ebx+$0328]

* Reference to field TPBFolderDialog.OFFS_004C
|
004B44F8   8B504C                 mov     edx, [eax+$4C]

* Reference to control TFormnew.EditPicPath : TsuiEdit
|
004B44FB   8B8304030000           mov     eax, [ebx+$0304]

* Reference to: Controls.Proc_00450520
|
004B4501   E81AC0F9FF             call    00450520
004B4506   5B                     pop     ebx
004B4507   C3                     ret

*)
end;

procedure TFormnew.suiButton2Click(Sender : TObject);
begin
(*
004B4508   55                     push    ebp
004B4509   8BEC                   mov     ebp, esp
004B450B   B98F000000             mov     ecx, $0000008F
004B4510   6A00                   push    $00
004B4512   6A00                   push    $00
004B4514   49                     dec     ecx
004B4515   75F9                   jnz     004B4510
004B4517   53                     push    ebx
004B4518   56                     push    esi
004B4519   57                     push    edi
004B451A   8945FC                 mov     [ebp-$04], eax
004B451D   33C0                   xor     eax, eax
004B451F   55                     push    ebp
004B4520   68C34B4B00             push    $004B4BC3

***** TRY
|
004B4525   64FF30                 push    dword ptr fs:[eax]
004B4528   648920                 mov     fs:[eax], esp
004B452B   33C0                   xor     eax, eax
004B452D   55                     push    ebp
004B452E   68F94A4B00             push    $004B4AF9

***** TRY
|
004B4533   64FF30                 push    dword ptr fs:[eax]
004B4536   648920                 mov     fs:[eax], esp
004B4539   8D95CCFBFFFF           lea     edx, [ebp+$FFFFFBCC]

* Reference to Formnew
|
004B453F   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFormnew.EditPicPath : TsuiEdit
|
004B4542   8B8004030000           mov     eax, [eax+$0304]

* Reference to: Controls.Proc_004504F0
|
004B4548   E8A3BFF9FF             call    004504F0
004B454D   83BDCCFBFFFF00         cmp     dword ptr [ebp+$FFFFFBCC], +$00
004B4554   751E                   jnz     004B4574

* Reference to TFormMain instance
|
004B4556   A1C0B14B00             mov     eax, dword ptr [$004BB1C0]
004B455B   8B00                   mov     eax, [eax]

* Possible String Reference to: '请输入图片所在路径!'
|
004B455D   BADC4B4B00             mov     edx, $004B4BDC

* Reference to : TFormMain.showErrMessage()
|
004B4562   E8E5340000             call    004B7A4C
004B4567   33C0                   xor     eax, eax
004B4569   5A                     pop     edx
004B456A   59                     pop     ecx
004B456B   59                     pop     ecx
004B456C   648910                 mov     fs:[eax], edx
004B456F   E9C0050000             jmp     004B4B34
004B4574   8D95C8FBFFFF           lea     edx, [ebp+$FFFFFBC8]

* Reference to Formnew
|
004B457A   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFormnew.EditFileName : TsuiEdit
|
004B457D   8B8008030000           mov     eax, [eax+$0308]

* Reference to: Controls.Proc_004504F0
|
004B4583   E868BFF9FF             call    004504F0
004B4588   83BDC8FBFFFF00         cmp     dword ptr [ebp+$FFFFFBC8], +$00
004B458F   751E                   jnz     004B45AF

* Reference to TFormMain instance
|
004B4591   A1C0B14B00             mov     eax, dword ptr [$004BB1C0]
004B4596   8B00                   mov     eax, [eax]

* Possible String Reference to: '请输入新建数据文件名!'
|
004B4598   BAF84B4B00             mov     edx, $004B4BF8

* Reference to : TFormMain.showErrMessage()
|
004B459D   E8AA340000             call    004B7A4C
004B45A2   33C0                   xor     eax, eax
004B45A4   5A                     pop     edx
004B45A5   59                     pop     ecx
004B45A6   59                     pop     ecx
004B45A7   648910                 mov     fs:[eax], edx
004B45AA   E985050000             jmp     004B4B34

* Reference to TApplication instance
|
004B45AF   A110B44B00             mov     eax, dword ptr [$004BB410]
004B45B4   8B00                   mov     eax, [eax]

* Reference to : TApplication._PROC_00470B6C()
|
004B45B6   E8B1C5FBFF             call    00470B6C
004B45BB   8D55F0                 lea     edx, [ebp-$10]

* Reference to Formnew
|
004B45BE   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFormnew.EditPicPath : TsuiEdit
|
004B45C1   8B8004030000           mov     eax, [eax+$0304]

* Reference to: Controls.Proc_004504F0
|
004B45C7   E824BFF9FF             call    004504F0
004B45CC   8B45F0                 mov     eax, [ebp-$10]

* Reference to: System.Proc_004044AC
|
004B45CF   E8D8FEF4FF             call    004044AC
004B45D4   8B55F0                 mov     edx, [ebp-$10]
004B45D7   807C02FF5C             cmp     byte ptr [edx+eax-$01], $5C
004B45DC   740D                   jz      004B45EB
004B45DE   8D45F0                 lea     eax, [ebp-$10]
004B45E1   BA184C4B00             mov     edx, $004B4C18

* Reference to: System.Proc_004044B4
|
004B45E6   E8C9FEF4FF             call    004044B4

* Reference to Formnew
|
004B45EB   8B4DFC                 mov     ecx, [ebp-$04]
004B45EE   B201                   mov     dl, $01

* Reference to class TFileListBox
|
004B45F0   A120DA4A00             mov     eax, dword ptr [$004ADA20]

* Reference to : TFileListBox._PROC_004AE604()
|
004B45F5   E80AA0FFFF             call    004AE604
004B45FA   8945D8                 mov     [ebp-$28], eax

* Reference to Formnew
|
004B45FD   8B1558CD4B00           mov     edx, [$004BCD58]
004B4603   8B45D8                 mov     eax, [ebp-$28]
004B4606   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TFileListBox.OFFS_68
|
004B4608   FF5168                 call    dword ptr [ecx+$68]
004B460B   8D95C4FBFFFF           lea     edx, [ebp+$FFFFFBC4]

* Reference to Formnew
|
004B4611   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFormnew.EditPicPath : TsuiEdit
|
004B4614   8B8004030000           mov     eax, [eax+$0304]

* Reference to: Controls.Proc_004504F0
|
004B461A   E8D1BEF9FF             call    004504F0
004B461F   8B95C4FBFFFF           mov     edx, [ebp+$FFFFFBC4]
004B4625   8B45D8                 mov     eax, [ebp-$28]
004B4628   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TFileListBox.OFFS_0110
|
004B462A   FF9110010000           call    dword ptr [ecx+$0110]

* Possible String Reference to: '*.bmp'
|
004B4630   BA244C4B00             mov     edx, $004B4C24
004B4635   8B45D8                 mov     eax, [ebp-$28]

* Reference to : TFileListBox._PROC_004AEF9C()
|
004B4638   E85FA9FFFF             call    004AEF9C
004B463D   33D2                   xor     edx, edx
004B463F   8B45D8                 mov     eax, [ebp-$28]

* Reference to: Controls.Proc_00450410
|
004B4642   E8C9BDF9FF             call    00450410
004B4647   8D95C0FBFFFF           lea     edx, [ebp+$FFFFFBC0]

* Reference to Formnew
|
004B464D   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFormnew.EditFileName : TsuiEdit
|
004B4650   8B8008030000           mov     eax, [eax+$0308]

* Reference to: Controls.Proc_004504F0
|
004B4656   E895BEF9FF             call    004504F0
004B465B   8B85C0FBFFFF           mov     eax, [ebp+$FFFFFBC0]

* Reference to: Unit_0040780C.Proc_00408F50
|
004B4661   E8EA48F5FF             call    00408F50
004B4666   84C0                   test    al, al
004B4668   741F                   jz      004B4689
004B466A   8D95BCFBFFFF           lea     edx, [ebp+$FFFFFBBC]

* Reference to Formnew
|
004B4670   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFormnew.EditFileName : TsuiEdit
|
004B4673   8B8008030000           mov     eax, [eax+$0308]

* Reference to: Controls.Proc_004504F0
|
004B4679   E872BEF9FF             call    004504F0
004B467E   8B85BCFBFFFF           mov     eax, [ebp+$FFFFFBBC]

* Reference to: Unit_0040780C.Proc_00409160
|
004B4684   E8D74AF5FF             call    00409160
004B4689   8D95B8FBFFFF           lea     edx, [ebp+$FFFFFBB8]

* Reference to Formnew
|
004B468F   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFormnew.EditFileName : TsuiEdit
|
004B4692   8B8008030000           mov     eax, [eax+$0308]

* Reference to: Controls.Proc_004504F0
|
004B4698   E853BEF9FF             call    004504F0
004B469D   8B85B8FBFFFF           mov     eax, [ebp+$FFFFFBB8]
004B46A3   50                     push    eax

* Reference to TFormMain instance
|
004B46A4   A1C0B14B00             mov     eax, dword ptr [$004BB1C0]
004B46A9   8B00                   mov     eax, [eax]

* Possible String Reference to: 'wil'
|
004B46AB   B9344C4B00             mov     ecx, $004B4C34

* Possible String Reference to: 'exefile'
|
004B46B0   BA404C4B00             mov     edx, $004B4C40

* Reference to : TFormMain.Extractrec()
|
004B46B5   E816240000             call    004B6AD0
004B46BA   8D95B0FBFFFF           lea     edx, [ebp+$FFFFFBB0]

* Reference to Formnew
|
004B46C0   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFormnew.EditFileName : TsuiEdit
|
004B46C3   8B8008030000           mov     eax, [eax+$0308]

* Reference to: Controls.Proc_004504F0
|
004B46C9   E822BEF9FF             call    004504F0
004B46CE   8B85B0FBFFFF           mov     eax, [ebp+$FFFFFBB0]
004B46D4   8D95B4FBFFFF           lea     edx, [ebp+$FFFFFBB4]