Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > редактирование ключав реестре

Автор: BEST13 24.5.2008, 23:26

Не получаеться изменить значение ключа NtfsEncryptPadingFile (реестр Висты) в риестре типа REG_DWORD. Выдает ошибку ( скрин прекрепил ниже).
user posted image

вот сам код

Код


procedure TForm1.Button1Click(Sender: TObject);
var Reg:TRegistry;
begin

Reg:=TRegistry.Create(HKEY_LOCAL_MACHINE);
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FileSystem',false);
Reg.WriteFloat('NtfsEncryptPadingFile',0);
reg.Free;
end;

Автор: Poseidon 25.5.2008, 00:40

Код


procedure TForm1.Button1Click(Sender: TObject);
var Reg:TRegistry;
begin

Reg:=TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('\SYSTEM\CurrentControlSet\Control\FileSystem',false);
Reg.WriteFloat('NtfsEncryptPadingFile',0);
reg.Free;
end;

Автор: BEST13 25.5.2008, 10:57

Цитата

Код


procedure TForm1.Button1Click(Sender: TObject);
var Reg:TRegistry;
begin

Reg:=TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('\SYSTEM\CurrentControlSet\Control\FileSystem',false);
Reg.WriteFloat('NtfsEncryptPadingFile',0);
reg.Free;
end;

В этом варианте ошибка не вылитаетно, но создаёться ключ типа REG_BINARY . А мне надо что код изменял значения ключа типа REG_DWORD из 1 в 0

Добавлено @ 11:03
Всё я уже розабрался надо было использывать оператор writeinteger