怎么在程序里面修改系统的时间？？？

Question

能不能在一个程序（test）一运行结束就把系统时间改成一个特定的数值。我的基本思路：
    写一个小程序，判断test程序进程一结束，就把系统的时间改过来。
不知道各位大侠的看法如何，请指教，谢谢！

Answer 1

设置系统时间：
var
        sSysDateTime : TSystemTime;
        sUserDateTime : TDateTime;
begin
        ReplaceDate(sUserDateTime,DateTimePicker1.Date);
        ReplaceTime(sUserDateTime,DateTimePicker2.Time);
        DateTimeToSystemTime(sUserDateTime,sSysDateTime);
        SetLocalTime(sSysDateTime);
end;

Answer 2

同意，好象有一个api也可以的，不过要填一个结构体

Answer 3

可用setlocaltime更改本地系统时间

Answer 4

关键的是我要判断另外一个程序（test）运行结束才能调用这个程序来修改系统时间的。

Answer 5

又是一个不眠夜，CSDN要戒严了。记得葛优(演的一个人物)曾经说过：“……什么人都可以惹，唯独小人不能沾。”初春的一场小雪，纷纷扬扬地下着，掩饰了大地，掩盖了一切人间的罪恶。上帝说：“有阳光就有黑暗，有善举就有罪过。饶恕他吧。”