如何在delphi 中修改机器的系统时间和日期。

Question

var
  SLT: SYSTEMTIME;
begin
  SLT.wYear:= 2002;
  SLT.wMonth:= 8;
  SLT.wDay:= 27;
  SLT.wHour:= 10;
  SLT.wMinute:= 10;
  SLT.wSecond:= 10;
  SetLocalTime(SLT);
end;

Answer 1

var
  SLT: SYSTEMTIME;
begin
  SLT.wYear:= 2002;
  SLT.wMonth:= 8;
  SLT.wDay:= 27;
  SLT.wHour:= 10;
  SLT.wMinute:= 10;
  SLT.wSecond:= 10;
  SetLocalTime(SLT);
end;

Answer 2

//Windows
function SetLocalTime(const lpSystemTime: TSystemTime): BOOL; stdcall;  PSystemTime = ^TSystemTime;
  _SYSTEMTIME = record
    wYear: Word;
    wMonth: Word;
    wDayOfWeek: Word;
    wDay: Word;
    wHour: Word;
    wMinute: Word;
    wSecond: Word;
    wMilliseconds: Word;
  end;

Answer 3

SystemParametersInfo具体如何读取和修改，你要查API手册