Change the system date

Windows with Delphi
Windows API (94)
Windows Filesystem (41)
Windows Forms (69)
Windows Graphics (38)

Exchange Links

About this site

Links to us

See also:

Incrementing a date

Change the system date

This article has not been rated yet. After reading, feel free to leave comments and rate it.

Q: How do you change the system date in Delphi 3?

A: You can get and set system date/time using GetSystemTime and SetSystemTime from Win32 library.

(*
  System time is represented with the following structure:
  TSystemTime = record
    wYear: Word;
    wMonth: Word;
    wDayOfWeek: Word;
    wDay: Word;
    wHour: Word;
    wMinute: Word;
    wSecond: Word;
    wMilliseconds: Word;
  end;
*)
uses
  Windows, Dialogs, Forms;

var
  MyTime : TSystemTime;
begin
  FillChar (MyTime, sizeof(MyTime), #0);
  MyTime.wYear := 1998;
  MyTime.wMonth := 12;
  MyTime.wDay := 24;
  // fill out more.. important!
  if not SetSystemTime (MyTime) then
    ShowMessage ('Failure!');
end.

Send a message to
Subject

Comments:

NEW: Optional: Register Login Email address (not necessary): Rate as	Hide my email when showing my comment. Please notify me once a day about new comments on this topic. Please provide a valid email address if you select this option, or post under a registered account.

	Show city and country Show country only Hide my location
You can mark text as 'quoted' by putting [quote] .. [/quote] around it.
Please type in the code:
Please do not post inappropriate pictures. Inappropriate pictures include pictures of minors and nudity. The owner of this web site reserves the right to delete such material. Add a picture:


	Search: