Форум: "WinAPI";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
ВнизПомогите!!! Не работает 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;
Во всех случаях создает файл нулевой длины и все :-(
Ключ, конечно существует...
Может кто поможет.
Заранее спасибо
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c