Scalabium Software

SMReport Autogenerated
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
 
Database Information Manager
dBase Viewer
ABA Document Convert
SMExport suite
ABA Spreadsheet Convert
MAPIMail
Paradox Viewer
SMImport suite
ExcelFile Viewer
Clarion Viewer
 
 


Contact to webmaster

 

Borland Software Code Gear Scalabium Delphi tips

Copyright© 1998-2017, Scalabium Software. All rights reserved.
webmaster@scalabium.com

SMExport advertising