Discussion :

[Lung]

Est-il possible de savoir si un processus est en train de travailler, ou est simplement actif ?

En gros, si dans le gestionnaire des tâches, il y a une valeur supérieure à zéro dans la colonne processeur, ou pas.
Je pense au processus de mise à jour de l'antivirus. J'aimerais savoir (au moment où j'interrogerais) si l'exe est en train de faire une mise-à-jour, ou s'il est simplement en attente.

Une idée ?

[Mac LAK]

Tu as déjà GetProcessTimes pour les valeurs brutes, puis NdisGetCurrentProcessorCounts te donnera la formule à appliquer pour avoir la charge CPU (forcément approximative en mode User). Il te suffit en gros de sampler le processus pendant une brève période (disons 100 ms) pour avoir une estimation du pourcentage de CPU qu'il consomme.

Tu dois pouvoir te contenter de deux samplings : un à T0 et un à T100 pour faire le calcul (récupérer le temps écoulé "exact" via QueryPerformanceCounter plutôt que par GetTickCount). Plus tu "testes" longtemps ton processus, plus le chiffre sera exact, reste à savoir le délai que tu estimes raisonnable pour lancer ton action (100 ms ? 500 ms ? 1 s ?)

Autre solution, plus exacte mais peut-être plus lourde à mettre en place : Collecting Performance Data.

[Lung]

pour ta réponse.
Effectivement, ça m'a l'air de correspondre à ce que je cherche.
Pour la procédure NdisGetCurrentProcessorCounts, je lis ici (http://msdn.microsoft.com/en-us/library/bb625382.aspx) que c'est défini dans Ndis.h. Mais, en Delphi je ne vois pas comment y accéder.
J'imagine que cette procédure est accessible depuis une DLL windows, mais je n'ai pas trouvé laquelle (et je ne suis pas le seul http://www.developpez.net/forums/d68...ibrairie-ndis/).
Tu n'aurais pas une idée ?

Autre solution, plus exacte mais peut-être plus lourde à mettre en place : Collecting Performance Data.

Pour cette solution, je n'ai pas compris.

[Mac LAK]

J'imagine que cette procédure est accessible depuis une DLL windows, mais je n'ai pas trouvé laquelle (et je ne suis pas le seul http://www.developpez.net/forums/d68...ibrairie-ndis/).
Tu n'aurais pas une idée ?

C'est une fonction kernel, tu ne peux pas y accéder. L'intérêt de cette fonction ne réside QUE dans la formule décrite dans son aide.
Et pour les timings, tu utilises QueryPerformanceCounter + GetProcessTimes afin d'avoir le temps CPU du processus entre deux références temporelles, ce qui te permettra (via la formule précitée) d'obtenir la charge estimée du processus.

Pour cette solution, je n'ai pas compris.

C'est la manière de lancer les analyseurs de performance Windows. C'est un poil complexe en effet, laisse tomber si tu ne t'en sens pas le niveau, au profit de la première solution.

[Lung]

C'est une fonction kernel, tu ne peux pas y accéder. L'intérêt de cette fonction ne réside QUE dans la formule décrite dans son aide.

Ah ok.

CpuUsage = 100-100*(Idle - Idle[n])/(KernelAndUser - KernelAndUser[n]);

Mais, il me manque le Idle.
GetProcessTimes ne me le donne pas.

Voilà où j'en suis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
var
   hProcessHandle: THandle;
   nDebut, nFin, nKernelTime1, nUserTime1, nKernelTime2, nUserTime2: Int64;
   lpCreationTime, lpExitTime, lpKernelTime, lpUserTime: _FILETIME;      // TFileTime
   lpsKernelTime, lpsUserTime: _SYSTEMTIME;
begin
   hProcessHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, ProcessEntry.th32ProcessID);
   try
      if not GetProcessTimes(hProcessHandle, lpCreationTime, lpExitTime, lpKernelTime, lpUserTime) then
      begin
         Application.MessageBox(PChar('GetProcessTimes 1' + #13#10 + SysErrorMessage(GetLastError)), PChar(Caption + ' - erreur'), MB_ICONERROR + MB_OK);
         Exit;
      end;
      if not FileTimeToSystemTime(lpKernelTime, lpsKernelTime) then
         Exit;
      nKernelTime1 := (lpsKernelTime.wHour * 60 * 60 * 1000) + (lpsKernelTime.wMinute * 60 * 1000) + (lpsKernelTime.wSecond * 1000) + lpsKernelTime.wMilliseconds;
      if not FileTimeToSystemTime(lpUserTime, lpsUserTime) then
         Exit;
      nUserTime1 := (lpsUserTime.wHour * 60 * 60 * 1000) + (lpsUserTime.wMinute * 60 * 1000) + (lpsUserTime.wSecond * 1000) + lpsUserTime.wMilliseconds;

      //.Pause (nano-secondes).
      QueryPerformanceCounter(nDebut);
      repeat
         QueryPerformanceCounter(nFin);
      until((nFin - nDebut) > 5000000);

      if not GetProcessTimes(hProcessHandle, lpCreationTime, lpExitTime, lpKernelTime, lpUserTime) then
      begin
         Application.MessageBox(PChar('GetProcessTimes 2' + #13#10 + SysErrorMessage(GetLastError)), PChar(Caption + ' - erreur'), MB_ICONERROR + MB_OK);
         Exit;
      end;
      if not FileTimeToSystemTime(lpKernelTime, lpsKernelTime) then
         Exit;
      nKernelTime2 := (lpsKernelTime.wHour * 60 * 60 * 1000) + (lpsKernelTime.wMinute * 60 * 1000) + (lpsKernelTime.wSecond * 1000) + lpsKernelTime.wMilliseconds;
      if not FileTimeToSystemTime(lpUserTime, lpsUserTime) then
         Exit;
      nUserTime2 := (lpsUserTime.wHour * 60 * 60 * 1000) + (lpsUserTime.wMinute * 60 * 1000) + (lpsUserTime.wSecond * 1000) + lpsUserTime.wMilliseconds;

      _dTempsProcesseur := 100 - 100 * ( ? ) / (nKernelTime1 + nUserTime1) - (nKernelTime2 + nUserTime2);
   finally
      CloseHandle(hProcessHandle);
   end;

Sinon, le jonglage entre les _FILETIME et les _SYSTEMTIME, c'est pas simple.

[Mac LAK]

Mais, il me manque le Idle.

Tu peux l'obtenir avec GetLastInputInfo, c'est expliqué dans l'aide de la structure passée en paramètre.

[Mac LAK]

Si tu veux juste scanner un processus donné, tu peux tout simplement ne pas threader ça, et faire une attente d'environ 500 à 1000 ms, et vérifier le résultat.

Mais il me semblait que tu voulais vérifier une application à partir d'une autre application, c'est pour cela que je te parlais d'un thread plutôt que d'une attente "active" comme le ferait un petit utilitaire en ligne de commande.