Программа под паролем

[misher]

Можно использовать ModalResult, значение которого возвращает ShowModal

а поподробнее про эту процедуру?

[Arigato]

Модальная форма может возвращать результат (целое число). К примеру, диалоги типа MessageDlg возвращают таким образом нажатую кнопку (mrOk, mrCancel и т.п.). Можно из своей формы возвращать результат mrOk, если пароль введен и mrCancel, если закрыли форму или нажали "Отмена". А в вызывающей процедуре делать проверку результата.

[glGizma]

[MyPass.dpr] =
program MyPass;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Form2.Show;
  Application.Run;
end.
{********************************} // END;
[Unit1.pas] =
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm:=false; //не отображать главное окно приложения
end;

end.
{********************************} // END;
[Unit2.pas] =
unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Image1: TImage;
    Label1: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Form2.ModalResult=mrOk then //если пользователь нажал на кнопку Ok, то
   if Edit1.Text='123' then //если набран необходимый пароль, то
      begin
         Form1.Show; //показать главное окно
         Exit; //выйти из этой процедуры
      end;
Application.Terminate;//если все вышеуказанные условия не выполняются, то остановить программу
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
Form2.ModalResult:=mrOk; //результат работы этого окна
Close; //закрыть это окно
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
Form2.ModalResult:=mrCancel; //результат работы этого окна
Close; //закрыть это окно
end;

end.

[misher]

спасибо, за код!

[glGizma]

Можно ещё упростить Беz использования form2, можно ещё приплести inifile,

[misher]

и как это будет?

[glGizma]

Вот небольшой пример, я так использовал. Не_много погодя напишу ещё круче пример, с кодировко (смепа пароля.ini)

procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.Height := 120 ;
  form1.Width  := 225 ;
end;

procedure TForm1.sButton1Click(Sender: TObject);
begin
if Form1.ModalResult=mrOk then //если пользователь нажал на кнопку Ok, то
   if sEdit1.Text='123' then //если набран необходимый пароль, то
      begin
         redacktorr;
         //Form1.Show; //показать главное окно
         //Exit; //выйти из этой процедуры
      end;
      sEdit1.Text:='';
end;

procedure TForm1.redacktorr;
begin
    Form1.Width := 377; // Расширяем форму (дополнительные настройки)
end;