unit Pwd;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ComCtrls, Buttons;

type
  TPasswordForm=class(TForm)
    UserLabel: TLabel;
    PasswordView: TListView;
    CloseBtn: TBitBtn;
    UserEdit: TEdit;
    procedure CloseBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  PasswordForm: TPasswordForm;


{This file is generated by DeDe v2.30 (c) 1999 by DaFixer}

implementation

{$R *.DFM}


procedure TPasswordForm.CloseBtnClick(Sender: TObject);
begin
{
004B28E0   55                     push    ebp
004B28E1   8BEC                   mov     ebp, esp
004B28E3   83C4F8                 add     esp, -$08
004B28E6   8955F8                 mov     [ebp-$08], edx
004B28E9   8945FC                 mov     [ebp-$04], eax
004B28EC   8B45FC                 mov     eax, [ebp-$04]
004B28EF   E8A488F9FF             call    0044B198
004B28F4   59                     pop     ecx
004B28F5   59                     pop     ecx
004B28F6   5D                     pop     ebp
004B28F7   C3                     ret


}
 end ; 

procedure TPasswordForm.FormCreate(Sender: TObject);
begin
{
004B278C   55                     push    ebp
004B278D   8BEC                   mov     ebp, esp
004B278F   83C4F8                 add     esp, -$08
004B2792   8955F8                 mov     [ebp-$08], edx
004B2795   8945FC                 mov     [ebp-$04], eax
004B2798   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004B279D   8B00                   mov     eax, [eax]
004B279F   8B55FC                 mov     edx, [ebp-$04]
004B27A2   8990B8000000           mov     [eax+$00B8], edx

* Possible String Reference to: "U‹ìƒÄàS3Û‰]ä‰]à‰Mø‰Uè‰Eü3ÀUhÒ(K"
|
004B27A8   C780B4000000E0274B00   mov     dword ptr [eax+$00B4], $004B27E0
004B27B2   8B45FC                 mov     eax, [ebp-$04]
004B27B5   8B80C8020000           mov     eax, [eax+$02C8]
004B27BB   E8C0F0FBFF             call    00471880
004B27C0   8BC8                   mov     ecx, eax
004B27C2   A154CC4C00             mov     eax, dword ptr [$4CCC54]
004B27C7   8B00                   mov     eax, [eax]
004B27C9   8B80B4030000           mov     eax, [eax+$03B4]
004B27CF   BA40000000             mov     edx, $00000040
004B27D4   E8A7B1F8FF             call    0043D980
004B27D9   59                     pop     ecx
004B27DA   59                     pop     ecx
004B27DB   5D                     pop     ebp
004B27DC   C3                     ret


}
 end ; 

procedure TPasswordForm.FormShow(Sender: TObject);
begin
{
004B2720   55                     push    ebp
004B2721   8BEC                   mov     ebp, esp
004B2723   83C4F8                 add     esp, -$08
004B2726   8955F8                 mov     [ebp-$08], edx
004B2729   8945FC                 mov     [ebp-$04], eax
004B272C   E82F82FFFF             call    004AA960
004B2731   84C0                   test    al, al
004B2733   740E                   jz      004B2743
004B2735   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004B273A   8B00                   mov     eax, [eax]
004B273C   E893F0FDFF             call    004917D4
004B2741   EB18                   jmp     004B275B
004B2743   6A40                   push    $40

* Possible String Reference to: "Info"
|
004B2745   B960274B00             mov     ecx, $004B2760

* Possible String Reference to: "This is an registered feature only."
|
004B274A   BA68274B00             mov     edx, $004B2768
004B274F   A1B4CE4C00             mov     eax, dword ptr [$4CCEB4]
004B2754   8B00                   mov     eax, [eax]
004B2756   E825C4F9FF             call    0044EB80
004B275B   59                     pop     ecx
004B275C   59                     pop     ecx
004B275D   5D                     pop     ebp
004B275E   C3                     ret


}
 end ; 

end.
