[xrpcompany]

Как записать в реестр WORD значение без TRegistry. Я нашел запись строкового, но мне нужно dword?
строковое:

Код:

function RegWriteStr(RootKey: HKEY; Key, Name, Value: string): Boolean;
var
  Handle: HKEY;
  Res: LongInt;
begin
  Result := False;
  Res := RegCreateKeyEx(RootKey, PChar(Key), 0, nil, REG_OPTION_NON_VOLATILE,
    KEY_ALL_ACCESS, nil, Handle, nil);
  if Res <> ERROR_SUCCESS then
    Exit;
  Res := RegSetValueEx(Handle, PChar(Name), 0, REG_SZ, PChar(Value),
    Length(Value) + 1);
  Result := Res = ERROR_SUCCESS;
  RegCloseKey(Handle);
end;

Админ: Пользуемся тегами для оформления кода!

[Человек_Борща]

Мне кажется надо использовать REG_DWORD всесто REG_SZ

[xrpcompany]

Я пробывал в место REG_SZ вставить REG_DWORD , но выдает ошибку

[M.A.D.M.A.N.]

Код:

RegSetValueEx(Handle, PChar(Name), 0, REG_DWORD, @variable, 4);

[xrpcompany]

@variable какое значение должно быть

[xrpcompany]

Спасибо получилось!

[Ralik]

я так и не понял, как с помощью RegSetValueEx создать ключ в реестра по адресу HKEY_CURRENT_USER\Software\Mykeu\ ключ DWORD со значением 1????

[angvelem]

Сообщение от M.A.D.M.A.N.

Код:

RegSetValueEx(Handle, PChar(Name), 0, REG_DWORD, @variable, 4);

Читаем внимательно, variable переменная типа DWORD, со значением 1.

[Ralik]

Я внимательно прочитал. У меня не получается. Ну тупой я и что?
RegSetValueEx(HKEY_CURRENT_USER, PChar(Name), 0, REG_DWORD, @1, 4)
Что здесь не правильно и куда вписывать нужный ключ?

[angvelem]

Сообщение от Ralik

RegSetValueEx(HKEY_CURRENT_USER, PChar(Name), 0, REG_DWORD, @1, 4)

Значит не читал. не @1, а @variable:

Читаем внимательно, variable переменная типа DWORD, со значением 1.

Код:

var
  variable : DWORD;
begin
  variable := 1;
  RegSetValueEx(Handle, PChar(Name), 0, REG_DWORD, @variable, 4);
end;

[lmikle]

Открываем MSDN и читаем:

hKey [in]
A handle to an open registry key. The key must have been opened with the KEY_SET_VALUE access right. For more information, see Registry Key Security and Access Rights.
This handle is returned by the RegCreateKeyEx, RegCreateKeyTransacted, RegOpenKeyEx, or RegOpenKeyTransacted function. It can also be one of the following predefined keys:

Теперь смотрим функцию RegCreateKeyEx:

LONG WINAPI RegCreateKeyEx(
__in HKEY hKey,
__in LPCTSTR lpSubKey,
__reserved DWORD Reserved,
__in_opt LPTSTR lpClass,
__in DWORD dwOptions,
__in REGSAM samDesired,
__in_opt LPSECURITY_ATTRIBUTES lpSecurityAttributes,
__out PHKEY phkResult,
__out_opt LPDWORD lpdwDisposition
);

Еще пояснения нужны?

ЗЫ. И не забудь закрыть ключ после записи.

[Ralik]

Да, я все понял, спасибо вам