设置windows系统时间！！！急！！！在线等

Question

现在有两个DateTimePicker控件DateTimePicker1和DateTimePicker2。分别用其date和timeprocedure TForm54.BitBtn1Click(Sender: TObject);
var systemtime:Tsystemtime;
    DateTime:TDateTime;
begin
  DateTime:=strtodatetime(datetostr(DateTimePicker1.Date)+timetost(DateTimePicker2.Time));
  DateTimeToSystemTime(DateTime,systemtime);
  SetLocalTime(SystemTime);
  close;
end;但是这样程序运行有错： 错误为：‘2005-3-1815:08:11'is not a valid date and time.
请问应该怎么改啊

Answer 1

DateTime:=strtodatetime(datetostr(DateTimePicker1.Date)+ ' ' + timetost(DateTimePicker2.Time));

Answer 2

DateTime:=strtodatetime(datetostr(DateTimePicker1.Date)+ ' ' + timetost(DateTimePicker2.Time));---------------------------------------------------------------------------
DateTime:=strtodatetime(datetostr(DateTimePicker1.Date)+ Char(32)+ timetost(DateTimePicker2.Time));

Answer 3

也不行啊，strtodatetime后会自动把我的空格去掉了
还是那样错

Answer 4

你是windows xp吗  我的在windows2000上通过 在xp下不行啊！
急！！！！

Answer 5

var systemtime:Tsystemtime;
    DateTime:TDateTime;
begin
  DateTime:=strtodatetime(FormatDateTime('yyyy-mm-dd',DateTimePicker1.Date)+' '+
            FormatDateTime('hh:nn:ss',DateTimePicker2.Time));
  DateTimeToSystemTime(DateTime,systemtime);
  SetLocalTime(SystemTime);
  close;
end;

Answer 6

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := DateToStr(Now);
  Edit2.Text := TimeToStr(Now);
end;procedure TForm1.Button1Click(Sender: TObject);
var systemtime : Tsystemtime;
begin
  DateTimeToSystemTime(StrToDateTime(Edit1.Text + ' ' +Edit2.Text),systemtime);
  SetLocalTime(SystemTime);
end;end.