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

Previous  Top  Next

    
 

 

Code:

{

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.

 

©Drkb::04037