nordk wrote: |
О каком БЭСТе идет речь ? |
grey wrote: |
В общем случае
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders параметр personal |
Code: |
GetRegistry( nHKEYHandle, cKeyName, cEntryName ) |
nordk wrote: |
Виноват
Похоже функции Winreg* отсутствуют в харборе БЭСТа |
Дениска wrote: | ||
Я правильно понял, что функция GetRegistry в БЭСТ-е не работает? А можно ее включить в БЭСТ в ближайших пакетах? Хотя бы в БЭСТ5 для начала ... Или можно другим способом путь до "Моих документов" получить? |
Code: |
#define HKEY_LOCAL_MACHINE 0x80000002 #define HKEY_CLASSES_ROOT 0x80000000 #define HKEY_USERS 0x80000003 #define HKEY_CURRENT_USER 0x80000001 #define HKEY_NO_KEY 0x00000000 #define KEY_READ 0x20019 #define REG_SZ 1 #define REG_DWORD 4 cRegKey:="SOFTWARE\BEST\BEST5\33" hKey := 0 vName:="SP" vtype := 0 vdata := 0 vcbdata := 0 if REGOPENKEYEX(HKEY_LOCAL_MACHINE,cRegKey, 0, KEY_READ, @hKey) != 0 //только на чтение REGQUERYVALUEEX(hKey, vName, 0, @vtype, @vdata, @vcbdata) endif DO CASE CASE vtype == REG_SZ vData := SUBSTR( vData, 1, vcbdata - 1 ) CASE vtype == REG_DWORD vData := BIN2L( vData ) ENDCASE RETURN vData |
Дениска wrote: |
Только в Б4 эти функции не работают, но в данный момент для меня это не принципиально. |
Behemoth wrote: | ||
А мне вот понадобилось. Так как в БЭСТ-4+ получить путь к папке "Мои документы"? Нет, я конечно могу с помощью regedit экспортировать весь раздел, а затем проанализировать текстовый файл. Но как-то это некрасиво. |
grey wrote: |
Еще бы кто-нибудь подсказал, как получить значение возвращаемое функцией |
output generated using printer-friendly topic mod. All times are GMT + 4 Hours