(在线等待。。。）如何实时返回程序启动经过的时间？好象有一个函数，有谁知道么，快来砸我！

Question

同上！

Answer 1

启动时记下gettickcount
想知道时间时再来一下,两次结果相减就行。

Answer 2

我试过，编译的时候提示gettickcount没定义是为什么？能把准确的语法写一下么？

Answer 3

gettickcount得到开机以来的时间，以毫秒为单位！

Answer 4

var i,j :word;
    s :string; 
begin
  i :=GetTickCount;
  {  开机过程  }
  j :=GetTickCount;
  s :=inttostr((j-1)/1000)+'秒';
end;

Answer 5

大家帮我看看如下程序！我想实现程序启动后三秒后x等于5！var i:int;
     x:int;
begin
   while i:=GettickCount
    if ((i-GettickCount)/1000) <3 ) then do;
    else x:=5; 
 
end;编译后x能得到5么？

Answer 6

var i:integer;
     x:integer;
begin
  i:=GettickCount;
  while GettickCount-i /1000>=3 do break;
  x:=5;