[blue]非安全模式下肯定可以,安全模式下就不知道了[/blue]<br><br>//写<br>var<br> RegF:TRegistry;<br>begin<br> RegF:=Tregistry.Create;<br> RegF.RootKey:=HKEY_LOCAL_MACHINE;<br> try<br> RegF.OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run',True);<br> //设置开机是否自动运行<br> if CheckBox1.Checked then<br> begin<br> RegF.DeleteValue('Capture');<br> RegF.WriteString('Capture',Application.ExeName);<br> end<br> else<br> RegF.DeleteValue('Capture');<br> except<br><br> end;<br> RegF.CloseKey;<br> RegF.Free;<br>//读<br>RegF:=Tregistry.Create;<br> RegF.RootKey:=HKEY_LOCAL_MACHINE;<br> try<br> RegF.OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run',True);<br> if RegF.ValueExists('Capture') then<br> CheckBox1.Checked:=True<br> else<br> CheckBox1.Checked:=False;<br> except