[Delphi] Medindo o tempo de execução de um processo

Hoje eu tive a necessidade de medir quanto tempo uma rotina levou para ser executada em um projeto que estou trabalhando…

Pensei comigo: Fácil, né? Pego a hora inicial, executo as paradas e pego a hora final…

No Delphi temos um jeito “elegante” de fazermos isso: GetTickCount.

O GetTickCount retorna o total de milissegundos já contados desde que o sistema foi iniciado. E o malandro não para mais de contar até segunda ordem

Implementação de exemplo:

A solução é simples e resolve… Por ser uma função da API do Windows, o GetTickCount pode ser utilizado em outras linguagens além do Delphi. No próprio site da Microsoft (msdn), o exemplo é dado em C++.

https://msdn.microsoft.com/pt-br/library/windows/desktop/ms724408%28v=vs.85%29.aspx

Valeu pessoal, abraços!

 

 

3 respostas para “[Delphi] Medindo o tempo de execução de um processo”

Deixe uma resposta para Edgar Pavao Cancelar resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *