uses ..ShellAPI;    procedure SetCurrentTime(sTime:String);
begin
  ShellExecute(Self.Handle, nil, 'cmd.exe', PChar('/C time '  sTime), nil, SW_HIDE);
end;    用法：
procedure TForm1.Button1Click(Sender: TObject);
var
  sTime:String;
begin
  sTime:='11:02:00';
  SetCurrentTime(sTime);
end;

引言: 利用Dos command: Time

uses ..ShellAPI;    procedure SetCurrentTime(sTime:String);
begin
  ShellExecute(Self.Handle, nil, 'cmd.exe', PChar('/C time '  sTime), nil, SW_HIDE);
end;    用法：
procedure TForm1.Button1Click(Sender: TObject);
var
  sTime:String;
begin
  sTime:='11:02:00';
  SetCurrentTime(sTime);
end;

＠瞭解越多.懂得越少＠

我照著上面的方法處理 不過，電腦右下角的時間顯示還是沒有更新 而且，我想問一下 cmd.exe是指什麼檔案 PChar('/C time ' sTime)這個代表什麼意思?? 謝謝!!

uses ShellAPI;    procedure SetCurrentTime(sTime:String);
begin
  ShellExecute(0, nil, 'cmd.exe', PChar('/C time '  sTime), nil, SW_HIDE);
end;    procedure TForm1.Button1Click(Sender: TObject);
var
  sTime:String;
begin
  sTime:='17:30:00';
  SetCurrentTime(sTime);
end;

引言: 我現在使用兩台電腦，因為兩台電腦的系統時間可能會不一樣， 所以每當我執行B電腦的一隻程式時，會自動抓A電腦的系統時間 當成B電腦的系統時間 現在問題是： A電腦時間是抓到了，而且B電腦的系統時間也跟A電腦一樣了 可是B電腦右下角的時間顯示卻是沒更新之前的舊時間 請問要如何讓B電腦右下角的時間能即時更新??

procedure TForm_DateRejust.btn_DateSetClick(Sender: TObject);
          var newDay: TSystemTime;
              mYear, mMonth, mDay: word;
              mHour, mMinute, mSecond, mMSecond: word;
begin
     DecodeDate(Date, mYear, mMonth, mDay);
     DecodeTime(Time, mHour, mMinute, mSecond, mMSecond);
     newDay.wYear := mYear;
     newDay.wMonth:= mMonth;
     newDay.wDay  := mDay;
     newDay.wDayOfWeek:=0;     // sun 為第一天的開始
     newDay.wHour:= mHour;
     newDay.wMinute:= mMinute;
     newDay.wSecond:= mSeccond;
     newDay.wMilliseconds:=0;  // 微秒可以不要設定
     SetLocalTime(newDay);
     SendMessage(HWND_TOPMOST, WM_TIMECHANGE, 0, 0);
end;