如何避免使用shellexecute命令执行.reg文件时的确认消息

Question

在我的程序中，我在启动时检查注册表项，如果它不存在，我使用ShellExecute帮助执行位于应用程序文件夹中的reg文件命令。如何避免在执行此命令时获取配置消息。有没有办法做到这一点，或根据安全原因，这是不可能的？

Answer 1

使用/ s命令行开关。 （见http://support.microsoft.com/kb/82821）

Answer 2

这是可能的。有两种方法：

1. ％WINDIR％\ SYSTEM32 \ REGEDIT.EXE /s的 file.reg
2. ％WINDIR％\ SYSTEM32 \ REG.EXE进口file.reg

要么会静静地将file.reg导入到注册表中。

Answer 3

尝试一下本作导入* .reg文件，

procedure ImportRegistry; 
     var 
     strProgram :String ; 
     strCommand :String ; 
     fileOne :String ; 
     begin 

fileOne:=ExtractFilePath(Application.ExeName)+ 'my_Resources\Default.reg'; 
strProgram := 'REGEDIT' ; 
strProgram := strProgram + #0 ; 
strCommand := '/SC /C ' + ExtractShortPathName(fileOne) ; 
strCommand := strCommand + #0 ; 

if ShellExecute(0,nil,@strProgram[1],@strCommand[1],nil,SW_HIDE) <= 32 then 
    begin 
     ShowMessage(SysErrorMessage(GetLastError)) ; //if there is any error in importing 
    end; 


end; 

您也可以尝试此链接unitEXRegistry.pas

这unitEXRegistry.pas单元具有非常有用的功能，导出注册表文件，然后导入也默默地出口* .reg文件

 procedure exportREgis; 
     var 
     texpr : TExRegistry; 
     begin 
     texpr:=TExRegistry.Create; 
     texpr.RootKey:=HKEY_CURRENT_USER; 
     texpr.OpenKeyReadOnly('\MyKey'); 
     texpr.ExportKey (ExtractFilePath(Application.ExeName)+'ExportedReg.reg'); 
     texpr.Free; 
     end; 

然后导入就可以使用（默默）

 procedure TForm1.Button1Click(Sender: TObject); 
     var 
     texpr : TExRegistry; 
     begin 
      texpr:=TExRegistry.Create; 
      texpr.ImportRegFile('c:\myReg.reg'); 
      texpr.Free; 
     end;