Bien sûr, pour utiliser la procedure GetThreadStats(), il faut que le Thread soit terminé mais pas encore libéré. Donc
MonThread.FreeOnTerminate := false;
Ensuite, il suffit de lui passer le handle d'un Thread dont on veut mesurer les performances et une chaîne pour l'identifier. On le libèrera juste après :
GetThreadStats(MonThread.Handle,'Mon thread');
MonThread.Free;
La démo est minimaliste, mais elle permet cependant d'effectuer certaines expériences très intéressantes sur les Threads, en particulier l'étude de l'influence des priorités. On découvre des trucs surprenants !
Un grand merci à WhiteHyppo qui a éclairé ma lanterne.