From the May 2008 Issue of Prestwood eMag

Delphi Using Data: Setting the System Time in Delphi By Mike Prestwood

Posted 16 years ago on 2/26/2008 and updated 5/5/2008 Take Away: SetSystemTime Example KB100884

Setting the system time in Windows 95/NT is rather simple. It requires a variable of type TSystemTime, which is a record that contains values for the date and the time. After filling the values in TSystemTime, pass it into SetSystemTime and Windows will update the system clock.

Delphi provides a function that simplifies the process of setting the values in TSystemTime. The function is DateTimeToSystemTime and takes two parameters, a Delphi TDateTime and a TSystemTime variable. The function then converts the TDateTime value to a TSystemTime and returns it in the TSystemTime variable.

Here is an example of setting the system time to the value types into an Edit Box:

procedure TForm1.Button1Click(Sender: TObject); 

var

   sysTime : TSystemTime;

begin

   DateTimeToSystemTime(StrToDateTime(Edit1.Text), sysTime);

   SetSystemTime(sysTime);

end;

Christophe Ravaut

Comment 1 of 3 What about the TimeZone? see http://www.swissdelphicenter.ch/en/showcode.php?id=90 Posted 16 years ago

Mike Prestwood

Comment 2 of 3 Very nice Christophe. Good solution. Posted 16 years ago

Comment 3 of 3 At the time when readers come on this blog and start searching about the setting system but they can‘t found it on this blog. If someone wants to get information about online essay writer and this setting the system time in Delphi they should come on my blog and get the information with detail. Posted 56 months ago

KB Post Contributed By Mike Prestwood:

Mike Prestwood is a drummer, an author, and creator of the PrestwoodBoards online community. He is the President & CEO of Prestwood IT Solutions. Prestwood IT provides Coding, Website, and Computer Tech services. Mike has authored 6 computer books and over 1,200 articles. As a drummer, he maintains play-drums.com and has authored 3 drum books. If you have a project you wish to discuss with Mike, you can send him a private message through his PrestwoodBoards home page or call him 9AM to 4PM PST at 916-726-5675 x205. Visit Profile