Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Проблема среестром...

Автор: Dredina 16.6.2006, 17:18

Как мне создать в реесьре ключ типа: REG_DWORD// с переменной 0

Автор: Naghual 16.6.2006, 17:26

http://vingrad.ru/VB-VB-002867

Автор: Dredina 16.6.2006, 17:57

Д!ък ето для обычных текстовых переменных а мне, мне надо создать с типом DWORD =/

Автор: Naghual 16.6.2006, 18:05

Кто тебе это сказал???
Ты внимательно код изучи. Особенно Public Enum RegTypes.

Автор: Dredina 16.6.2006, 18:35

Цитата

Примечание: Эти функции работают только с текстовыми ключами (те, что в RegEdit'e помечены символом 'ab').

Ето было написано в конце того примера что ты мне дал..... Теперь нашол...

Токо я не пойму куда его вписать smile

Автор: Naghual 16.6.2006, 18:38

RegSetValueEx
4 параметр

Добавлено @ 18:39
А примечание относилось к написаным там Функциям, но не к функциям АПИ.

Автор: Dredina 16.6.2006, 18:42

Я не понял где прописовать адрес в реестре... smile

Можете есле не трудно примерчик? smile

Автор: Naghual 16.6.2006, 19:57

Цитата(Dredina @ 16.6.2006, 18:42

)

Я не понял где прописовать адрес в реестре...

я не понял вопроса. Ты не знаеш куда в реестре сохранять данные???

Автор: Dredina 16.6.2006, 20:00

Гг)) Я то знаю, я не знаю где ето прописать может мне адрес в реестре дать покажеш как бо я в API не сильно smile

...

Или ето можна зделать без API?

Автор: Naghual 16.6.2006, 20:12

Код


Public Sub RegSetValue(Root As Long, SubKey As String, Key As String, ValueType as RegTypes, Value As Variant)
    Dim hKey As Long, sa As SECURITY_ATTRIBUTES, nDisp As Long
    If Not RegCreateKeyEx(Root, SubKey, 0, vbNull, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, sa, hKey, nDisp) Then
        RegSetValueEx hKey, Key, 0, ValueType, Value, Len(value) + 1
        RegCloseKey hKey
    End If
End Sub

Примерно так. Проверить нет возможности.
Сравни с оригиналом из FAQ и все поймеш.

Автор: Dredina 16.6.2006, 20:20

Вобшем мне надо значение етого ключа поменять на 1, и обратно на 0..

Код


HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr

А за етот код шас проверю...

Автор: Naghual 16.6.2006, 20:24

Код


RegSetValue(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", RegDword, 0)

Код


RegSetValue(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", RegDword, 1)

Автор: Dredina 16.6.2006, 20:27

Огромное спасибо!

Автор: Mephisto 29.6.2006, 13:23

Люди, плз, давайте будем вставлять то, к чему пришли. Облом обсасывать одну и ту же тему несколько раз!
Лично меня интересует значение этой .........ой константы RegDword.