delphi7的GetTickCount作用和用法

procedure TimeDelay(int DelayTime);var start_time: integer;beginstart_time := GetTickCount();doApplication.ProcessMessage;//通知主程序可以处理其他消息。while ((GetTickCount - start_time) < DelayTime);end;
这个函数表示什么意思或者举一些具体例子

从操作系统启动到现在所经过的毫秒数通常用来记时用。等待多少个105毫秒 function waitSec(i: integer): Boolean;
var
j, k: Int64;
begin
k := GetTickCount div 100;
j := i + k;
Result := false;
while True do
begin
if ExitWait then
Exit;
if (GetTickCount div 100) > j then
begin
Result := true;
Break;
end;
Sleep(5);
Application.ProcessMessages;
end;
end;

这个段程序是一个“延时”过程。 gettickcount是返回一个dword类型，其返回的值是自系统启动以来所经历的时间，单位：毫秒。 此段代码基本原理就是： 先gettickcount取值赋于start_time，然后不停的循环用gettickcount来和start_time来相减，直到这个差值大于参数delaytime则退出循环结束过程，从而达到延时的目的。为了不造成程序因此间循环而停止响应，故在循环中用了application.processmessage来手动使程序响应系统信息。