不能让Mr. Wang一个人独得,哈哈
procedure TForm1.Button1Click(Sender: TObject);
var MyST:TSystemTime;
begin
MyST.wYear:=2000;
MyST.wMonth:=4;
MySt.wDay:=1;
MySt.wHour:=17;
MySt.wMinute:=20;
MySt.wSecond:=20;
if SetSystemTime(MyST) then ShowMessage('Change successfully')
else ShowMessage('Change failed');
end;
注意,实际的时间会加8小时,(因为是东8区)
