Scalabium Software
Knowledge for your independence'.
Home Delphi and C++Builder tips

#53: How can I set a clock (system datetime) in MS Windows?

If you need set the system date and time in MS Windows from your application, then you can use the next code:

function ChangeSystemDateTime(dtNeeded: TDateTime): Boolean;
var
  tzi: TTimeZoneInformation;
  dtSystem: TSystemTime;
begin
  GetTimeZoneInformation(tzi);
  dtNeeded := dtNeeded + tzi.Bias / 1440;
  with dtSystem do
  begin
    wYear := StrToInt(FormatDateTime('yyyy', dtNeeded));
    wMonth := StrToInt(FormatDateTime('mm', dtNeeded));
    wDay := StrToInt(FormatDateTime('dd', dtNeeded));
    wHour := StrToInt(FormatDateTime('hh', dtNeeded));
    wMinute := StrToInt(FormatDateTime('nn', dtNeeded));
    wSecond := StrToInt(FormatDateTime('ss', dtNeeded));
    wMilliseconds := 0;
  end;
  Result := SetSystemTime(dtSystem);
end;

Published: December 10, 1999

See also

	Paradox ActiveX
	DBExport tools
	SMImport suite
	SMExport suite
	Metafile Convert
	DBLoad
	Excel Web-stream
	SMMsg suite
	Clarion Viewer
	ABA Picture Convert

Contact to webmaster