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

Вниз

Помогите!!! Не работает RegSaveKey !!!   Найти похожие ветки 

 
marwin   (2002-02-13 13:23) [0]

Hello All !!!
Необходимо сохранить кусок реестра в файл в Windows2000
Делаю так:
Способ 1:

procedure TForm1.Button4Click(Sender: TObject);

var
HNDL :HKEY;

begin
RegCreateKeyEx(HKEY_LOCAL_MACHINE, PChar("Software\Far"), 0,nil, REG_OPTION_NON_VOLATILE , KEY_ALL_ACCESS, nil, HNDL, nil);

RegSaveKey(HNDL, PChar("c:\far.reg"), nil);
RegCloseKey(HNDL);
end;

Способ 2:

procedure TForm1.Button4Click(Sender: TObject);

var
HNDL :HKEY;
PD :PDWORD;

begin
RegOpenKey(HKEY_LOCAL_MACHINE, PChar ("Software\Far"), HNDL);
RegSaveKey(HNDL, PChar("c:\far.reg"), nil);
RegCloseKey(HNDL);
end;

Способ 3:

procedure TForm1.Button3Click(Sender: TObject);

var
Reg :TRegistry;

begin
Reg:=TRegistry.Create;
with Reg do
begin
RootKey:=HKEY_LOCAL_MACHINE;
SaveKey("Software\Far", "c:\far.reg");
Free;
end;
end;

Во всех случаях создает файл нулевой длины и все :-(
Ключ, конечно существует...
Может кто поможет.
Заранее спасибо


 
troits ©   (2002-02-13 19:01) [1]

Я попробовал код, и вот что получилось.
Ф-ция RegSaveKey возвращает ошибку
1314 - A required privilege is not held by the client.
Посмотрим в SDK -
Windows NT/2000 or later: The calling process must have the SE_BACKUP_NAME privilege enabled.

Дальше надо смотреть, есть ли привилегия SE_BACKUP_NAME.
LookupPrivilegeValue , PrivilegeCheck ...

Я думаю, дело в этом. Кстати, файла не должно существовать, иначе RegSaveKey вернет
183 - Cannot create a file when that file already exists.




 
Suntechnic ©   (2002-02-14 04:08) [2]

>marwin (13.02.02 13:23)
troits © (13.02.02 19:01) тебе абсолютно правильно заметил. Под Win 2000 крайне не рекомендуется использовать ключ KEY_ALL_ACCESS, потому как если программа будет запущена не под учётной записью администратора, то высока вероятность того, что вызов ф-ции потерпит неудачу.



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

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

Наверх




Память: 0.47 MB
Время: 0.021 c
1-46426
dimonf
2002-04-02 21:13
2002.04.15
Как сделать, чтобы QuickReport-а не было видно на моей форме?


1-46367
Yaro
2002-04-04 17:43
2002.04.15
Кнопка Вход


3-46237
UncleRu
2002-03-16 19:17
2002.04.15
кэширование данных связанных таблиц


3-46218
-Stealtch-
2002-03-22 15:12
2002.04.15
Перенос записей из одной БД в другую с анологичной структурой


1-46379
Death Soul
2002-04-01 22:22
2002.04.15
RTTI при использовании динамических объектов