Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/12: Рейтинг темы: голосов - 12, средняя оценка - 5.00
Shur1k_ua
0 / 0 / 3
Регистрация: 01.06.2012
Сообщений: 141
1

Работа с реестром. Проверка на существования

07.10.2013, 21:11. Просмотров 2180. Ответов 15
Метки нет (Все метки)

Здравствуйте. Помогите решить трабл. В Креатформе создать проверку на существование ветки в реестре. Если ветки нету, то закрываем приложения. типа вот так,
Delphi
1
2
3
4
5
6
7
8
begin
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_CURRENT_USER;
  If Reg.OpenKey('Software\Testsoft\License\settings\', false) then
    //Ваши действия
  showmessage('Извините. Работа приложения приостановлена! На вашем компьютере,приложение не установленоt');
Application.Terminate;
end;
Добавлено через 28 секунд
Всё равно, если ветка есть, то софт закрывается.

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

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.10.2013, 21:11
Ответы с готовыми решениями:

Проверка существования потока
Пытаюсь сделать динамическое создание нескольких потоков. Суть вот в чем....

Проверка на существования файлов
Проверяю при загрузке программы на существование файла. Но не могу понять как...

Проверка на существования файла
Привет, прошу тапками не швыряться, я новичок, только начал изучение :)...

Проверка существования файла
Привет, надо организовать, проверку файлов на существование, путем делфи. Как...

Проверка существования файла
Немогу разобраться... Есть своя программа, она должна создавать рядом с собой...

15
cotseec
Пишу на Delphi...иногда
1408 / 1267 / 285
Регистрация: 03.12.2012
Сообщений: 3,914
Записей в блоге: 5
Завершенные тесты: 3
07.10.2013, 21:12 2
Delphi
1
2
3
4
5
6
7
...
   If Reg.OpenKey('Software\Testsoft\License\settings\', false) then
   begin
    //Ваши действия
      showmessage('Извините. Работа приложения приостановлена! На вашем компьютере,приложение не  установленоt');
      Application.Terminate;
   end;
0
Shur1k_ua
0 / 0 / 3
Регистрация: 01.06.2012
Сообщений: 141
07.10.2013, 21:17  [ТС] 3
не компилируется. У меня делфи 7
0
cotseec
Пишу на Delphi...иногда
1408 / 1267 / 285
Регистрация: 03.12.2012
Сообщений: 3,914
Записей в блоге: 5
Завершенные тесты: 3
07.10.2013, 21:22 4
вставка операторных скобок begin....end привела к необъяснимой ошибке
не поверишь, у меня Delphi5 есть, там никаких проблем при вставке операторных скобок не наблюдается
Цитата Сообщение от Shur1k_ua Посмотреть сообщение
не компилируется.
сдается мне у тебя тупой копи паст с моего поста.....
0
Shur1k_ua
0 / 0 / 3
Регистрация: 01.06.2012
Сообщений: 141
07.10.2013, 21:22  [ТС] 5
картинка ошибки
0
Миниатюры
Работа с реестром. Проверка на существования  
cotseec
Пишу на Delphi...иногда
1408 / 1267 / 285
Регистрация: 03.12.2012
Сообщений: 3,914
Записей в блоге: 5
Завершенные тесты: 3
07.10.2013, 21:24 6
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
begin
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_CURRENT_USER;
  If Reg.OpenKey('Software\Testsoft\License\settings\', false) then
   begin
    //Ваши действия
  showmessage('Извините. Работа приложения приостановлена! На вашем компьютере,приложение не установленоt');
   Reg.free;
Application.Terminate;
   end;
   Reg.free;
end;
не надо тупо копировать!!!!!!!
0
Shur1k_ua
0 / 0 / 3
Регистрация: 01.06.2012
Сообщений: 141
07.10.2013, 21:25  [ТС] 7
//этап 1


Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
If Reg.OpenKey('Software\Testsoft\License\settings\', false) then
begin
//Ваши действия');
Application.Terminate;
end;


так компилится, но программа запускается

Добавлено через 19 секунд
сек.. щас)))
0
northener
пофигист широкого профиля
3429 / 2328 / 631
Регистрация: 15.07.2013
Сообщений: 13,796
07.10.2013, 21:32 8
Я что-то не понимаю? Если ключ удалось открыть, значит программа не установлена и ее надо закрыть?
1
Shur1k_ua
0 / 0 / 3
Регистрация: 01.06.2012
Сообщений: 141
07.10.2013, 21:35  [ТС] 9
всёравно трабл. Приложение запускается

