delphi �O置系�y�r�g

本文整理自网络，侵删。

 function SetSystemtime(ATime: TDateTime): Boolean;
var
ADateTime: TSystemTime;
yy, mon, dd, hh, min, ss, ms: Word;
begin
decodedate(ATime, yy, mon, dd);
decodetime(ATime, hh, min, ss, ms);
with ADateTime do
begin
wYear := yy;
wMonth := mon;
wDay := dd;
wHour := hh;
wMinute := min;
wSecond := ss;
wMilliseconds := ms;
end;
Result := SetLocalTime(ADateTime);
SendMessage(HWND_BROADCAST, WM_TIMECHANGE, 0, 0);
end; 

相关阅读 >>

Delphi getwindowtext - 获取窗口标题

Delphi inc函数和dec函数的用法

Delphi tchart使用经验小结

Delphi下spcomm串口编程

Delphi tstrings 随机打乱

Delphi 给gmail发送邮件

Delphi 如何使用findfirst搜索不同的文件类型？

字符串提取算法

Delphi sametext

Delphi idhttp的基本用法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi �O置系�y�r�g