Запрос пароля при инициализации приложения

Материал из DRKB


{
Copyright © 1998 by Delphi 4 Developer's Guide - Xavier Pacheco and Steve Teixeira
}

program Initialize;

uses
  Forms,
  Dialogs,
  Controls,
  MainFrm in 'MainFrm.pas' {MainForm};

{$R *.RES}

var
  Password: string;
begin
  if InputQuery('Password', 'Enter your password', PassWord) then
    if Password = 'D5DG' then
    begin
      // Other initialization routines can go here.
      Application.CreateForm(TMainForm, MainForm);
      Application.Run;
    end
    else
      MessageDlg('Incorrect Password, terminating program', mtError, [mbok], 0);
end.


ID: 04037