Mega Code Archive
Change the system date
<![CDATA[
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.
]]>