var
StartTime,EndTime:integer;
begin
StartTime:=GetTickCount;
//
EndTime:=GetTickCount;
showmessage('用时'+floattostr((EndTime-StartTime)/1000.0)+'秒');
end;
var
StartTime,EndTime:integer;
begin
StartTime:=GetTickCount;
//
EndTime:=GetTickCount;
showmessage('用时'+floattostr((EndTime-StartTime)/1000.0)+'秒');
end;