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;
|
Copyright© 1998-2024, Scalabium
Software. All rights reserved. |