unit1.~pas

这是一款用delphi设计开发的可以改变系统日期和时间的小软件

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    LabeledEdit5: TLabeledEdit;
    LabeledEdit6: TLabeledEdit;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
   var
       MyST:TSystemTime;
    begin
try
begin
         with MyST do
         begin
              wYear:=StrToInt(LabeledEdit3.Text);
              wMonth:=StrToInt(LabeledEdit2.Text);
              wDay:=StrToInt(LabeledEdit1.Text);
              wHour:=StrToInt(LabeledEdit4.Text)-8;
              wMinute:=StrToInt(LabeledEdit5.Text);
              wSecond:=StrToInt(LabeledEdit6.Text);
         end;
         SetSystemTime(MyST);
end
except
showmessage('请重新输入正确的日期时间');
end;
    end;
procedure TForm1.Button2Click(Sender: TObject);
   var
       MyST:TSystemTime;
    begin
       getSystemTime(MyST);
         with MyST do
         begin
              LabeledEdit3.text:=IntToStr(wYear);
              LabeledEdit2.text:=IntToStr(wMonth);
              LabeledEdit1.text:=IntToStr(wDay);
              LabeledEdit4.text:=IntToStr(wHour+8);
              LabeledEdit5.text:=IntToStr(wMinute);
              LabeledEdit6.text:=IntToStr(wSecond);
         end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Caption:=DateToStr(Date())+' '+TimeToStr(Time());
end;

end.