VBNet - Форум - проверка ключа в реестре

Вопрос: проверка ключа в реестре Добавлено: 10.02.11 05:28

Автор вопроса: QweЯty

как сие организовать?
ключ:

Dim regKey As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run\TestProg")

любой if ругается что нельзя boolean использовать
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| Цитата \| #1	Добавлено: 10.02.11 09:48
	Как вариант: public string[] GetSubKeyNames() Member of Microsoft.Win32.RegistryKey Summary: Retrieves an array of strings that contains all the subkey names. Returns: An array of strings that contains the names of the subkeys for the current key. Получаешь строковый массив имен ключей и в нем проверяешь наличие необходимого. Ответить

Номер ответа: 2 Автор ответа: iprog Вопросов: 26 Ответов: 110	Web-сайт: usprogs.atheo-club.ru Профиль \| Цитата \| #2	Добавлено: 10.02.11 18:13
	...Run\TestProg: TestProg - это параметр или ключ (то бишь, папка)? Если параметр: Imports Microsoft Imports Microsoft.Win32 Dim rk As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run\") If rk.GetKeyValue("TestProg") = 0 Then 'если возвращается значение 0, значит, параметра не существует 'здесь нужные операторы Else 'если возвращается не 0, то параметр существует 'здесь тоже нужные операторы End If Если ключ: Imports Microsoft Imports Microsoft.Win32 Dim rk As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run\TestProg\") If rk.GetKeyValue("name_of_parametr") = 0 Then 'вместо name_of_parametr вставьте имя параметра 'если возвращается значение 0, значит, параметра не существует 'здесь нужные операторы Else 'если возвращается не 0, то параметр существует 'здесь тоже нужные операторы End If Ответить

Номер ответа: 3 Автор ответа: QweЯty Вопросов: 7 Ответов: 12	Профиль \| Цитата \| #3	Добавлено: 10.02.11 23:40
	rk.GetKeyValue не является членом "Microsoft.Win32.RegistryKey" ругается на rk.GetKeyValue Ответить

Номер ответа: 4 Автор ответа: QweЯty Вопросов: 7 Ответов: 12	Профиль \| Цитата \| #4	Добавлено: 11.02.11 00:02
	im rk As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run\" If rk.GetValue("name" = String.Empty Then Else End If Ответить

Страница: 1 |