-
06.05.2001, 02:49 #1
Hello all !!! Необходимо сохранить кусок...
Hello all !!!
Необходимо сохранить кусок реестра Win2000 в файл.
Пишу на Delphi 6:
Способ 1 - средства Delphi:
procedure TForm1.Button3Click(Sender: TObject);
var
Reg :TRegistry;
begin
Reg:=TRegistry.Create;
with Reg do
begin
RootKey:=HKEY_LOCAL_MACHINE;
SaveKey('SoftwareFar', 'c:far.reg');
Free;
end;
end;
Способ 2: средства API
procedure TForm1.Button4Click(Sender: TObject);
var
HNDL :HKEY;
begin
RegOpenKey(HKEY_LOCAL_MACHINE, PChar ('SoftwareFar'), HNDL);
RegSaveKey(HNDL, PChar('c:far.reg'), nil);
RegCloseKey(HNDL);
end;
В обоих случаях создается файл нулевой длины и все.
Хотя ключ в реестре 100% существует.
Может кто сможет помочь ???
73 !!!
-
06.05.2001, 05:51 #2
Hello !!! Вы забыли даль привилегии прог...
Hello !!!
Вы забыли даль привилегии программе на бэкап реестра.
API функция AdjustTokenPrivileges
Исходник лови на мыло !!!
Там я те написал как надо юзать
-
15.02.2004, 18:56 #3
- Регистрация
- 30.01.2004
- Возраст
- 40
- Сообщений
- 27
- Поблагодарили
- 0
- Поблагодарил
- 0
"...'c:far.reg'..."
Придурок! А кто после имени диска будет слэш ставить?
-
15.02.2004, 21:56 #4
- Регистрация
- 17.08.2002
- Адрес
- ko85mo, RDA MO-56
- Возраст
- 59
- Сообщений
- 2,983
- Поблагодарили
- 396
- Поблагодарил
- 158
Если процесс работает в среде Win2000, то он должен иметь привелегию SE_BACKUP_NAME.
Т.е. необходимо выполнить следующие функции:
OpenProcessToken(GetCurrentProcess(),TOKEN_ADJAST_PRIVILEGES,&hToken);
LookupPrivilegeValue(NULL,SE_BACKUP_NAME,&luid);
tp.PrivilegeCount = 1;
tp.Privileges[0].Luid = luid;
tp.Privileges[0].Attributes = SE_PRIVILEGES_ENABLED;
AdjustTokenPrivileges(hToken,FALSE,&tp,sizeof(TOKEN_PRIVILEGES),NULL,N ULL);
Поясняю: получаем доступ к списку привелегий, устанавливаем режим включения привелегии и включаем ее.
А вообще - читай MSDN.
-
16.02.2004, 13:13 #5
- Регистрация
- 17.08.2002
- Адрес
- ko85mo, RDA MO-56
- Возраст
- 59
- Сообщений
- 2,983
- Поблагодарили
- 396
- Поблагодарил
- 158
Кстати, в Дельфях все компоненты написаны для W95/98.
|
Социальные закладки