Developing.ru

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

var reg:hkey;
begin
RegOpenKeyEx(HKEY_LOCAL_MACHINE,'SOFTWARE\Mirabilis\ICQ\ICQLite',0,KEY_QUERY_VALUE,reg);

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

uses Registry;
...
procedure MyReg_SetStringValue(pRoot: HKEY; pKey, pParam, pValue: String)
begin
  with TRegistry.Create do begin
    try
      RootKey := pRoot;
      Access := KEY_ALL_ACCESS;
      { открыть ключ, если есть, но не создавать, если нет }
      if OpenKey(pKey, False) then begin
        WriteString(pParam, pValue);
        CloseKey();
      end;
    finally
      Free;
  end;
end;
...

// использование
MyReg_SetStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Mirabilis\ICQ\ICQLite', 'megautil', 'stro4ka'); 

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

function MyReg_SetString(pRoot: HKEY; pKey, pValue, pStr: String): Boolean;
var hk: HKEY;
    dispos: Dword;
begin
  Result := False;
  try
    if Win32Check(ERROR_SUCCESS = RegCreateKeyEx(pRoot, PChar(pKey), 0, nil,
      REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, nil, hk, @dispos)) then
      Win32Check(ERROR_SUCCESS = RegSetValueEx(hk, pChar(pValue), 0, REG_SZ,
        PChar(pStr), Length(pStr)+1));
    Result := True;
  finally
    RegCloseKey(hk);
  end;
end;
...
...

MyReg_SetString(HKEY_LOCAL_MACHINE, 'SOFTWARE\Mirabilis\ICQ\ICQLite', 'megautil', 'stro4ka');