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 10 firedac 连接池设置

windows关机函数exitwindowsex使用大全(适用windows所有操作平台)

Delphi cef4Delphi 常用设置

Delphi 详解variant 的相关函数

Delphi removeinvalid截取字符串某个字符前面的字符

Delphi 删除只读文件

Delphi的组件选项卡(component palette)

Delphi 禁止用键盘左右箭头,去切换pagecontrol页签

Delphi 通过api 隐藏任务栏所有托盘图标

Delphi 固定保持datetime日期格式

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...