Serial Key - Общие вопросы Delphi

L.Morgan · 12.04.2009, 20:27

Прошу мне помочь в решении такой задачи. У меня есть программа я хочу сделать в ней что-то типа серийного номера. Что бы вводя в Еdit код, активиривались поля типа combo box! Очень срочно надо...

Манжосов Денис :) · 12.04.2009, 20:31

есть константа

Код:

const
  Serial = 'ABCD-EFGH-IKLM_NOPR';

И потом проверять

Код:

if Edit1.Text = Serial then
  ComboBox1.Enabled := true; {Активировать ComboBox}

L.Morgan · 12.04.2009, 21:00

Что в button1 писать ?

Сорри тупану

Selestis · 12.04.2009, 22:02

Вышенаписанный код вставь в процедуру Edit1Change

L.Morgan · 13.04.2009, 09:27

Чото я начал тупить, дайте процедуру для Button, или приведити пример исходником (1 Button, 2 comboBox-a которые должны набыть значения Enabled=True при введения Key, 1 Edit Key)
P.S: Без критики, я токо начинаю...

Поможете ?

beemoto · 14.04.2009, 15:36

тебе написали:
вставь этот код в кнопку:

Код:

if Edit1.Text = Serial then
  ComboBox1.Enabled := true; {Активировать ComboBox}

DeKot · 14.04.2009, 16:03

Можно добавить :

Код:

else Form1.Close;

т.е. не ввели правильный Key - приложение закрылось.

KORN · 14.04.2009, 16:40

Цитата:

Сообщение от Манжосов Денис :)

есть константа

Код:

const
  Serial = 'ABCD-EFGH-IKLM_NOPR';

И потом проверять

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

L.Morgan · 14.04.2009, 18:05

Всем большое спасибо, выручили, уже все понял, просто у меня была ошибка в коде

12.04.2009, 20:27	#1
L.Morgan Заблокирован Регистрация: 15.01.2009 Сообщений: 12	Serial Key Прошу мне помочь в решении такой задачи. У меня есть программа я хочу сделать в ней что-то типа серийного номера. Что бы вводя в Еdit код, активиривались поля типа combo box! Очень срочно надо...

12.04.2009, 20:31	#2
Манжосов Денис :) Участник клуба Регистрация: 29.01.2008 Сообщений: 1,039	есть константа Код: `const Serial = 'ABCD-EFGH-IKLM_NOPR';` И потом проверять Код: `if Edit1.Text = Serial then ComboBox1.Enabled := true; {Активировать ComboBox}`

12.04.2009, 21:00	#3
L.Morgan Заблокирован Регистрация: 15.01.2009 Сообщений: 12	Что в button1 писать ? Сорри тупану Последний раз редактировалось Stilet; 13.04.2009 в 17:09.

12.04.2009, 22:02	#4
Selestis Форумчанин Регистрация: 21.01.2009 Сообщений: 719	Вышенаписанный код вставь в процедуру Edit1Change Изобретатель велосипедов

13.04.2009, 09:27	#5
L.Morgan Заблокирован Регистрация: 15.01.2009 Сообщений: 12	Чото я начал тупить, дайте процедуру для Button, или приведити пример исходником (1 Button, 2 comboBox-a которые должны набыть значения Enabled=True при введения Key, 1 Edit Key) P.S: Без критики, я токо начинаю... Поможете ? Последний раз редактировалось Stilet; 13.04.2009 в 17:09.

14.04.2009, 15:36	#6
beemoto Форумчанин Регистрация: 11.04.2009 Сообщений: 277	тебе написали: вставь этот код в кнопку: Код: `if Edit1.Text = Serial then ComboBox1.Enabled := true; {Активировать ComboBox}`

14.04.2009, 16:03	#7
DeKot Участник клуба Регистрация: 12.08.2008 Сообщений: 1,977	Можно добавить : Код: `else Form1.Close;` т.е. не ввели правильный Key - приложение закрылось. И не сомневайся даже ... отдых - кайф, работа - лажа!

14.04.2009, 18:05	#9
L.Morgan Заблокирован Регистрация: 15.01.2009 Сообщений: 12	Всем большое спасибо, выручили, уже все понял, просто у меня была ошибка в коде

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
violation of FOREIGN KEY	KiSH333	БД в Delphi	1	17.02.2009 16:05
key logger	Terran	Общие вопросы Delphi	1	30.01.2008 20:06