Добавлено через 46 секунд
если ключа не существует, то приложение нужно закрыть. Если существует, то продолжить работу
0
cotseec
Пишу на Delphi...иногда
1408 / 1267 / 285
Регистрация: 03.12.2012
Сообщений: 3,914
Записей в блоге: 5
Завершенные тесты: 3
07.10.2013, 21:36 10
Цитата Сообщение от northener Посмотреть сообщение
Если ключ удалось открыть, значит программа не установлена и ее надо закрыть?
кстати, верное замечание
Delphi
1
2
3
...
If not Reg.OpenKey('Software\Testsoft\License\settings\', false) then
...
1
Shur1k_ua
0 / 0 / 3
Регистрация: 01.06.2012
Сообщений: 141
07.10.2013, 21:44  [ТС] 11
Цитата Сообщение от cotseec Посмотреть сообщение
кстати, верное замечание
Delphi
1
2
3
...
If not Reg.OpenKey('Software\Testsoft\License\settings\', false) then
...
заработало)))) Но после предупреждения, мол программа не установлена, выпригивает картинка из моего поста више

Добавлено через 54 секунды
5 пост
0
northener
пофигист широкого профиля
3429 / 2328 / 631
Регистрация: 15.07.2013
Сообщений: 13,796
07.10.2013, 21:57 12
Цитата Сообщение от Shur1k_ua Посмотреть сообщение
выпригивает картинка из моего поста више
Попробуй найти в коде тот адрес, который указан в этом сообщении первым. Меню -> Search -> Find Error (или Goto Address).
0
Shur1k_ua
0 / 0 / 3
Регистрация: 01.06.2012
Сообщений: 141
07.10.2013, 22:03  [ТС] 13
вот скрин
0
Миниатюры
Работа с реестром. Проверка на существования  
cotseec
Пишу на Delphi...иногда
1408 / 1267 / 285
Регистрация: 03.12.2012
Сообщений: 3,914
Записей в блоге: 5
Завершенные тесты: 3
07.10.2013, 22:14 14
обращение к несуществующему объекту, так без ошибок
Delphi
1
2
3
4
5
6
7
8
9
10
11
begin
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_CURRENT_USER;
  If not Reg.OpenKey('Software\Testsoft\License\settings\', false) then
  begin
    Reg.Free;
    //Г‚Г*ГёГЁ äåéñòâèÿ
    showmessage('ÈçâèГ*ГЁГІГҐ. ГђГ*áîòГ* ïðèëîæåГ*ГЁГї ïðèîñòГ*Г*îâëåГ*Г*! ГЌГ* ГўГ*ГёГҐГ¬ êîìïüþòåðå,ïðèëîæåГ*ГЁГҐ Г*ГҐ ГіГ±ГІГ*Г*îâëåГ*Г®t');
    Application.Terminate;
  end else Reg.Free;
end;
2
Вложения
Тип файла: zip Test32.zip (206.1 Кб, 11 просмотров)
Shur1k_ua
0 / 0 / 3
Регистрация: 01.06.2012
Сообщений: 141
07.10.2013, 22:16  [ТС] 15
Спасибо. ошибка пропала))))
0
cotseec
Пишу на Delphi...иногда
1408 / 1267 / 285
Регистрация: 03.12.2012
Сообщений: 3,914
Записей в блоге: 5
Завершенные тесты: 3
07.10.2013, 22:20 16
Цитата Сообщение от Shur1k_ua Посмотреть сообщение
Вобщем если этого файла нету, то не создавать.
Delphi
1
2
3
...
   if not FileExists('полный путь к файлу с именем файла') then// если файл не существует, то
....
1
07.10.2013, 22:20
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.10.2013, 22:20

Проверка существования процесса
Всем привет,помогите у меня есть программа она запускается нормально, но мне...

Проверка существования записи
Доброго времени суток Мне нужно организовать проверку существования записи в...

Проверка на существования форм
Добрый день У меня на главной форме, меню программы с 7 вкладками, каждая...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
16
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru