C/Visual C - Escribir en el registro de windows

#include <vcl.h>

#include <windows.h>

#pragma hdrstop

void WriteRegDword(const String& key, const String& valueName, DWORD value) {

    HKEY hKey;

    if (RegOpenKeyEx(HKEY_CURRENT_USER, key.c_str(), 0, KEY_SET_VALUE, &hKey) == ERROR_SUCCESS) {

        RegSetValueEx(hKey, valueName.c_str(), 0, REG_DWORD, (const BYTE*)&value, sizeof(value));

        RegCloseKey(hKey);

    }

}

// Ejemplo de uso

void __fastcall TForm1::Button1Click(TObject *Sender) {

    WriteRegDword("Software\\MiAplicacion", "MiValor", 1);

}

#include <windows.h>

void WriteRegDword(LPCSTR key, LPCSTR valueName, DWORD value) {

    HKEY hKey;

    if (RegOpenKeyExA(HKEY_CURRENT_USER, key, 0, KEY_SET_VALUE, &hKey) == ERROR_SUCCESS) {

        RegSetValueExA(hKey, valueName, 0, REG_DWORD, (const BYTE*)&value, sizeof(value));

        RegCloseKey(hKey);

    }

}

// Ejemplo de uso

int main() {

    WriteRegDword("Software\\MiAplicacion", "MiValor", 1);

    return 0;

}

Imports Microsoft.Win32

Sub WriteRegDword(key As String, valueName As String, value As Integer)

    Dim regKey As RegistryKey

    regKey = Registry.CurrentUser.CreateSubKey(key)

    regKey.SetValue(valueName, value, RegistryValueKind.DWord)

    regKey.Close()

End Sub

' Ejemplo de uso '

Sub Main()

    WriteRegDword("Software\MiAplicacion", "MiValor", 1)

End Sub

uses

  Windows, Registry;

procedure WriteRegDword(const key, valueName: string; value: DWORD);

var

  reg: TRegistry;

begin

  reg := TRegistry.Create(KEY_WRITE);

  try

    reg.RootKey := HKEY_CURRENT_USER;

    if reg.OpenKey(key, True) then

    begin

      reg.WriteInteger(valueName, value);

      reg.CloseKey;

    end;

  finally

    reg.Free;

  end;

end;

// Ejemplo de uso

begin

  WriteRegDword('Software\MiAplicacion', 'MiValor', 1);

end.