del.pas

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

unit del;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFormdel=class(TForm)
    suiForm1: TsuiForm;
    suiButton2: TsuiButton;
    suiButton3: TsuiButton;
    suiGroupBox1: TsuiGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    editBegin: TsuiEdit;
    EditEnd: TsuiEdit;
    suiGroupBox3: TsuiGroupBox;
    RabtnDel: TsuiRadioButton;
    RabtnNull: TsuiRadioButton;
    suiProgressBar1: TProgressBar;
    procedure suiButton3Click(Sender : TObject);
    procedure Del(Sender : TObject);
    procedure Del1(Sender : TObject);
    procedure suiButton2Click(Sender : TObject);
    procedure _PROC_004B51B4(Sender : TObject);
    procedure _PROC_004B5781(Sender : TObject);
    procedure _PROC_004B57B0(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  Formdel: TFormdel;

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

implementation

{$R *.DFM}

procedure TFormdel.suiButton3Click(Sender : TObject);
begin
(*

* Reference to : TApplication._PROC_0046D560()
|
004B5080   E8DB84FBFF             call    0046D560
004B5085   C3                     ret

*)
end;

procedure TFormdel.Del(Sender : TObject);
begin
(*
004B51D0   55                     push    ebp
004B51D1   8BEC                   mov     ebp, esp
004B51D3   83C4DC                 add     esp, -$24
004B51D6   53                     push    ebx
004B51D7   56                     push    esi
004B51D8   57                     push    edi
004B51D9   33DB                   xor     ebx, ebx
004B51DB   895DE0                 mov     [ebp-$20], ebx
004B51DE   895DDC                 mov     [ebp-$24], ebx
004B51E1   895DEC                 mov     [ebp-$14], ebx
004B51E4   895DE4                 mov     [ebp-$1C], ebx
004B51E7   894DF8                 mov     [ebp-$08], ecx
004B51EA   8955FC                 mov     [ebp-$04], edx
004B51ED   33C0                   xor     eax, eax
004B51EF   55                     push    ebp

* Possible String Reference to: '