delphi 怎样在程序中修改win10的时间

这里先给定蓝红黄三种颜色，根据自己需要可以在加 然后写进INI文件做为标志 use inifiles inifile:Tinifile; main.create(); inifile:=Tinifile.create('.\sysfile.ini'); if inifile.readstring('test','color','1')=1 then main.color:=clblue else if inifile.readstring('test','color','1')=2 then main.color:=clred else if inifile.readstring('test','color','1')=3 then main.color:=clyellow; //改变颜色的时候 if main.color=clblue then inifile.writestring('test','color','1') else if main.color=clred then inifile.writestring('test','color','2') else if main.color=clyellow then inifile.writestring('test','color','3'); inifile.free;