outpic.pas

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

unit outpic;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFormout=class(TForm)
    suiForm1: TsuiForm;
    Label1: TLabel;
    EditPicPath: TsuiEdit;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    suiButton3: TsuiButton;
    suiGroupBox1: TsuiGroupBox;
    editBegin: TsuiEdit;
    PBFolderDialog1: TPBFolderDialog;
    PBFolderDialog2: TPBFolderDialog;
    Label2: TLabel;
    EditEnd: TsuiEdit;
    Label3: TLabel;
    suiProgressBar1: TProgressBar;
    procedure suiButton1Click(Sender : TObject);
    procedure suiButton2Click(Sender : TObject);
    procedure suiButton3Click(Sender : TObject);
    procedure _PROC_004B14E9(Sender : TObject);
    procedure _PROC_004B152C(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  Formout: TFormout;

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

implementation

{$R *.DFM}

procedure TFormout.suiButton1Click(Sender : TObject);
begin
(*
004B10C0   53                     push    ebx
004B10C1   8BD8                   mov     ebx, eax

* Reference to control TFormout.PBFolderDialog1 : TPBFolderDialog
|
004B10C3   8B8318030000           mov     eax, [ebx+$0318]

* Reference to: PBFolderDialog.Proc_004B0BD0
|
004B10C9   E802FBFFFF             call    004B0BD0
004B10CE   84C0                   test    al, al
004B10D0   7414                   jz      004B10E6

* Reference to control TFormout.PBFolderDialog1 : TPBFolderDialog
|
004B10D2   8B8318030000           mov     eax, [ebx+$0318]

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

* Reference to control TFormout.EditPicPath : TsuiEdit
|
004B10DB   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: Controls.Proc_00450520
|
004B10E1   E83AF4F9FF             call    00450520
004B10E6   5B                     pop     ebx
004B10E7   C3                     ret

*)
end;

procedure TFormout.suiButton2Click(Sender : TObject);
begin
(*
004B10E8   55                     push    ebp
004B10E9   8BEC                   mov     ebp, esp
004B10EB   B908000000             mov     ecx, $00000008
004B10F0   6A00                   push    $00
004B10F2   6A00                   push    $00
004B10F4   49                     dec     ecx
004B10F5   75F9                   jnz     004B10F0
004B10F7   53                     push    ebx
004B10F8   56                     push    esi
004B10F9   57                     push    edi
004B10FA   8945FC                 mov     [ebp-$04], eax
004B10FD   33C0                   xor     eax, eax
004B10FF   55                     push    ebp

* Possible String Reference to: '椴'