Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.22;
Скачать: CL | DM;

Вниз

Сохранение и загрузка ключей реестра   Найти похожие ветки 

 
Sting   (2004-07-08 23:01) [0]

Доброг времени суток.
У меня такая проблема.
Есть функции для работы с реестром SaveKey, LoadKey.
Но они не работают должным образом. Насколько я понял, в ХР необходимо получить соответствующие привилегии для их использования. Функция SaveKey сохраняет ветвь реестра в файл, если была установлена привилегия SeBackupPrivilege.
Однако LoadKey не восстанавливает информацию из созданного файла. Для ее восстановления я использую привилегию SeRestorePrivilege. Система выдает такое сообщение: "потребовалось восстановление одного из файлов данных системного рееста с помощью журнала или дополнительной копии. Восстановление произошло успешно." И в реестре никаких изменений не происходит.
Кто-нибудь может помочь с этим?


 
Cobalt ©   (2004-07-09 01:56) [1]

Чё?!
Код давай!!!
:)


 
Sting   (2004-07-09 03:05) [2]

Установка привилегии:

function SetPrivilege(sPrivilegeName: string; bEnabled: boolean): boolean;
var
TPPrev,
TP: TTokenPrivileges;
Token: THandle;
dwRetLen: DWord;
begin
 Result := False;
 try
 OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, Token);
 TP.PrivilegeCount := 1;
 if (LookupPrivilegeValue(nil, PChar(sPrivilegeName),TP.Privileges[0].LUID)) then
 begin
   if (bEnabled) then
   TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
   else TP.Privileges[0].Attributes := 0;
   dwRetLen := 0;
   Result := AdjustTokenPrivileges(Token, False, TP, SizeOf(TPPrev),
   TPPrev, dwRetLen);
 end;
 finally
   CloseHandle(Token);
 end;
end;

Сохранаю так:

var
 x   : TRegistry;
 key : string;
begin
 SetPrivilege("SeBackupPrivilege", True);

 key:="Некоторый ключ";
 x:=tregistry.Create;
 x.RootKey:=HKEY_LOCAL_MACHINE;
 x.SaveKey(key,"c:\tmp1");
 x.Free;
end;

Удаляю ключ. Пытаюсь восстановить так:

var
 x   : TRegistry;
 key : string;
begin
 SetPrivilege("SeRestorePrivilege", True);

 key:="Некоторый ключ";
 x:=tregistry.Create;
 x.RootKey:=HKEY_LOCAL_MACHINE;
 x.LoadKey(key,"c:\tmp1");
 x.Free;
end;

И ничего не получается



Страницы: 1 вся ветка

Текущий архив: 2004.08.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.053 c
9-1083543520
BlackLord
2004-05-03 04:18
2004.08.22
Воащение в OpenGL


1-1091900535
Александр22
2004-08-07 21:42
2004.08.22
TDateTimePicker


14-1091273567
ruslan
2004-07-31 15:32
2004.08.22
dll i res


3-1090997926
mixam
2004-07-28 10:58
2004.08.22
еще вопрос по работе с вайлами, только *.dbf


10-1025240895
nikols
2002-06-28 09:08
2004.08.22
Разные обьектные ссылки C++ и Java.