Как сделать?

[Serge_Bliznykov]

воспользовался поиском по форуму.

посмотрите вот эти темы:
Программа под паролем
(особенно посты #13 и #17)

ну и тут тоже:
Пароль для входа в программу

[cargo29]

Сообщение от MyLastHit

Тебе обязательно модальное сообщение? Если нет, сам создай пустую форму. Сделай ее главной Project-Options-MainForm-твоя форма.
Кинь на форму edit и Button.
На Button OnClick:

pass:='пароль';
if (pos(edit1.text,pass)<>0) and (Length(Edit1.text)=Length(pass)) then
{тут твои действия если пароль введен правильно(пароль храниться в перемнной Pass(String тип))}

а вообще про мессаги почитать тут можно:
http://www.delphibasics.ru/ShowMessage.php
Пункт "Похожие команды"

вот я это тоже пробывал но увы не то, мн надо запускаешь програму вылазит сначало соощение в котором надо ввести пароль после правильно вода уже появляеться сама програма то есть форма

[DeKot]

Ладно, вот "рыба" , без комментариев - там и начинающему все должно быть понятно.

[MyLastHit]

вот я это тоже пробывал но увы не то, мн надо запускаешь програму вылазит сначало соощение в котором надо ввести пароль после правильно вода уже появляеться сама програма то есть форма

О_о
Моделирую ситуацию - У тебя есть форма главная Form1. Тебе ее надо защитить паролем.
Твои действия:
1)Создаешь форму Form2
2)Ложишь на нее Edit и Button
3)Project-Options-MainForm-Form2
4)В онкриэйт Form2 пишешь:

pass:='пароль';
if (pos(edit1.text,pass)<>0) and (Length(Edit1.text)=Length(pass)) then
begin
  form1.show;
  form2.hide;
end
else
showmessage('Не верный пароль');

Плюсы метода - можно оформить окно авторизации как душе угодно.

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

[unbanned]

если важен именно результат, а не то чтобы сделать самому, можно скачать готовый компонент что то типо этого

[cargo29]

var
  Form1: TForm1;
    value : string;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
repeat
value := InputBox('Внимание', 'Введите пароль', 'пароль');
until value='Ваш пароль';
showmessage('Пароль правильный');

end;

[cargo29]

Сообщение от MyLastHit

О_о
Моделирую ситуацию - У тебя есть форма главная Form1. Тебе ее надо защитить паролем.
Твои действия:
1)Создаешь форму Form2
2)Ложишь на нее Edit и Button
3)Project-Options-MainForm-Form2
4)В онкриэйт Form2 пишешь:

pass:='пароль';
if (pos(edit1.text,pass)<>0) and (Length(Edit1.text)=Length(pass)) then
begin
  form1.show;
  form2.hide;
end
else
showmessage('Не верный пароль');

Плюсы метода - можно оформить окно авторизации как душе угодно.

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

можешь эту спрочку обьяснить что там написано

if (pos(edit1.text,pass)<>0) and (Length(Edit1.text)=Length(pass)) then

я понимаю Length это ты считываешь сколько символов в едит и в самом пароле сравниваешь а вот это что (pos(edit1.text,pass)<>0)

[MyLastHit]

1) необходимое условие проверки пароля: позиция edit1.text в pass должна быть не равна нулю, и длина пароля введенного в edit1.text равна pass.
pos(edit1.text,pass) - вернет положение строки edit1.text в строке pass. Тоесть:
позиция "вет" в слове "привет" = 4
позиция "пар" в слове "пароль" = 1
тоесть если позиция неравна 0 - то пароль частично верный. Теперь добьем его до конца - проверим длину pass и edit1.text. Если она равна и позиция edit1.text в pass неравна 0 то пароль верен.

[Valio]

И зачем это? Почемуб сразу не сравнить две строки?

[MyLastHit]

Valio - покажи как сравнить их