delphi 获取计算机,Delphi中用GetTickCount获取计算机运行时间

核心提示：函数返回格式：天,小时,分钟,秒function WindowsUpTime : string ; function MSecToTime(mSec: Integer): string; const...

函数返回格式：天,小时,分钟,秒

function WindowsUpTime : string ;

function MSecToTime(mSec: Integer): string;

const

secondTicks = 1000;

minuteTicks = 1000 * 60;

hourTicks = 1000 * 60 * 60;

dayTicks = 1000 * 60 * 60 * 24;

var

D, H, M, S: string;

ZD, ZH, ZM, ZS: Integer;

begin

ZD := mSec div dayTicks;

Dec(mSec, ZD * dayTicks) ;

ZH := mSec div hourTicks;

Dec(mSec, ZH * hourTicks) ;

ZM := mSec div hourTicks;

Dec(mSec, ZM * minuteTicks) ;

ZS := mSec div secondTicks;

D := IntToStr(ZD) ;

H := IntToStr(ZH) ;

M := IntToStr(ZM) ;

S := IntToStr(ZS) ;

Result := D + '.' + H + ':' + M + ':' + S;

end;

begin

Result := MSecToTime(GetTickCount) ;

end;

delphi 获取计算机,Delphi中用GetTickCount获取计算机运行时间相关推荐

多媒体技术是指以计算机为手段来获取,计算机应用基础win7课件第八章.ppt
文档介绍: 多媒体技术的基本知识多媒体计算机系统第8章多媒体技术基础多媒体信息的数字化和压缩技术平面图像编辑音频视频编缉8.1.1多媒体技术的概念8.1.2多媒体信息的类型8.1多媒体技术的基本知识8 ...
计算机等级delphi取消,计算机二级DELPHI控件:DELPHI过滤记录的实现方法
所谓过滤就是从表中选取满足特定条件的部分记录.过滤记录首先要通过Filter.属性设置过滤条件,然后将Filtered属性设置为True,即可从数据集组件连接的表中过滤出满足条件的记录. 1．Filt ...
qt获取本机全部ipv4_QT5下获取本机IP地址、计算机名、网络连接名、MAC地址、子网掩码、广播地址...
获取主机名称 /* * 名称:get_localmachine_name * 功能:获取本机机器名称 * 参数:no * 返回:QString */ QString CafesClient::get_ ...
delphi选择打印机:Delphi中获取打印机设备
delphi选择打印机:Delphi中获取打印机设备名和端口名疯狂代码 http://www.CrazyCoder.cn/ :http:/www.CrazyCoder.cn/Delphi/Artic ...
获取计算机内存镜像文件,计算机取证物理内存镜像获取技术的研究与实现
摘要: 随着信息技术的发展,计算机与网络成为社会政治,经济,文化生活的重要组成部分,而与此相关的各种计算机犯罪现象也日益突出.计算机取证技术成为打击计算机犯罪的重要手段,是目前计算机界和法学界共同研究 ...
delphi Mercadopago阿根廷支付（支持获取账户信息和余额、创建商店，商店查询、创建二维码、二维码查询、创建订单、订单查询、订单退款）
下载链接:https://download.csdn.net/download/liushenglin123/11435379 [delphi Mercadopago阿根廷支付]支持获取账户信息和余额 ...
js如何获取计算机当前时间,js获取当前系统时间
搜索热词下面是编程之家 jb51.cc 通过网络收集整理的代码片段. 编程之家小编现在分享给大家,也给大家做个参考. var myDate = new Date(); myDate.getYear( ...
linux获取互联网时间,linux中用shell获取时间,日期
linux中用shell获取昨天.明天或多天前的日期: 在Linux中对man date -d 参数说的比较模糊,以下举例进一步说明: # -d, --date=STRING display time ...
linux中用shell获取时间,日期
linux中用shell获取昨天.明天或多天前的日期: 在Linux中对man date -d 参数说的比较模糊,以下举例进一步说明: # -d, --date=STRING display time ...
linux中用shell获取昨天、明天或多天前的日期
linux中用shell获取昨天.明天或多天前的日期时间 2015-12-08 09:33:00 BlogJava-专家区原文 http://www.blogjava.net/xzclog/arch ...

delphi 获取计算机,Delphi中用GetTickCount获取计算机运行时间

delphi 获取计算机,Delphi中用GetTickCount获取计算机运行时间相关推荐

最新文章

热门文章