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 xe 遍历指定数据库，清空各表记录

Delphi远程线程注入获取qq密码

Delphi 中文urlencode的简单办法

Delphi之木马生成原理（资源文件，和文件流的应用）

Delphi 从url地址中获得文件名

Delphi xe 枚举指定目录及子目录下的所有文件

Delphi 如何把类中的方法做参数

Delphi 计算加班时间工时的函数

Delphi获得文件的版本号

Delphi shellexecute多种用法

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

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