Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поиск в реестре / 7 сообщений из 7, страница 1 из 1
11.06.2010, 13:26
    #36682719
diesel_216
diesel_216
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск в реестре
Здравствуйте! Существуют ли функции поиска информации в реестре? Например, нужно узнать зарегистрирована ли библиотека в реестре. VFP5.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.06.2010, 13:44
    #36682770
AmKad
AmKad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск в реестре
diesel_216,

foxclub.ru
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.06.2010, 14:08
    #36682864
прошелмимо
прошелмимо
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск в реестре
ох этот фоксклаб

введите в командном окне
команды
Код: plaintext
1.
2.
3.
help Read and Write Visual FoxPro Registry Values Sample

modi command (HOME( 2 )+"classes\registry.prg")

в солюшинах есть пример:
WinApi\Read and Write

счаз еще альтенативку подкину
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.06.2010, 14:27
    #36682936
diesel_216
diesel_216
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск в реестре
AmKad, Прошелмимо

Спасибо. Буду пробовать. О результатах сообщу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.06.2010, 14:38
    #36682970
прошелмимо
прошелмимо
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск в реестре
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Set Path To (HOME()+"ffc\")

#include registry.h

Local loReg

loReg = NewObject("Registry", HOME() + "ffc\registry.vcx")

Text to lcRegPath NOSHOW TEXTMERGE PRETEXT  15 
    Software\Microsoft\VisualFoxPro\<<TRANSFORM(VERSION( 5 )/ 100 )>>. 0 \Options\
EndText 
? lcRegPath

IF loReg.OpenKey(lcRegPath, HKEY_CURRENT_USER)=ERROR_SUCCESS
   Local lcValue 	
   loReg.GetRegKey("_BEAUTIFY", @lcValue, lcRegPath, HKEY_CURRENT_USER)
   ? lcValue
   loReg.GetRegKey("CallstackFontName", @lcValue, lcRegPath, HKEY_CURRENT_USER)
   ? lcValue
endif
    

return


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

попадалась на потейте красивая библиотечка - пока не могу найти.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.06.2010, 15:13
    #36683095
diesel_216
diesel_216
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск в реестре
прошелмимо,

Спасибо!
Я так понял, что Вы в этом примере читаете в lcValue значения параметров _BEAUTIFY и CallstackFontName.

Я для своей задачи(определить зарегистрирована ли библиотека в реестре) обошелся вот этим - modi command (HOME(2)+"classes\registry.prg") и его функцией IsKey()

Как я понял нужно выполнить следующий код:

#DEFINE HKEY_CLASSES_ROOT -2147483648 && BITSET(0,31)

regfile = HOME(2)+"clas\registry.prg"
SET PROCEDURE TO (m.regfile) ADDITIVE
oReg = CreateObject("FoxReg")
m.nErrNum = oReg.IsKey('LibDll.LibDllcopy',HKEY_CLASSES_ROOT)
?m.nErrNum

* m.nErrNum = .T. - библиотека зарегистрирована
* m.nErrNum = .F. - библиотека не зарегистрирована

Правильно ли я понял?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.06.2010, 15:24
    #36683131
прошелмимо
прошелмимо
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск в реестре
вроде кузяво.

только проверяйте oReg на то, что он объект.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поиск в реестре / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 439ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1585200]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 26ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 334ms
total:  439ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]