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 idhttp中get 图像链接通过memorystream加载 image控件显示

Delphi pascal 单元文件的特殊定义格式

Delphi 获取 设置文件时间

Delphi 把文件锁定到任务栏

Delphi stringgrid 实例3： 本例功能: 1、修改 tstringgrid的默认宽与高; 2、添加行; 3、确认当前单元并赋值.

Delphi qr /条形码扫描仪应用示例代码（使用zxing，tframestand）

Delphi adoquery filter使用

Delphi ascii码表及键盘码表

键盘钩子,鼠标钩子,Delphi环境下编写的键盘鼠标钩子的程序示例

Delphi 从流数据获知文件类型

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

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