Category: Windows
Title: Change the system time
Date added: 15.03.2006
Hits: 3010

{
The input strings for date and time depends on the format you are using.
}


procedure TForm1.Button1Click(Sender: TObject);
var
  SystemTime: TSystemTime;
  NewTime, NewDate: string;
begin
  NewTime := '12:00:00';
  NewDate := '01.01.2006'; 
  DateTimeToSystemTime(StrToDate(NewDate) + StrToTime(NewTime), SystemTime);
  SetLocalTime(SystemTime);
  // Tell windows, that the Time changed!
  PostMessage(HWND_BROADCAST, WM_TIMECHANGE, 0, 0); // *
end;

1. How to associate an application with a file extension? (1643 Hits)

2. How to restart the own program? (3653 Hits)

3. How to shutdown / reboot / logoff Windows 9x/NT/Me/2000/XP? (3423 Hits)

4. How to turn on/off Caps/Num/Scroll Lock? (2604 Hits)

5. How to invoke Shutdown Windows dialog? (3069 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.