Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Регистрация  (Прочитано 7207 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Drush@
Гость
« : 22-12-2005 15:09 » 

Подскажите как можно сделать что-то подобное регистрации, чтобы призагрузки программы выводилось окно предлагавшее ввести код актавации и при правельном вводе запускалось приложение, а при следующем включении окно активации больше не появлялось?
Записан
zubr
Гость
« Ответ #1 : 22-12-2005 18:21 » 

Я тебе могу дать схему как это сделать, но боюсь это тебе не поможет, а код выкладывать времени нет. Скачай себе FAQ по Delphi, благо их сейчас в сети пруд пруди и найдешь там ответы на твои вопросы. Если в FAQ не найдешь или там что непонятно будет, обращайся, поможем. FAQ можно найти: http://delphiworld.narod.ru/dw.html, http://www.drkb.ru/
Записан
nikedeforest
Команда клуба

ru
Offline Offline
Пол: Мужской

« Ответ #2 : 23-12-2005 09:18 » new

Zubr, неужели все настолько сложно, а нельзя по-простому вывод модального окна в обработчике WM_CREATE или в WM_INITDIALOG. Результаты можно в файл какой-нибудь записать (ну это по-простому, по сложному, можно и в ини файлы толкоать или еще куда).
Так не катит?
Записан

ещё один вопрос ...
zubr
Гость
« Ответ #3 : 23-12-2005 18:58 » 

nikedeforest, да ничего сложного, но человек как я понял начинающий, и дать ему просто схему, боюсь не поможет, а код выкладывать зачем, когда полно подобных примеров в разночисленных FAQ. Cхема же такова:
Код для главной формы:
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
 If {Проверяем реестр, если ключ уже прописан в реестр и правильный} then
 exit
 else
 If {Ключ прописан, но неправильный} then
 ShowMessage('Ключ неверен!');
 Form2:=TForm2.Create(Application);//форма регистрации
 Form2.ShowModal;
end;
Код для окна регистрации:
Код:
procedure TForm2.Button1Click(Sender: TObject);
var
  reg:TRegistry;
  b:boolean;
begin
 b:=False;
 If {ключ правильный} then
 begin
  reg:=TRegistryCreate;
  try
   reg.RootKey:=HKEY_LOCAL_MACHINE;
   If not reg.OpenKey('SOFTWARE\MyProgram', True) then
   begin
    ShowMessage('Ошибка записи в реестр, нужны права администратора!');
    Apllication.Terminate;
   end;
   reg.WriteString('Key', '12345678');
   reg.CloseKey;
   Close;
  finally
   reg.Free;
  end;
 end
 else
 begin
  ShowMessage('Ключ неверен!');
  exit;
 end;
end;
« Последнее редактирование: 20-12-2007 18:00 от Алексей1153++ » Записан
nikedeforest
Команда клуба

ru
Offline Offline
Пол: Мужской

« Ответ #4 : 23-12-2005 19:55 » 

Цитата
да ничего сложного, но человек как я понял начинающий, и дать ему просто схему, боюсь не поможет, а код выкладывать зачем, когда полно подобных примеров в разночисленных FAQ.
Ты прав, извиняюсь, что встрял.
Записан

ещё один вопрос ...
Drush@
Гость
« Ответ #5 : 30-12-2005 12:49 » 

zubr, nikedeforest
Спасибо, очень помогли. С наступающим! Улыбаюсь 
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines