upassword.pas

来自「delphi com addin」· PAS 代码 · 共 43 行

unit UPassWord;

interface

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

type
  TfmPassword = class(TForm)
    edPassword: TEdit;
    Label1: TLabel;
    btnOk: TButton;
    Button2: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
function GetPassword : String;
var
  fmPassword: TfmPassword;

implementation

{$R *.DFM}

function GetPassword : String;
begin
  fmPassword := TfmPassword.Create(nil);
  try
    if fmPassword.ShowModal = mrOk then
      Result := fmPassword.edPassword.Text
    else
      Result := '';
  finally
    fmPassword.Free;
  end;
end;

end.