|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
04.05.2009, 20:38 | #11 |
Delphi 7
Форумчанин
Регистрация: 10.02.2009
Сообщений: 354
|
KORN жесть, убираю begin и баг.
попробовал и так else begin Reg.CloseKey; и так else Reg.CloseKey; if ... как всегда баг. находит первый а на втором если нет ключа не ищет. просто баг. блин уже незнаю куда деваться ну помоги ж. умоляю. я юмора не пойму. для меня все это как загадка.
Дайте мне власть и я переверну ваш мир!...
Последний раз редактировалось KWN, lnc; 04.05.2009 в 20:42. |
05.05.2009, 04:34 | #12 |
Банхаммер
Участник клуба
Регистрация: 17.02.2007
Сообщений: 1,754
|
ну ты даешь... я ж писал тебе что бы ты сразу проверял 2 значения и ключ и его значение...
Код:
если для тебя это все как загадка, то либо не берись за это, либо учись... |
05.05.2009, 20:07 | #13 |
Delphi 7
Форумчанин
Регистрация: 10.02.2009
Сообщений: 354
|
KORN сделал как ты и сказал... неПолучилось... ВЫЛЕТАЕТ БАГ скинь ради бога исходник KurtWagner@mail.ru буду очень признателен!
else begin Reg.KeyExists('\Software\Folder'); Reg.OpenKey('InstallDir', true) end;
Дайте мне власть и я переверну ваш мир!...
|
06.05.2009, 11:11 | #14 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
06.05.2009, 15:16 | #15 |
Delphi 7
Форумчанин
Регистрация: 10.02.2009
Сообщений: 354
|
Stilet Слава богу! Вообщем идея такова...
Прога ищет в рестре! 2-ва ключа. 1-ый ключ скажем Reg.KeyExists('\Software\File'); Reg.OpenKey('\Software\File', true) параметр у него InstallFile если ненаходит в первом, этот параметр тогда переходит ко 2-му Reg.KeyExists('\Software\Folder'); Reg.OpenKey('\Software\Folder', true) с Параметром InstallFolder после того как найдет из одного из них верный параметр прога просто извлекает эго в Edit1.Text := Reg.ReadString('Найденый параметр') желательно по такому коду т.к. я под него уже нахимичил продолжение просто хочу разобраться почему не тянет?!
Дайте мне власть и я переверну ваш мир!...
|
06.05.2009, 15:56 | #16 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ну вот смотри:
Код:
I'm learning to live...
|
06.05.2009, 17:06 | #17 |
Delphi 7
Форумчанин
Регистрация: 10.02.2009
Сообщений: 354
|
Stilet Неработает!
по твоему коду несработало вообще... а если сделать поправку скажем if not t.OpenKey('\Control Panel\Current',false) then begin if not t.OpenKey('\Control Panel\Colors',false) then s:=t.ReadString('ответ Colors') end else s:=t.ReadString('Ответ Current'); То он хаходит только Ответ Current что за пииииииии.....
Дайте мне власть и я переверну ваш мир!...
|
08.05.2009, 00:40 | #18 |
Delphi 7
Форумчанин
Регистрация: 10.02.2009
Сообщений: 354
|
Stilet я как понел НЕРЕАЛЬНО??? хотя врятли...
Дайте мне власть и я переверну ваш мир!...
|
09.05.2009, 01:16 | #20 |
Delphi 7
Форумчанин
Регистрация: 10.02.2009
Сообщений: 354
|
KORN я сделал даже по примеру Stilet и то не вышло! если ты считаешь что я неправ или как ты уже не раз говорил не думаю так скинь если не сложно свой пример в исходнике докажи обратное на словах мы все герои!
Дайте мне власть и я переверну ваш мир!...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите прочитать reg файл в RichEdit или ListBox | inndim | Общие вопросы Delphi | 4 | 09.06.2008 12:56 |