[RusMaXXX]

Сообщение от dagi88

а как все это выглядит в виде кода, если не сложно напишите

вот

Код:

procedure SetDateTime(Year : word; Month, Day : byte; Hour, Min, Sec, MSec : byte);
var
  ATime: TSystemTime;
begin
  with ATime do
  begin
    wYear := Year;
    wMonth := Month;
    wDay := Day;
    wHour := Hour;
    wMinute := Min;
    wSecond := Sec;
    wMilliseconds := MSec;
  end;
  SetLocalTime(ATime);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ATime: TSystemTime;
begin
  GetLocalTime(ATime);
  SetDateTime(ATime.wYear+1,ATime.wMonth, ATime.wDay, ATime.wHour, ATime.wMinute, ATime.wSecond, ATime.wMilliseconds);         
end;