delphi如何获取文件的参数(delphi 获取计算机,Delphi中用GetTickCount获取计算机运行时间)

提示：函数返回格式：天、小时、分钟、秒functionwindowsuptime : string； functionmsectotime (msec : integer ) : string； 常数.

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

functionwindowsuptime :字符串；

functionmsectotime (msec : integer ) : string；

常数

第二时间=1000；

minuteTicks=1000 * 60；

hourTicks=1000 * 60 * 60；

dayTicks=1000 * 60 * 60 * 24；

var

d，h，m，S: string；

比根

ZH :=mSec div hourTicks；

ZM :=mSec div hourTicks；

zs :=毫秒div second ticks；

d:=inttostr(ZD )；

h:=inttostr(zh；

m:=inttostr(zm；

s:=inttostr(zs；

Result :=D '.'慢慢百合' :' M ':' S；

结束；

比根

result :=毫秒(gettickcount；

结束；