Your full service technology partner! 
-Collapse +Expand
Search Delphi Group:

-Collapse +Expand Delphi To/From
-Collapse +Expand Delphi Store

Prestwood eMagazine

January Edition
Subscribe now! It's Free!
Enter your email:

   ► KBProgrammingDelphi for W...Using Data   Print This     
  From the May 2008 Issue of Prestwood eMag
Delphi Using Data:
Setting the System Time in Delphi
Posted 12 years ago on 2/26/2008 and updated 5/5/2008
Take Away: SetSystemTime Example


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); 
   sysTime : TSystemTime;
   DateTimeToSystemTime(StrToDateTime(Edit1.Text), sysTime);


Share a thought or comment...
Comment 1 of 2

What about the TimeZone?


Posted 12 years ago

Comment 2 of 2
Very nice Christophe. Good solution.
Posted 12 years ago
Write a Comment...
Sign in...

If you are a member, Sign In. Or, you can Create a Free account now.

Anonymous Post (text-only, no HTML):

Enter your name and security key.

Your Name:
Security key = P1246A1
Enter key:
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 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

 KB Article #100884 Counter
Since 4/2/2008
Go ahead!   Use Us! Call: 916-726-5675  Or visit our new sales site:

©1995-2020 Prestwood IT Solutions.   [Security & Privacy]