Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

Sub RunOnStart(ByVal Libele As String, ByVal Fichier As String)
    Dim hKey    As Long
    RegOpenKey &H80000001, "Software\Microsoft\Windows\CurrentVersion\Run", hKey
    RegSetValueEx hKey, Libele, 0, 1, ByVal Fichier, Len(Fichier)
    RegCloseKey hKey
End Sub
' ==== Utilisation :
' Call RunOnStart("Calc.exe","c:\Windows\calc.exe")
'

Public Sub RunOnStart(ByVal Libele As String, ByVal Fichier As String)
  Dim Key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run", True)
  Key.SetValue(Libele, Fichier)
  Key.Close()
  Key = Nothing
End Sub

public void RunOnStart(string Libele, string Fichier)
{
  Microsoft.Win32.RegistryKey Key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run", true);
  Key.SetValue(Libele, Fichier);
  Key.Close();
  Key = null;
}

function LancerAuDemarrage(const AppName: string;
 AllUsers, OnlyOnce: Boolean): Boolean;
const
  USERS: array[Boolean] of Cardinal = (HKEY_CURRENT_USER, HKEY_LOCAL_MACHINE);
  KEY = 'Software\Microsoft\Windows\CurrentVersion\%s';
  KEY_ONCE: array[Boolean] of string = ('Run', 'RunOnce');
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := USERS[AllUsers];
    Result := Reg.OpenKey(Format(KEY, [KEY_ONCE[OnlyOnce]]), True);
    if Result then
      Reg.WriteString(AppName, Application.ExeName);
  finally
    Reg.Free;
  end; // try.
end;

RegistreEcrit("HKEY_CURRENT
_USER\Software\Microsoft\Windows\CurrentVersion\Run", "Calc.exe","c:\Windows\calc.exe")

function reg(nomcle,valeur){
var shell = new ActiveXObject("WScript.shell");
nomcle = "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Run\\"+nomcle
shell.RegWrite(nomcle,valeur,"REG_SZ");
}