unit MiMa;

interface

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

type
  TmimaFrm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mimaFrm: TmimaFrm;

implementation

{$R *.dfm}

procedure TmimaFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   mimaFrm:=nil ;
end;

procedure TmimaFrm.SpeedButton2Click(Sender: TObject);
begin
      close;
end;

procedure TmimaFrm.SpeedButton1Click(Sender: TObject);
var
   systemini :TIniFile ;
   pass :String ;
begin
   systemini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'system.ini');
   pass:=systemini.Readstring('user','pass','');
   if (trim(Edit1.Text)<> pass ) then
        showmessage('輸入的原始密碼錯誤!請重新輸入!')
   else
       if (trim(Edit2.Text)<>trim(Edit3.Text))  then showmessage('新密碼不一致,請確認密碼!')
           else begin
           systemini.writestring('user','pass',trim(edit2.Text)) ;
           showmessage('密碼修改成功!') ;
           close;
           end;
end;

procedure TmimaFrm.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13  then SpeedButton1.Click;
end;

end.