Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 12, средняя оценка - 4.75
Shur1k_ua
0 / 0 / 0
Регистрация: 01.06.2012
Сообщений: 141
#1

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

07.10.2013, 21:11. Просмотров 2021. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Работа с реестром. Проверка на существования (Delphi):

Проверка существования файла - Delphi
Привет, надо организовать, проверку файлов на существование, путем делфи. Как можно это сделать через массив?. Файлов порядка 300 штук....

Проверка существования потока - Delphi
Пытаюсь сделать динамическое создание нескольких потоков. Суть вот в чем. Программе дается задача, задача направляется в поток. ВОЗМОЖНО,...

Проверка существования записи - Delphi
Доброго времени суток Мне нужно организовать проверку существования записи в файле Если запись существует о выводить соответствующее...

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

Проверка существования файла - Delphi
Немогу разобраться... Есть своя программа, она должна создавать рядом с собой файл (текстовый из МЕМО), создаёт только один раз, при...

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

15
cotseec
Пишу на Delphi...иногда
1402 / 1262 / 174
Регистрация: 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 / 0
Регистрация: 01.06.2012
Сообщений: 141
07.10.2013, 21:17  [ТС] #3
не компилируется. У меня делфи 7
0
cotseec
Пишу на Delphi...иногда
1402 / 1262 / 174
Регистрация: 03.12.2012
Сообщений: 3,914
Записей в блоге: 5
Завершенные тесты: 3
07.10.2013, 21:22 #4
вставка операторных скобок begin....end привела к необъяснимой ошибке
не поверишь, у меня Delphi5 есть, там никаких проблем при вставке операторных скобок не наблюдается
Цитата Сообщение от Shur1k_ua Посмотреть сообщение
не компилируется.
сдается мне у тебя тупой копи паст с моего поста.....
0
Shur1k_ua
0 / 0 / 0
Регистрация: 01.06.2012
Сообщений: 141
07.10.2013, 21:22  [ТС] #5
картинка ошибки
0
Миниатюры
Работа с реестром. Проверка на существования  
cotseec
Пишу на Delphi...иногда
1402 / 1262 / 174
Регистрация: 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 / 0
Регистрация: 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
пофигист широкого профиля
3245 / 2297 / 497
Регистрация: 15.07.2013
Сообщений: 13,547
07.10.2013, 21:32 #8
Я что-то не понимаю? Если ключ удалось открыть, значит программа не установлена и ее надо закрыть?
1
Shur1k_ua
0 / 0 / 0
Регистрация: 01.06.2012
Сообщений: 141
07.10.2013, 21:35  [ТС] #9
всёравно трабл. Приложение запускается

Добавлено через 46 секунд
если ключа не существует, то приложение нужно закрыть. Если существует, то продолжить работу
0
cotseec
Пишу на Delphi...иногда
1402 / 1262 / 174
Регистрация: 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 / 0
Регистрация: 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
пофигист широкого профиля
3245 / 2297 / 497
Регистрация: 15.07.2013
Сообщений: 13,547
07.10.2013, 21:57 #12
Цитата Сообщение от Shur1k_ua Посмотреть сообщение
выпригивает картинка из моего поста више
Попробуй найти в коде тот адрес, который указан в этом сообщении первым. Меню -> Search -> Find Error (или Goto Address).
0
Shur1k_ua
0 / 0 / 0
Регистрация: 01.06.2012
Сообщений: 141
07.10.2013, 22:03  [ТС] #13
вот скрин
0
Миниатюры
Работа с реестром. Проверка на существования  
cotseec
Пишу на Delphi...иногда
1402 / 1262 / 174
Регистрация: 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 / 0
Регистрация: 01.06.2012
Сообщений: 141
07.10.2013, 22:16  [ТС] #15
Спасибо. ошибка пропала))))
0
07.10.2013, 22:16
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.10.2013, 22:16
Привет! Вот еще темы с ответами:

Проверка существования процесса - Delphi
Всем привет,помогите у меня есть программа она запускается нормально, но мне нужно чтоб когда запущена программа Clip Trainer Spy то моя...

Проверка существования INI файла - Delphi
Вот код: if not FileExists('MyScrSaverSetting.ini') then begin with TIniFile.Create(ExtractFilePath(ParamStr(0)) +...

проверка на наличие/существования файлов - Delphi
:) доброго времени суток!!! снова я :D проблема: не работает поиск на существование заранее известных файлов в которых есть перед...

Проверка реальность существования E-mail - Delphi
Можно распарсить строку как делается на сайтах и затем выкидывать окно- введите корректный E-mail, но это неспасет если данный ящик...


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

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

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