shellexecute कमांड

Question

के साथ .reg फ़ाइल निष्पादित करते समय पुष्टिकरण संदेश से कैसे बचें मेरे प्रोग्राम में मैं स्टार्टअप पर एक रजिस्ट्री कुंजी की जांच करता हूं और यदि किसी भी तरह से यह अस्तित्व में नहीं है तो मैं अनुप्रयोग फ़ोल्डर में स्थित reg फ़ाइल निष्पादित करता हूं बुद्धिमान ShellExecute की सहायता आदेश। इस आदेश को निष्पादित करते समय मैं कबूल संदेश प्राप्त करने से बच सकता हूं। क्या ऐसा करने का कोई तरीका है या सुरक्षा कारणों से यह संभव नहीं है?

Answer 1

/एस कमांड लाइन स्विच का उपयोग करें। (देखें http://support.microsoft.com/kb/82821)

Answer 2

यह संभव है। दो तरीके हैं:

1. % windir% \ system32 \ regedit.exe /एस 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;