Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

пароль [D6, Win95/98]

diks © (2003-01-11 13:57:00)
как сделать чтобы при запуске программы появлялась форма пароля а после правильного ввода появлялась вторая.

gsu (2003-01-11 14:24:00) [1]
>> TTCustomDelphiMaster ©
Смотри не запугай молодого человека, ведь он так и не сказал форма или прога, а русский язык великий и могучий

Амангос (2003-01-11 14:20:00) [2]
В файле проекта создаешь форму с паролем, и запускаешь его до запуска главной формы. Если пароль будет правильным то уничтожаешь форму с паролем и дальше запускаешь гланую форму

TTCustomDelphiMaster (2003-01-11 14:20:00) [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.

gsu (2003-01-11 14:15:00) [4]
Появлялась вторая прога или форма ?

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »