Ввод ключа!

[}{oт@бь)ч]

Здраствуйте!
Хочу написать к програмке лицензию тоесть при при открытии выдает форму!
В форме поле для ввода и кнопка так вот требуется чтобы
в поле ввода вели пароль и нажали на кнопку но если пароль неправельный то вылетает форма неправельный пароль!
А если пароль правельный то переходит на мою форму!

[KORN]

сделай главной формой форму регистрации, при загрузке она проверяет зарегана прога или нет если да, то сама не показывается а переходит на другую форму

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

либо ваще можешь использовать InputBox и не заморачиваться
если будешь его использовать то на FormCreate вызываешь его и если пароль не правильный то выводишь messagebox и закрываешь программу

хранить инфу о регистрации можно в реестре

[goblinyara]

if правильный_пароль then 
  FormRigth.Show
else
  ShowMessage('Неправильный пароль!!!');

[}{oт@бь)ч]

Чтото я непойму можно както програмным кодом написать!?
Вот например пароль такой будет 12312
Если он правельный при нажатии на кнопку перехожу на другую форму если неправельный то выдается сообшение неправельный пароль)!

[goblinyara]

procedure TForm1.FormCreate(Sender: TObject);
begin
if InputBox('Ввод пароля','Введите сюда пароль','')<>password then
begin
  ShowMessage('Неправильный пароль. Программа сейчас будет закрыта.');
  Application.Terminate;
end;

З.Ы. по идее, закрываться должна и на Form1.Close, вот только что-то сейчас проверял в 2009 RAD Studio - не получилось, так что Application.Terminate использовал....

[}{oт@бь)ч]

Блин народ я же дал конкретный пароль его в коде нету даже яж новичок и мне это понять сложно
куда это пароль вводить я незнаю!
12312 вот пароль к примеру но в вашем коде я его неувидел)
иВы зделали помойму неправельно !
У меня уже есть готовая форма ввода пароля мне надо лишь чтобы в нее ввели правельный пароль (12312) и нажали на кнопку активировать и если они правильный пароль ввели то переходит на следуюшую форум form2 а если неправельно ввели пароль то выводит сообшение КОД НЕДЕЙСТВИТЕЛЕН
!!!

[KORN]

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

[goblinyara]

хмм... во-первых, в том коде есть пароль, и он задан переменной password... ну а уж если есть форма, то тогда можно так(при условии, что у вас пароль вводится в Edit1):

....
//это присвоение можно сделать в Form.OnCreate
password:='12312';
....
//этот код в обработчике нажатия, допустим, на клавишу Button1
if Edit1.Text = password then 
  FormRigth.Show //здесь показываете нужную вам форму, я для примера указал FormRigth... надеюсь, что означает обработчик Show вы всё таки сами догадаетесь:)
else
  ShowMessage('Неправильный пароль!!!');

З.Ы. KORN, поддерживаю, и думаю, тему можно уже б и закрыть, потому что я уже по полочкам всё разжевал и в рот положил

[DeKot]

Делаем так - бросаем на форму Label, Edit и кнопку, примерно следующим видом :



Затем в программе вставлям обработчик для кнопки :

procedure TForm1.ButtStartClick(Sender: TObject);
begin
 if Form1.Edit1.Text = 'HW2QRD' then  // вместо HW2QRD запиши свой пароль - 123456
 begin
 //  здесь при  правильном  пароле  
 //  запускаешь  свою  программу
 end
 else
 begin
    Application.MessageBox(PChar('Пароль не верен.Повторите ввод и нажмите ОК'),
                             PChar('ИМЯ  ПРОГРАММЫ'),
                             MB_ICONQUESTION+MB_OK);
    // Form1.Close  // если активировать эту строку и вместо 'Повторите ввод и нажмите ОК'
	// записать 'Программа  будет закрыта.Нажмите ОК', приложение закроется
  end;

Фокус должен быть на Edit.
Можно добавить счетчик количества неправильных вводов пароля и потом
закрывать прогу. Вобщем далле варианты на свой вкус.
Усё!

[KORN]

поддерживаю, закрыто