注册表键值的导出与导入

其实就是用了Delphi的TRegistry类中两个函数，一个是SaveKey,一个是LoadKey。这两个函数在使用之前要取得SE_BAKCUP_NAME权限，而就是因为LookupPrivilegeValue中的参数：SE_BAKCUP_NAME，我弄了一个下午都没弄出来，没想到在函数里要用SeBackupPrivilege作参数，而不是用SE_BAKCUP_NAME作参数，在网上看到的都是用SE_BAKCUP_NAME用参数，包括C++的代码和Delphi的代码，而我一用SE_BAKCUP_NAME用参数，就报“指定特权不存在”的错，晕死。

导出文件时，没有写扩展名，因为Delphi帮助文件说“On systems that use a file allocation table (FAT), FileName cannot include an extension.”。用FAT文件系统的OS中不能有扩展名，不知FAT包括不包括FAT32?我想应该包括吧，所以就不要扩展名了。

完整代码如下：

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Registry; type TForm1 = class(TForm) btn1: TButton; btn2: TButton; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); private { Private declarations } public { Public declarations } function GetPrivilege:Boolean;//取权限 procedure SaveOraKey;//导出 procedure LoadOraKey;//导入 end; { 使用注册表的Savekey和LoadKey前要调整进程的权限，让它取得SE_BACKUP_NAME的权限 在GetPrivilege中有进行了取权限 } var Form1: TForm1; implementation {$R *.dfm} function TForm1.GetPrivilege:Boolean; var hToken : THandle; tp : TTokenPrivileges; rt : DWORD; begin Result := False; OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken); //打开本进程令牌 if not LookupPrivilegeValue(nil,'SeBackupPrivilege',tp.privileges[0].luid) then //获取SE_BACKUP_NAME权限 begin ShowMessage(SysErrorMessage(GetLastError)); Exit; end; tp.PrivilegeCount := 1; tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; AdjustTokenPrivileges(hToken,False,tp,SizeOf(TTokenPrivileges),PTokenPrivileges(nil),rt); //调整权限 {对于"PTokenPrivileges(nil)"这个实参，我是第一次发现可以这样用。 函数要求的参数是指向TTokenPrivileges的指针，原来可以用PTokenPrivileges(nil)表示空指针} if GetLastError = ERROR_SUCCESS then Result := True; end; procedure TForm1.btn1Click(Sender: TObject); begin if GetPrivilege = True then SaveOraKey else ShowMessage('调整进程权限出错'); end; procedure TForm1.SaveOraKey; var oraReg : TRegistry; begin oraReg := TRegistry.Create; try oraReg.RootKey := HKEY_LOCAL_MACHINE; oraReg.SaveKey('Software/ORACLE','ora_cli'); finally oraReg.Free; end; end; procedure TForm1.LoadOraKey; var oraReg : TRegistry; begin //检查文件是否存在 if not FileExists('ora_cli')then begin Application.MessageBox('没有找到ora_cli文件，无法注册Oracle客户端','无法注册',MB_OK or MB_ICONWARNING); Exit; end; oraReg := TRegistry.Create; try oraReg.RootKey := HKEY_LOCAL_MACHINE; //判断要导入的键是否存在 if oraReg.KeyExists('Software/ORACLE') then begin if IDNO = Application.MessageBox('此键值已经存在，继续导入将覆盖原信息，是否继续？','请确认',MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) then Exit; end; //实施导入 if oraReg.LoadKey('SoftWare/ORACLE','ora_cli') = True then ShowMessage('注册表导入成功'); finally oraReg.Free; end; end; procedure TForm1.btn2Click(Sender: TObject); begin GetPrivilege; LoadOraKey; end; end.

 

 

 

2010-08-13修改：

很对不起，本文中对注册表的导出是成功的但导入是不成功的，也就是LoadOraKey实际上是执行失败的，不知为什么，可能是权限不够，还请高手指点。