Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 08.02.2009, 04:56   #1
}{oт@бь)ч
Форумчанин
 
Аватар для }{oт@бь)ч
 
Регистрация: 16.10.2008
Сообщений: 104
Сообщение Ввод ключа!

Здраствуйте!
Хочу написать к програмке лицензию тоесть при при открытии выдает форму!
В форме поле для ввода и кнопка так вот требуется чтобы
в поле ввода вели пароль и нажали на кнопку но если пароль неправельный то вылетает форма неправельный пароль!
А если пароль правельный то переходит на мою форму!
}{oт@бь)ч вне форума
Старый 08.02.2009, 06:27   #2
KORN
Банхаммер
Участник клуба
 
Аватар для KORN
 
Регистрация: 17.02.2007
Сообщений: 1,754
По умолчанию

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

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

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

хранить инфу о регистрации можно в реестре
Перед тем как спросить ищи на форуме и в GOOGLE
KORN вне форума
Старый 08.02.2009, 06:28   #3
goblinyara
Форумчанин
 
Аватар для goblinyara
 
Регистрация: 02.01.2009
Сообщений: 340
По умолчанию

Код:
if правильный_пароль then 
  FormRigth.Show
else
  ShowMessage('Неправильный пароль!!!');
DelphiWorld 6. Скачай, поставь, и будет тебе счастье=)
Программирование, как и любовь -- одно слово, за которым скрывается бесконечное множество занятий.
goblinyara вне форума
Старый 08.02.2009, 06:49   #4
}{oт@бь)ч
Форумчанин
 
Аватар для }{oт@бь)ч
 
Регистрация: 16.10.2008
Сообщений: 104
По умолчанию

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

Последний раз редактировалось }{oт@бь)ч; 08.02.2009 в 07:05.
}{oт@бь)ч вне форума
Старый 08.02.2009, 07:08   #5
goblinyara
Форумчанин
 
Аватар для goblinyara
 
Регистрация: 02.01.2009
Сообщений: 340
По умолчанию

Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
if InputBox('Ввод пароля','Введите сюда пароль','')<>password then
begin
  ShowMessage('Неправильный пароль. Программа сейчас будет закрыта.');
  Application.Terminate;
end;
З.Ы. по идее, закрываться должна и на Form1.Close, вот только что-то сейчас проверял в 2009 RAD Studio - не получилось, так что Application.Terminate использовал....
DelphiWorld 6. Скачай, поставь, и будет тебе счастье=)
Программирование, как и любовь -- одно слово, за которым скрывается бесконечное множество занятий.
goblinyara вне форума
Старый 08.02.2009, 07:30   #6
}{oт@бь)ч
Форумчанин
 
Аватар для }{oт@бь)ч
 
Регистрация: 16.10.2008
Сообщений: 104
По умолчанию

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

Последний раз редактировалось }{oт@бь)ч; 08.02.2009 в 07:34.
}{oт@бь)ч вне форума
Старый 08.02.2009, 08:26   #7
KORN
Банхаммер
Участник клуба
 
Аватар для KORN
 
Регистрация: 17.02.2007
Сообщений: 1,754
По умолчанию

1) то что ты новичок, это нас не касается и преимуществ тебе не дает
2) видно что ты сам не хочешь думать вообще когда пишешь прогу, ведь нужно заменить всего лишь одно значение
3) ты хочешь пользоваться всем готовым, что бы только вставить в делфу и все заработало
4) тебе все необходимое для работы уже дали
Перед тем как спросить ищи на форуме и в GOOGLE
KORN вне форума
Старый 08.02.2009, 08:31   #8
goblinyara
Форумчанин
 
Аватар для goblinyara
 
Регистрация: 02.01.2009
Сообщений: 340
По умолчанию

хмм... во-первых, в том коде есть пароль, и он задан переменной password... ну а уж если есть форма, то тогда можно так(при условии, что у вас пароль вводится в Edit1):
Код:
....
//это присвоение можно сделать в Form.OnCreate
password:='12312';
....
//этот код в обработчике нажатия, допустим, на клавишу Button1
if Edit1.Text = password then 
  FormRigth.Show //здесь показываете нужную вам форму, я для примера указал FormRigth... надеюсь, что означает обработчик Show вы всё таки сами догадаетесь:)
else
  ShowMessage('Неправильный пароль!!!');
З.Ы. KORN, поддерживаю, и думаю, тему можно уже б и закрыть, потому что я уже по полочкам всё разжевал и в рот положил
DelphiWorld 6. Скачай, поставь, и будет тебе счастье=)
Программирование, как и любовь -- одно слово, за которым скрывается бесконечное множество занятий.
goblinyara вне форума
Старый 08.02.2009, 10:06   #9
DeKot
Участник клуба
 
Аватар для DeKot
 
Регистрация: 12.08.2008
Сообщений: 1,977
По умолчанию

Делаем так - бросаем на форму 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.
Можно добавить счетчик количества неправильных вводов пароля и потом
закрывать прогу. Вобщем далле варианты на свой вкус.
Усё!
И не сомневайся даже ... отдых - кайф, работа - лажа!
DeKot вне форума
Старый 08.02.2009, 12:11   #10
KORN
Банхаммер
Участник клуба
 
Аватар для KORN
 
Регистрация: 17.02.2007
Сообщений: 1,754
По умолчанию

поддерживаю, закрыто
Перед тем как спросить ищи на форуме и в GOOGLE
KORN вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
вывод первичного ключа ZBoris SQL, базы данных 3 09.02.2009 17:38
Расшифруйте и ответьте на вопрос для ключа КРЭС Dj_Tiger Паскаль, Turbo Pascal, PascalABC.NET 7 17.11.2008 00:56
проблема с определением внешнего ключа! veter_s_morya SQL, базы данных 1 26.06.2008 18:37
Проверка ключа в реестре Marsik Помощь студентам 5 24.04.2008 18:46