mail.pas

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

unit mail;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFormMain=class(TForm)
    suiForm1: TsuiForm;
    suiImagePanel1: TsuiImagePanel;
    Label1: TLabel;
    EditFileName: TsuiEdit;
    Button2: TsuiButton;
    btnup: TsuiButton;
    btndown: TsuiButton;
    BtnJump: TsuiButton;
    BtnAutoPlay: TsuiButton;
    btnstop: TsuiButton;
    btninput: TsuiButton;
    BtnOut: TsuiButton;
    btnAdd: TsuiButton;
    btnCreate: TsuiButton;
    btnallOut: TsuiButton;
    btnallinput: TsuiButton;
    suiGroupBox1: TsuiGroupBox;
    Label2: TLabel;
    LabelSize: TLabel;
    LabelX: TLabel;
    Label7: TLabel;
    LabelIndex: TLabel;
    LabelY: TLabel;
    btnx: TsuiButton;
    btny: TsuiButton;
    suiGroupBox2: TsuiGroupBox;
    Rb50: TsuiRadioButton;
    rb100: TsuiRadioButton;
    rb200: TsuiRadioButton;
    rb400: TsuiRadioButton;
    rb800: TsuiRadioButton;
    rbauto: TsuiRadioButton;
    checkboxTransparent: TsuiCheckBox;
    CheckBoxjump: TsuiCheckBox;
    checkboxXY: TsuiCheckBox;
    suiImagePanel2: TsuiImagePanel;
    suiImagePanel3: TsuiImagePanel;
    suiPanel1: TsuiPanel;
    OpenDialog1: TOpenDialog;
    DrawGrid1: TDrawGrid;
    CheckBoxzuobiao: TsuiCheckBox;
    OpenPictureDialog1: TOpenPictureDialog;
    SaveDialog1: TSaveDialog;
    SavePictureDialog1: TSavePictureDialog;
    MessageDlg: TsuiMessageDialog;
    Image1: TImage;
    ScrollBox1: TScrollBox;
    PaintBox1: TFlickerFreePaintBox;
    suiURLLabel1: TsuiURLLabel;
    btndelete: TsuiButton;
    InputDialog: TsuiInputDialog;
    Label3: TLabel;
    Labeltype: TLabel;
    Splitter1: TSplitter;
    procedure FormPaint(Sender : TObject);
    procedure PaintBox1Paint(Sender : TObject);
    procedure Button2Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure btndownClick(Sender : TObject);
    procedure DrawGrid1DrawCell(Sender : TObject);
    procedure btnupClick(Sender : TObject);
    procedure FillInfo(Sender : TObject);
    procedure BtnJumpClick(Sender : TObject);
    procedure BtnAutoPlayClick(Sender : TObject);
    procedure btnstopClick(Sender : TObject);
    procedure BtnOutClick(Sender : TObject);
    procedure btninputClick(Sender : TObject);
    procedure showErrMessage(Sender : TObject);
    procedure showMessage(Sender : TObject);
    procedure btnallOutClick(Sender : TObject);
    procedure btnallinputClick(Sender : TObject);
    procedure rb800Click(Sender : TObject);
    procedure Extractrec(Sender : TObject);
    procedure btnCreateClick(Sender : TObject);
    procedure btndeleteClick(Sender : TObject);
    procedure btnxClick(Sender : TObject);
    procedure btnyClick(Sender : TObject);
    procedure btnAddClick(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FormMain: TFormMain;

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

implementation

{$R *.DFM}

procedure TFormMain.FormPaint(Sender : TObject);
begin
(*

* Reference to control TFormMain.PaintBox1 : TFlickerFreePaintBox
|
004B6B6C   8B80B4030000           mov     eax, [eax+$03B4]

* Reference to: Controls.Proc_00450A2C
|
004B6B72   E8B59EF9FF             call    00450A2C
004B6B77   C3                     ret

*)
end;

procedure TFormMain.PaintBox1Paint(Sender : TObject);
begin
(*
004B6B78   53                     push    ebx
004B6B79   56                     push    esi
004B6B7A   8BF1                   mov     esi, ecx
004B6B7C   8BD8                   mov     ebx, eax

* Reference to WIL
|
004B6B7E   A198CD4B00             mov     eax, dword ptr [$004BCD98]

* Reference to field WIL.OFFS_8006
|
004B6B83   83B86C00080000         cmp     dword ptr [eax+$8006C], +$00
004B6B8A   7432                   jz      004B6BBE
004B6B8C   A188CD4B00             mov     eax, dword ptr [$004BCD88]
004B6B91   50                     push    eax
004B6B92   A180CD4B00             mov     eax, dword ptr [$004BCD80]
004B6B97   50                     push    eax
004B6B98   FF3590CD4B00           push    dword ptr [$004BCD90]
004B6B9E   FF358CCD4B00           push    dword ptr [$004BCD8C]
004B6BA4   A094CD4B00             mov     al, byte ptr [$004BCD94]
004B6BA9   50                     push    eax
004B6BAA   6A00                   push    $00
004B6BAC   8B0D84CD4B00           mov     ecx, [$004BCD84]
004B6BB2   8BD6                   mov     edx, esi

* Reference to WIL
|
004B6BB4   A198CD4B00             mov     eax, dword ptr [$004BCD98]

* Reference to: mywil.Proc_00497858
|
004B6BB9   E89A0CFEFF             call    00497858

* Reference to control TFormMain.CheckBoxzuobiao : TsuiCheckBox
|
004B6BBE   8B8398030000           mov     eax, [ebx+$0398]

* Reference to field TsuiCheckBox.OFFS_0210
|
004B6BC4   80B81002000000         cmp     byte ptr [eax+$0210], $00
004B6BCB   7470                   jz      004B6C3D
004B6BCD   B202                   mov     dl, $02
004B6BCF   8B4610                 mov     eax, [esi+$10]

* Reference to : TIcon._PROC_0042601C()
|
004B6BD2   E845F4F6FF             call    0042601C

* Reference to control TFormMain.PaintBox1 : TFlickerFreePaintBox
|
004B6BD7   8B83B4030000           mov     eax, [ebx+$03B4]

* Reference to field TFlickerFreePaintBox.OFFS_004C
|
004B6BDD   8B484C                 mov     ecx, [eax+$4C]
004B6BE0   D1F9                   sar     ecx, 1
004B6BE2   7903                   jns     004B6BE7
004B6BE4   83D100                 adc     ecx, +$00
004B6BE7   33D2                   xor     edx, edx
004B6BE9   8BC6                   mov     eax, esi

* Reference to: Graphics.Proc_00426990
|
004B6BEB   E8A0FDF6FF             call    00426990

* Reference to control TFormMain.PaintBox1 : TFlickerFreePaintBox
|
004B6BF0   8B83B4030000           mov     eax, [ebx+$03B4]

* Reference to field TFlickerFreePaintBox.OFFS_004C
|
004B6BF6   8B484C                 mov     ecx, [eax+$4C]
004B6BF9   D1F9                   sar     ecx, 1
004B6BFB   7903                   jns     004B6C00
004B6BFD   83D100                 adc     ecx, +$00

* Reference to field TFlickerFreePaintBox.OFFS_0048
|
004B6C00   8B5048                 mov     edx, [eax+$48]
004B6C03   8BC6                   mov     eax, esi

* Reference to: Graphics.Proc_00426930
|
004B6C05   E826FDF6FF             call    00426930

* Reference to control TFormMain.PaintBox1 : TFlickerFreePaintBox
|
004B6C0A   8B83B4030000           mov     eax, [ebx+$03B4]

* Reference to field TFlickerFreePaintBox.OFFS_0048
|
004B6C10   8B5048                 mov     edx, [eax+$48]
004B6C13   D1FA                   sar     edx, 1
004B6C15   7903                   jns     004B6C1A
004B6C17   83D200                 adc     edx, +$00
004B6C1A   33C9                   xor     ecx, ecx
004B6C1C   8BC6                   mov     eax, esi

* Reference to: Graphics.Proc_00426990
|
004B6C1E   E86DFDF6FF             call    00426990

* Reference to control TFormMain.PaintBox1 : TFlickerFreePaintBox
|
004B6C23   8B83B4030000           mov     eax, [ebx+$03B4]

* Reference to field TFlickerFreePaintBox.OFFS_004C
|
004B6C29   8B484C                 mov     ecx, [eax+$4C]

* Reference to field TFlickerFreePaintBox.OFFS_0048
|
004B6C2C   8B5048                 mov     edx, [eax+$48]
004B6C2F   D1FA                   sar     edx, 1
004B6C31   7903                   jns     004B6C36
004B6C33   83D200                 adc     edx, +$00
004B6C36   8BC6                   mov     eax, esi

* Reference to: Graphics.Proc_00426930
|
004B6C38   E8F3FCF6FF             call    00426930
004B6C3D   5E                     pop     esi
004B6C3E   5B                     pop     ebx
004B6C3F   C3                     ret

*)
end;

procedure TFormMain.Button2Click(Sender : TObject);
begin
(*
004B6C40   55                     push    ebp
004B6C41   8BEC                   mov     ebp, esp
004B6C43   6A00                   push    $00
004B6C45   6A00                   push    $00
004B6C47   6A00                   push    $00
004B6C49   53                     push    ebx
004B6C4A   8BD8                   mov     ebx, eax
004B6C4C   33C0                   xor     eax, eax
004B6C4E   55                     push    ebp

* Possible String Reference to: '閔昔