Запись данных в системный реестр

[Krasavica]

Если насчет реестра Windows, то он вызывается
командой regedit

Если речь идет о различного рода твикерах, то пользоваться ими я вам не советую, т.к. не знание операционной системы в области системного реестра ни к чему хорошему не приведет, при попытке его изменения.
А так, в инете такого рода проги называются Tweaker, они помогают настроить систему путем правки ключей в системном реестре

[ZeroX]

Юзай пространство имен Microsoft.Win32

[Sebas]

Юзай пространство имен Microsoft.Win32

subj.Registry ))))

[mse]

Если ты о том как, допустим, писать какие либо данные то вот пример а вообще если есть конкретные вопросы пиши на мыло…
m_mouse@list.ru or mse@kahovka.net

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

        Dim Reg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)


        If TestCheckBox.Checked Then

            Reg.SetValue(My.Application.Info.ProductName, Application.ExecutablePath)

        Else

            Reg.DeleteValue(My.Application.Info.ProductName, False)

        End If


[mse]

Вот ещё что надо было

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

    'Open Key For Write
            Dim Reg As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\WindowsNT\CurrentVersion\", True)

            If rdbReg_SZ.Checked Then
                'Вот стринг если что

                Dim nStr As String = New String(txtValue.Text)
                Reg.SetValue(txtName.Text, nStr, RegistryValueKind.String)

            ElseIf rdbREG_BINARY.Checked Then

                Dim Bin() As Byte = New Byte() {txtValue.Text} ' {10, 43, 44, 45, 14, 255} - например так что надо просто текст в массив приобразовать и без пробелов

                Reg.SetValue(txtName.Text, Bin, RegistryValueKind.Binary)
                ' А если есть точный данные в бинарнике то через массив пиши...

            End If


[Ramzes]

Krasavica