реестр

[BOO]

Мне много чего надо узнать про работу с реестром:
1) как считывать , сохранять записи не спомощью savesetting (в любое место реестра)
2)где прописать чтобы моей прогой открывался файл с расширением *.dck
3)че надо зделать в проге что бы она открывала этот файл!

[Demonx]

1) ответ

[Kostyan]

Миллион раз обсуждалось, используй поиск.

[BOO]

Как ты себе представляешь записать ключ "path" = "C:\" допустим сюда:
...software/Redactror
ведь можно лишь в :
VB and ьшскщыщае\VBA Program Settings\........

[BOO]

ДА, Забыл может я совсем тугой , но у меня поиск ничего не находит

[Kostyan]

Вот тебе пример регистрации своего расширения в реестре (твоя прога будет его открывать):

Код: Выделить всё

Dim sKeyName As String
Dim sKeyValue As String
Dim ret As Long
Dim lphKey As Long, lphSubKey As Long

'Создание ключа с названием программы.
sKeyName = ".расширение файла"
sKeyValue = "название программы"
Call RegCreateKey(HKEY_CLASSES_ROOT, sKeyName, lphKey)
Call RegSetValue(lphKey, "", REG_SZ, sKeyValue, 0&)
Call RegCloseKey(lphKey)

'Коммандная строка
sKeyName = "название программы"
sKeyValue = App.Path & "\" & App.EXEName & ".exe %1"
Call RegCreateKey(HKEY_CLASSES_ROOT, sKeyName, lphKey)
Call RegSetValue(lphKey, "", REG_SZ, "Описание типа", 0&)
Call RegSetValueEx(lphKey, "EditFlags", ByVal 0, REG_BINARY, 0, 4)

Call RegSetValue(lphKey, "shell", REG_SZ, "Открыть", MAX_PATH)
Call RegOpenKey(lphKey, "shell", lphSubKey)
Call RegSetValue(lphSubKey, "Open", REG_SZ, "Открыть", MAX_PATH)
Call RegOpenKey(lphSubKey, "Open", lphSubKey)
Call RegSetValue(lphSubKey, "command", REG_SZ, sKeyValue, MAX_PATH)
Call RegCloseKey(lphSubKey)

'Ссылка на иконку
sKeyValue = App.Path & "\" & App.EXEName & ".exe,0" 'Иконка программы
'sKeyValue = Путь к значку 'Другая иконка
Call RegSetValue(lphKey, "DefaultIcon", REG_SZ, sKeyValue, MAX_PATH)
Call RegCloseKey(lphKey)


Тут и ответ на первый вопрос.

3) В проге имя файла, на котором щелкнули 2 раза, получишь из функции Command$

Я надеюсь сам разберешься где найти декларации API-функций и констант (Regxxx)

[v-adix]

1) юзай registry.zip
savestring HKEY_LOCAL_MACHINE, "Software\Redactor", "value name", "value data"
2) зайди в My Computer -> Tools -> Folder Settings -> File Types. там добавь свой тип файла с желаемым расширением. потом когда нажмёшь ОК помотри изменения реестра в HKEY_CLASSES_ROOT\.xxx . Где xxx- твоё расширение. потом с помощью registry.bas вноси эти изменения в реестр при установке своей программы.
3)

Private Sub Form_Load()
dim cmd as string
cmd = command
if right(cmd,1) = """" then
cmd = mid(cmd,2, len(cmd)-2)
end if
end sub

теперь cmd - параметры командной строки. скорее всего там будет храниться имя открываемого файла.

[BOO]

Огромное спасибо в ХП вроде работает!