Как получить с реестра информацию?

@falsebegin · Регистрация: 23.11.2016

Студворк — интернет-сервис помощи студентам

и снова здравствуйте может кто знает как получить с реестра информацию?

вот пример работает только на 64 бите который был создан компилятор а на 32 бите не показывает информацию как сделать так чтобы работало 32 и на 64 бите?

Delphi
1
2
3
4
5
6
7
8
9
10
function ProductName: string;
var reg: TRegistry;
begin
reg := TRegistry.Create(KEY_READ or KEY_WOW64_64KEY);
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKeyReadOnly('\SOFTWARE\Microsoft\Windows NT\CurrentVersion');
Result := reg.ReadString('ProductName');
reg.CloseKey;
reg.free;
end;

Verevkin · 07.03.2020, 17:20

Вот это не наводит тебя на какую-нибудь мысль?

@falsebegin · 07.03.2020, 17:51 **[ТС]**

если сделать так KEY_WOW64_32KEY работает наоборот показывает только на 32 бите а на 64 бите не работает

Verevkin · 07.03.2020, 19:12

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

если сделать так KEY_WOW64_32KEY работает наоборот показывает только на 32 бите а на 64 бите не работает

Ну так отфильтруй условной компияцией.

Delphi
1
2
3
4
5
{$ifdef win64}
// код для 64-битного компилятора
{$else}
// код НЕ для 64-битного компилятора
{$endif}

@GoodWeather · 07.03.2020, 21:17

Какой точно эффект вы хотите получить? Accessing an Alternate Registry View

@falsebegin · 08.03.2020, 02:12 **[ТС]**

так и не понял как его использовать

Delphi
1
2
3
4
5
{$ifdef win64}
// код для 64-битного компилятора
{$else}
// код НЕ для 64-битного компилятора
{$endif}

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
{$ifdef win64}
function ProductId: string;
var reg: TRegistry;
begin
reg := TRegistry.Create(KEY_READ or KEY_WOW64_32KEY);
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKeyReadOnly('\SOFTWARE\Microsoft\Windows NT\CurrentVersion');
Result := reg.ReadString('ProductId');
reg.CloseKey;
reg.free;
end;
{$else}
function ProductId: string;
var reg: TRegistry;
begin
reg := TRegistry.Create(KEY_READ or KEY_WOW64_64KEY);
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKeyReadOnly('\SOFTWARE\Microsoft\Windows NT\CurrentVersion');
Result := reg.ReadString('ProductId');
reg.CloseKey;
reg.free;
end;
{$endif}

так чтоли ?

Verevkin · 08.03.2020, 02:28

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

так чтоли ?

Можно и так, но лучше примерно вот эдак:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
function ProductId: string;
begin
  var reg := TRegistry.Create(KEY_READ {$ifdef win64} or KEY_WOW64_32KEY {$endif} );
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKeyReadOnly('\SOFTWARE\Microsoft\Windows NT\CurrentVersion');
    Result := reg.ReadString('ProductId');
    reg.CloseKey();
  finally  
    reg.free();
  end;  
end;

@falsebegin · 21.03.2020, 22:49 **[ТС]**

тут выдает ошибку и не дает компилировать var reg := TRegistry.Create(KEY_READ {$ifdef win64} or KEY_WOW64_32KEY {$endif} );

Verevkin · 21.03.2020, 23:09

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

тут выдает ошибку и не дает компилировать, а какую - догадайтесь сами, грёбаные телепаты!!!

да?

@northener · 22.03.2020, 02:06

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

тут выдает ошибку и не дает компилировать

А самому поправить очепятку влом?

@GoodWeather · 22.03.2020, 05:37

Не по теме:

Так что не так с просто KEY_READ? У меня всё находит при любом сочетании/отсутствии...

@falsebegin · 28.03.2020, 02:27 **[ТС]**

Information.zip

все же как правильно получить информацию с реестра используя 32-бит и 64-бит для 64 бит программа работает и показывает как надо а на 32 бит показывает только Windows 10 Pro 32-bit может все таки кто нибудь посмотрит и исправит?

@northener · 28.03.2020, 02:38

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

все же как правильно получить информацию с реестра

Чем же вам так не угодил стандартный способ получения информации об ОС?

@falsebegin · 30.03.2020, 07:05 **[ТС]**

типа исправил свою ошибку пипец я тупил =) теперь все работает как надо для 32 и 64 бите

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Label1Click(Sender: TObject);
var bit:string; page,s:string;
begin
Form1.Hide;
bit:=GetEnvironmentVariable('ProgramFiles(x86)');
memo1.text:=bit; if (bit='') then begin memo1.text:=ProductName+' '+'32-bit'+' '+
('Версия'+' '+CurrentVersion+' '+'(Сборка')+' '+CurrentBuild+': '+CSDVersion+')';
memo1.Lines.Add(string('Видеокарта')+': '+GetDisplayDevice);
memo1.Lines.Add(string('Процессор')+': '+getcpu+' '+getCPUCount);
memo1.Lines.Add(string('Материнская плата: ')+SystemManufacturer+' '+BaseBoardProduct+' '+'(BIOS v.'+BIOSVersion+')');
memo1.Lines.Add(string('Ключ продукта')+': '+ProductId);
end else begin memo1.text:=ProductName+' '+'64-bit'+' '+
('Версия'+' '+CurrentVersion+' '+'(Сборка')+' '+CurrentBuild+': '+CSDVersion+')';
memo1.Lines.Add(string('Видеокарта')+': '+GetDisplayDevice);
memo1.Lines.Add(string('Процессор')+': '+getcpu+' '+getCPUCount);
memo1.Lines.Add(string('Материнская плата: ')+SystemManufacturer+' '+BaseBoardProduct+' '+'(BIOS v.'+BIOSVersion+')');
memo1.Lines.Add(string('Ключ продукта')+': '+ProductId);
end;

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

Verevkin Злостный нарушитель 10860 / 5805 / 1282 Регистрация: 12.03.2015 Сообщений: 26,807
	07.03.2020, 17:20
	Вот это не наводит тебя на какую-нибудь мысль? 0

@falsebegin 89 / 8 / 0 Регистрация: 23.11.2016 Сообщений: 172
	07.03.2020, 17:51 [ТС]
	если сделать так KEY_WOW64_32KEY работает наоборот показывает только на 32 бите а на 64 бите не работает 0

@GoodWeather 886 / 588 / 179 Регистрация: 28.02.2017 Сообщений: 2,359 Записей в блоге: 1
	07.03.2020, 21:17
	Какой точно эффект вы хотите получить? Accessing an Alternate Registry View 0

@falsebegin 89 / 8 / 0 Регистрация: 23.11.2016 Сообщений: 172
	21.03.2020, 22:49 [ТС]
	тут выдает ошибку и не дает компилировать var reg := TRegistry.Create(KEY_READ {$ifdef win64} or KEY_WOW64_32KEY {$endif} ); 0

@GoodWeather
	22.03.2020, 05:37
	Не по теме: Так что не так с просто `KEY_READ`? У меня всё находит при любом сочетании/отсутствии... 0

@falsebegin 89 / 8 / 0 Регистрация: 23.11.2016 Сообщений: 172
	28.03.2020, 02:27 [ТС]
	Information.zip все же как правильно получить информацию с реестра используя 32-бит и 64-бит для 64 бит программа работает и показывает как надо а на 32 бит показывает только Windows 10 Pro 32-bit может все таки кто нибудь посмотрит и исправит? 0