[dengul]

Немогу заставить считать параметр реестра в HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon программа не реагирует вообще.

если обращаться в HKEY_CURRENT_USER и указать какой-то параметр то программа ненаходит его хотя он есть.

работаю в windows XP под админом

Код:

var reg:TRegistry;
begin
Reg:=TRegistry.Create;
With Reg do
Try
Begin
RootKey:=HKEY_CURRENT_USER;
OpenKey('HKEY_CURRENT_USER\Keyboard Layout\Preload',False);
If ValueExists('1') then
Begin
Edit1.Text:=IntToStr(ReadInteger('1 '));
WriteInteger('1',StrToInt(Edit1.Tex t));
End
Else
Begin
Edit1.Text:='параметр не существует';
WriteInteger('1',StrToInt(Edit1.Tex t));
End;
CloseKey;
End;
Finally
Reg.Destroy;
End;
end;