I.T. Discussion Community!
-Collapse +Expand
Delphi
Search Delphi Group:

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

Prestwood eMagazine

February 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

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 3

What about the TimeZone?

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

Posted 12 years ago

Comment 2 of 3
Very nice Christophe. Good solution.
Posted 12 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 10 hours 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 = P1216A1
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
14148
Since 4/2/2008

Follow PrestwoodBoards on: 


©1995-2020 PrestwoodBoards  [Security & Privacy]
Professional IT Services: Coding | Websites | Computer Tech