请问怎样用Tregistry导出完整的注册表?
解决方案 »
- Delphi2011蓄势待发,易博龙展示RAD Studio XE
- Delphi中如何通过HTTPS(SSL)访问Web服务或者其他安全站点??????
- 为什么会出现这样的问题
- 用DELPHI如何把图片存在EXCEL文件中?
- 在activexform工程里,如何设置公共的窗口图标?
- 有关InterBase的问题
- 急!急!急!急!急!!急!!!!急!!急!!!急!!!!!!!!!急
- 我无法证实下面消息的真实性,请有当地的朋友证实一下!
- 如何在dbgrid中支持手动事务?
- 请教高手:关于流的问题。
- Delphi7中怎么没有MIDAS了,你们现在做三层用什么做应用服务器?
- 请问如何知道在调用TStringList的SaveToFile是否完成,比如,如何知道用户按‘确认’或‘取消’
procedure TFormMain.ButtonExportClick(Sender: TObject);
var
RootKey,phKey: hKey;
KeyName,sKeyFileName: String;
FileName: array [0..255] of char;
begin
RootKey := HKEY_CURRENT_USER;
KeyName := 'software\mysoft\abc';
RegOpenKeyEx(RootKey, PChar(KeyName), 0, KEY_ALL_ACCESS, phKey);
sKeyFileName := 'c:\tempReg';
StrPCopy(FileName,sKeyFileName); //用pchar也行
if RegSaveKey(phKey, FileName, nil)= 0 then
ShowMessage('注册表分支已被导出。')
else
ShowMessage('注册表分支没有被导出。');
RegCloseKey(phKey);
end; procedure TFormMain.ButtonImportClick(Sender: TObject);
var //从文件导回到注册表
RootKey,phKey: hKey;
KeyName,sKeyFileName: String;
FileName: array [0..255] of char;
begin
RootKey := HKEY_CURRENT_USER;
KeyName := 'software\mySoft\abc';
RegOpenKeyEx(RootKey, PChar(KeyName), 0, KEY_ALL_ACCESS, phKey);
sKeyFileName := 'c:\tempReg';
StrPCopy(FileName,sKeyFileName);
if RegRestoreKey(phKey, FileName,0)= 0 then
ShowMessage('注册表指定分支已恢复。')
else
ShowMessage('注册表指定分支没有恢复,操作失败。');
RegCloseKey(phKey);
end;
3.另外, 还可以用TRegistry的savekey和restorekey
var
reg : Tregistry;
begin
reg := Tregistry.Create;
reg.rootkey := HKEY_CURRENT_USER;
reg.Savekey('\Software\NetAnts','d:\test1\NetAnts');
end;