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 !!!

Hello !!!
Вы забыли даль привилегии программе на бэкап реестра.
API функция AdjustTokenPrivileges
Исходник лови на мыло !!!
Там я те написал как надо юзать

[Smerch]

"...'c:far.reg'..."
Придурок! А кто после имени диска будет слэш ставить?

[RK3FW]

Если процесс работает в среде 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.

[RK3FW]

Кстати, в Дельфях все компоненты написаны для W95/98.