請問如何設定 系統時間 |
|
答題得分者是：hagar
|
|
loyuanying
一般會員   發表：3 回覆：0 積分：0 註冊：2002-10-07 發送簡訊給我 |
新手請教
如何將 指定的日期寫入至本機的系統時間呢？
如原系統時間為 2003/04/15 要修正為 2003/03/15
這是從別處取得的程式碼，但編譯時會有錯誤訊息，
又不知如何是好...抑或有更好的解決方法？！ procedure TForm1.Button1Click(Sender: TObject);
var newTime : TSystemTime;
begin
newTime.wYear := 2003;
newTime.wMonth := 3;
newTime.wDayOfWeek := DayOfWeek(now);
newTime.wDay := 15;
newTime.wHour := 5;
newTime.wMinute := 0;
newTime.wSecond := 0;
newTime.wMilliseconds := 0;
SetLocalTime(newTime);
SendMessage(HWND_TOPMOST, WM_TIMECHANGE, 0, 0);
end;
錯誤訊息 Illegal character in input file ' '[$A140] 有點急 懇請幫忙！ 蘿蔔
------
蘿蔔 |
|
hagar
版主   發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
發表時間：2003-04-15 11:10:52
IP:210.243.xxx.xxx 未訂閱
系統時間：2024-05-20 15:59:50
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |