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

Advanced
-Collapse +Expand Delphi To/From
To/FromCODEGuides
-Collapse +Expand Delphi Store
PRESTWOODSTORE

Prestwood eMagazine

March 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 11 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;

Comments

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

What about the TimeZone?

see http://www.swissdelphicenter.ch/en/showcode.php?id=90

Posted 11 years ago

Comment 2 of 2
Very nice Christophe. Good solution.
Posted 11 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 = P1241A1
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 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

 KB Article #100884 Counter
13583
Since 4/2/2008
-
   Contact Us!
 
Have a question? Need our services? Contact us now.
--Mike Prestwood

Call: 916-726-5675

email: info@prestwood.com


Go ahead!   Use Us! Call: 916-726-5675 


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