如题
//使用API函数 setsystemtime
procedure TForm1.Button1Click(Sender: TObject);
Var
tm:TSYSTEMTIME;
begin
datetimetosystemtime(strtodatetime(2003-4-10 21:10:00),tm);
setsystemtime(tm);
end;
大概是与时区有关系,刚好我们在东8区嘛,
把setsystemtime 改为 SetLocalTime即可