Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TRegistry - как создать параметр DWORD32 / 3 сообщений из 3, страница 1 из 1
21.06.2021, 08:04
    #40079064
m52
m52
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TRegistry - как создать параметр DWORD32
Здравствуйте.

Если просто войти в реестр regedit, то в нужной ветке можно создать "Параметр DWORD (32 бита)" и значение в списке параметров будет выглядеть например так: " REG_DWORD 0x00002af9 (11001)"

Как можно создать то же самое программо?
Если записывать значение с помощью Reg.WriteInteger, как показан код ниже, то значение в списке параметров будет выглядеть как " REG_SZ 11001", т.е. типа REG_SZ, а не REG_DWORD

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
begin
  Reg := TRegIniFile.Create(KEY_ALL_ACCESS);
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    Reg.WriteInteger('Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', ExtractFileName(Application.ExeName), 11001);
  finally
    FreeAndNil(Reg);
  end;
end;



Как записать значение типа "REG_DWORD" ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.06.2021, 08:23
    #40079065
m52
m52
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TRegistry - как создать параметр DWORD32
Сам нашел решение.
Надо было использовать TRegistry, а не TRegIniFile, а то TRegIniFile только строки пишет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.06.2021, 11:07
    #40079097
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TRegistry - как создать параметр DWORD32
m52
TRegIniFile только строки пишет.
Прикольно. А я не знал о таком поведении
 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
procedure TRegIniFile.WriteInteger(const Section, Ident: string; Value: Integer);
var
  Key, OldKey: HKEY;
begin
  CreateKey(Section);
  Key := GetKey(Section);
  if Key <> 0 then
  try
    OldKey := CurrentKey;
    SetCurrentKey(Key);
    try
      inherited WriteString(Ident, IntToStr(Value));
    finally
      SetCurrentKey(OldKey);
    end;
  finally
    RegCloseKey(Key);
  end;
end;

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TRegistry - как создать параметр DWORD32 / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]