dbpwdlg.pas

翎风软件源代码

unit DBPWDlg;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ComCtrls;
type
  TPasswordDialog=class(TForm)
    GroupBox1: TGroupBox;
    Edit: TEdit;
    AddButton: TButton;
    RemoveButton: TButton;
    RemoveAllButton: TButton;
    OKButton: TButton;
    CancelButton: TButton;
    procedure EditChange(Sender : TObject);
    procedure AddButtonClick(Sender : TObject);
    procedure RemoveButtonClick(Sender : TObject);
    procedure RemoveAllButtonClick(Sender : TObject);
    procedure OKButtonClick(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  PasswordDialog: TPasswordDialog;

implementation

{$R *.DFM}

procedure TPasswordDialog.EditChange(Sender : TObject);
begin
(*
0047A4B0   55                     push    ebp
0047A4B1   8BEC                   mov     ebp, esp
0047A4B3   6A00                   push    $00
0047A4B5   53                     push    ebx
0047A4B6   56                     push    esi
0047A4B7   8BF0                   mov     esi, eax
0047A4B9   33C0                   xor     eax, eax
0047A4BB   55                     push    ebp

* Possible String Reference to: '殄慀