VPF::редактирование ключав реестре

BEST13

Дата 24.5.2008, 23:26 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 166
Регистрация: 11.4.2008
Где: Ukraine

Репутация: нет
Всего: нет

Не получаеться изменить значение ключа 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 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 166
Регистрация: 11.4.2008
Где: Ukraine

Репутация: нет
Всего: нет

Цитата

Код


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

Это сообщение отредактировал(а) BEST13 - 25.5.2008, 11:05

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »