1 2 unit Unit1; 3 4 interface 5 6 uses 7 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 8 Dialogs, StdCtrls; 9 10 type 11 TForm1 = class(TForm) 12 Button1: TButton; 13 procedure Button1Click(Sender: TObject); 14 private 15 { Private declarations } 16 public 17 { Public declarations } 18 end; 19 20 var 21 Form1: TForm1; 22 23 implementation 24 25 {$R *.dfm} 26 27 procedure TForm1.Button1Click(Sender: TObject); 28 var 29 MyTime : TSystemTime; 30 begin 31 FillChar (MyTime, sizeof(MyTime), #0); 32 MyTime.wYear := 2004; 33 MyTime.wMonth := 5; 34 MyTime.wDay := 11; 35 if not SetSystemTime (MyTime) then 36 ShowMessage ('Failed to set system time!'); 37 end; 38 39 end. 40