Scalabium Software

SMExport advertising
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
 
SMImport suite
SMDBGrid
Protected Storage Viewer
DBISAM Viewer
DBISAM Password Recovery
Viewer for MS Outlook Messages
SMExport suite
Paradox Viewer
Paradox to Text converter
ABA Document Convert
 
 


Contact to webmaster

 

Borland Software Code Gear Scalabium Delphi tips

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

SMReport Autogenerated