getpasswordu.pas

来自「Delphi basic program. Basic programing」· PAS 代码 · 共 54 行

unit GetPasswordU;

interface

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

type
  TGetPasswordForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;

  private

    { Private declarations }
  public

    { Public declarations }
  end;

var
  GetPasswordForm: TGetPasswordForm;
  function GetPassWord(Password:PChar):Boolean;export;

implementation


{$R *.dfm}
function GetPassWord(Password:PChar):Boolean;
    var
    GetPasswordForm: TGetPasswordForm;
begin
    Result := False;
    GetPasswordForm := TGetPasswordForm.Create(Application);
    try
      with GetPasswordForm do
        if ShowModal =mrOK then
          if UpperCase (Edit1.Text) <> StrPas(StrUpper(Password)) then
            messageDlg('密码不正确！        ',mtWarning,[mbOK],0)
          else
            Result := True;
    finally
        GetPasswordForm.Free;
    end;
end;  



end.