пароль

← →
diks © (2003-01-11 13:57) [0]

как сделать чтобы при запуске программы появлялась форма пароля а после правильного ввода появлялась вторая.

← →
gsu © (2003-01-11 14:15) [1]

Появлялась вторая прога или форма ?

Можно в 1 проге вывести
форму с паролем проверить правильность, и при верном вводе вывести либо вторую форму (Show, ShowModal), либо прогу (ShellExecute, ... ), но во 2 случае прогу любой дурак и так запустит

← →
Амангос (2003-01-11 14:20) [2]

В файле проекта создаешь форму с паролем, и запускаешь его до запуска главной формы. Если пароль будет правильным то уничтожаешь форму с паролем и дальше запускаешь гланую форму

← →
TTCustomDelphiMaster © (2003-01-11 14:20) [3]

program Project1;

uses
Forms, Controls,
Unit1 in "Unit1.pas" {Form1},
Unit2 in "Unit2.pas" {TPasswordForm};

{$R *.RES}

begin
Application.Initialize;
with TPasswordForm.Create(Application) do
begin
if not ((ShowModal = mrOk) and (CheckPassword(edPasword.Text))) then
begin
Free;
Exit;
end;
Free;
end;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

>> TTCustomDelphiMaster ©
Смотри не запугай молодого человека, ведь он так и не сказал форма или прога, а русский язык великий и могучий

пароль Найти похожие ветки