[GetThreadTimes] % CPU utilisé par une appli.. des précisions ?

% CPU utilisé par une appli.. des précisions ? [GetThreadTimes] - Delphi/Pascal - Programmation

Marsh Posté le 24-09-2003 à 21:39:03    

Bonjour !
 
j'ai quelques problemes avec getthreadtimes.
 
Cette fonction permet d'obtenir des stats sur le thread en question.
 
Elle me sert a monitorer le % CPU utilisé par mon thread.
 
j'utilise une fonction du type :
 

Code :
  1. function Tbenchs.GetTheThreadTimes(PID: integer) : Double;
  2. var
  3.   lpLocalFileTime : TFileTime;
  4.   lpSystemTime    : TSystemTime;
  6.   lpCreationTime,
  7.   lpExitTime,
  8.   lpKernelTime,
  9.   lpUserTime      : TFileTime;
  11.   KernelTime,
  12.   UserTime   : TDateTime;
  14.   SecRunning,SecCPU : Int64;
  17. begin
  18.       GetThreadTimes(PID, lpCreationTime, lpExitTime, lpKernelTime,
  19. lpUserTime);
  21.       FileTimeToLocalFileTime(lpCreationTime, lpLocalFileTime);
  23.       //Get the kernel time and format it
  24.       FileTimeToSystemTime(lpKernelTime, lpSystemTime);
  25.       KernelTime := SystemTimeToDateTime(lpSystemTime);
  27.       //Get the user time and format it
  28.       FileTimeToSystemTime(lpUserTime, lpSystemTime);
  29.       UserTime := SystemTimeToDateTime(lpSystemTime);
  31.       SecCPU := MilliSecondsBetween(TimeOf(Usertime+Kerneltime),0);
  32.       SecRunning := MilliSecondsBetween(TimeOf(Now()),TimeOf(StartTime));
  33.       Result  := (SecCPU / SecRunning) * 100.0;
  35. end;


 
avant de lancer le thread, la ligne juste au dessus, je fais un :  
StartTime := now();
 
Ca marche bien.
 
Mais deux questions suivent :
-Que ce passera t'il apres 24h ? ca va forcément bugguer, nan ? Sans le timeof, j'ai pas réussi a avoir une valeur correcte... une idée ?
-Y a t'il moyen de s'en sortir avec getprocesstimes pour avoir le temps CPU + GUI en meme temps ? si oui, comment ? J'ai déjà essayé d'enregistrer les valeurs de départ et de les soustraire aux valeurs que j'obtenais... sans succès.
 

Code :
  1. function Tbenchs.GetTheProcessTimes():Double;
  2. var
  3.   lpLocalFileTime : TFileTime;
  4.   lpSystemTime    : TSystemTime;
  6.   lpCreationTime,
  7.   lpExitTime,
  8.   lpKernelTime,
  9.   lpUserTime      : TFileTime;
  11.   PH : THandle;
  13.   KernelTime,
  14.   UserTime   : TDateTime;
  16.   SecRunning,SecCPU : Int64;
  19. begin
  20. PH := OpenProcess(PROCESS_QUERY_INFORMATION, FALSE, GetCurrentProcessId());
  21.   if PH <> 0 then
  22.       GetProcessTimes(PH, lpCreationTime, lpExitTime, lpKernelTime, lpUserTime);
  25.       FileTimeToLocalFileTime(lpCreationTime, lpLocalFileTime);
  27.       //Get the kernel time and format it
  28.       FileTimeToSystemTime(lpKernelTime, lpSystemTime);
  29.       KernelTime := SystemTimeToDateTime(lpSystemTime);
  30.       KernelTime := KernelTime - StartKernelTime;
  32.       //Get the user time and format it
  33.       FileTimeToSystemTime(lpUserTime, lpSystemTime);
  34.       UserTime := SystemTimeToDateTime(lpSystemTime);
  35.       UserTime := UserTime - StartUserTime;
  37.       SecCPU := MilliSecondsBetween(TimeOf(Usertime+Kerneltime),0);
  38.       SecRunning := MilliSecondsBetween(TimeOf(Now()),TimeOf(StartTime));
  39.       Result  := (SecCPU / SecRunning) * 100.0;
  41.       CloseHandle(PH);
  43. end;


 
des idées ? des précisions ? de l'aide ? :(


Message édité par Tetedeiench le 24-09-2003 à 21:42:11

---------------
L'ingénieur chipset nortiaux : Une iFricandelle svp ! "Spa du pâté, hin!" ©®Janfynette | "La plus grosse collec vivante de bans abusifs sur pattes" | OCCT v12 OUT !
Reply

Marsh Posté le 24-09-2003 à 21:39:03   

Reply

Marsh Posté le 24-09-2003 à 21:41:10    

Suite a une mauvaise blague "ta fonction getthreadtimes marche mal mais nan en fait elle est bien ct du photoshop" j'edite le premier post, la seconde question est encore d'actualité, et une autre me tordslapine...


---------------
L'ingénieur chipset nortiaux : Une iFricandelle svp ! "Spa du pâté, hin!" ©®Janfynette | "La plus grosse collec vivante de bans abusifs sur pattes" | OCCT v12 OUT !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed