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 文件路径相关的字符串操作

Delphi combobox和listbox的文字可以右对齐显示

Delphi unigui 控件动画

Delphi 计算一个字符串在另一个字符串中出现的次数

Delphi 根据注册表信息判断程序是否安装

Delphi -- 农历算法单元

Delphi检测用户是否具有administrator权限

Delphi xe增强的rtti妙用－－动态创建包中的窗口类

Delphi webbrowser全选\复制\粘贴

Delphi 2007 使用shelltreeview控件

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

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