Làm thế nào để tránh thông báo xác nhận khi thực hiện một file .reg với lệnh ShellExecute

Question

Trong chương trình của tôi, tôi kiểm tra cho một khóa registry lúc khởi động và nếu bằng cách nào đó nó không tồn tại Tôi chạy file reg nằm ở wit thư mục ứng dụng sự giúp đỡ của ShellExecute chỉ huy. Làm thế nào tôi có thể tránh nhận được thông báo confimation khi thực hiện lệnh này. Có cách nào để làm điều đó hay vì lý do an ninh không thể?

Answer 1

Sử dụng/s dòng lệnh switch. (Xem http://support.microsoft.com/kb/82821)

Answer 2

Có thể. Hai phương pháp là:

1. % windir% \ system32 \ regedit.exe /s file.reg
2. % windir% \ system32 \ reg.exe nhập khẩu file.reg

Hoặc sẽ âm thầm nhập file.reg vào sổ đăng ký.

Answer 3

thử này để nhập các file * .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; 

Bạn cũng có thể thử liên kết này unitEXRegistry.pas

đơn vị unitEXRegistry.pas này có chức năng rất hữu ích để xuất tập tin registry và cũng nhập âm thầm các xuất khẩu * .reg tập tin

 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; 

Sau đó, nhập khẩu, bạn có thể sử dụng (âm thầm)

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