给个例子代码,还没测试!<br><br>procedure TForm1.Button1Click(Sender:TObject);<br> var ARegistry : TRegistry; <br> begin <br> ARegistry := TRegistry.Create; <br> with ARegistry do <br> begin <br> RootKey:=HKEY_CURRENT_USER; <br> if OpenKey(′Control Panel/Keyboard′,True) then <br> WriteString(′KeyboardSpeed′,'10′); <br> CloseKey; <br> Destroy; <br> end; <br> end;