Работа с реестром. ОС не реагирует на изменения.

[Sharp_eye]

Доброе утро
сижу, пишу и тут такая штука...

Var
RegFile: TRegIniFile;
...
  with RegFile do begin
RootKey := HKEY_CURRENT_USER;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced',true);
//Не скрывать расширения у файлов
  WriteInteger('','HideFileExt',0);
//Показывать скрытые файлы и папки
  WriteInteger('','Hidden',1);

изменяются (в оригинале это Reg_Dword) эти 2 параметра и XPsp3pro после перезагрузки на них никак не реагирует а если изменить руками эти Dword-ы то срабатывает.

!!!!!!но при этом!!!!!! все замечательно работает с параметрами :

RootKey := HKEY_CURRENT_USER;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\',true);
WriteInteger('','NoRecentDocsMenu',1);
WriteInteger('','ClearRecentDocsOnExit',1);
WriteInteger('','NoRecentDocsHistory',1);
CloseKey;

ps А все-таки, можно создать именно Dword ??? или это нереальная-секретная-инопланетная операция ?

[Stilet]

А все-таки, можно создать именно Dword ?

WriteInteger насколько я знаю, как раз DWORD и создает.

[tavrocotaps]

по-моему ты с типом ошибся, я пишу так:

 var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  if (not Reg.OpenKey('Software\Khartep\GV',False)) then
   begin
    Reg.CreateKey('Software\Khartep\GV');
    Reg.CloseKey;
    Reg.OpenKey('Software\Khartep\GV',False)
   end;
  Reg.WriteInteger('Height',Height);
  Reg.WriteInteger('Width',Width);
  Reg.WriteInteger('Top',Top);
  Reg.WriteInteger('Left',Left);
  Reg.WriteBool('Maximized',WindowState = wsMaximized);
  Reg.CloseKey;
  Reg.Free;