delphi 获取系统日期时间

本文整理自网络，侵删。

 
function NowGMT: TDateTime;
var
  ST: TSystemTime;
begin
  // This Windows API function gets system time in UTC/GMT
  // see http://msdn.microsoft.com/en-us/library/ms724390
  GetSystemTime(ST);
  Result := SystemTimeToDateTime(ST);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.text:=DateTimetostr(NowGMT);

end;
 

相关阅读 >>

Delphi app检测智能手机震动

Delphi的字符截取函数leftstr,midstr,rightstr的介绍以及字符串拆分

Delphi 文件路径获取文件名不带扩展名

Delphi 如何获得其他进程的token

Delphi 利用sendinput模拟鼠标键盘

Delphi tms web core直接从html&css设计的页面布局

Delphi复制文件夹内所有文件

Delphi 字符串中提取字母数字

Delphi取得文件图标并在tlistview中显示

Delphi 取得开机时间 开机时间总长度（可精确到秒，分钟等）

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

转载请注明出处：木庄网络博客 » delphi 获取系统日期时间