Código
var
TempoInicial, TempoFinal, Intervalo: Integer
begin
TempoInicial := GetTickCount;
...
// código a ser executado
...
TempoFinal := GetTickCount;
Intervalo := TempoFinal - TempoInicial;
end.
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009