Les compteurs de performances sous nt/2k/xp avec pdh.dll

Soyez le premier à donner votre avis sur cette source.

Vue 8 352 fois - Téléchargée 864 fois

Description

Ce code permet d'accèder aux compteurs de performances grâce à une classe. Pour cela, vous devez avoir PDH.dll sur votre ordinateur (ce qui doit normalement être le cas sous 2K/XP). Ne marche pas sous 9x/ME.

Vous pouvez voir l'usage CPU total, par processus, l'utilisation mémoire,...

Le projet a été créé avec Delphi 6 Personnel.
Si vous voulez réutiliser cet objet, il faut inclure uPdh et PdhRoutines dans votre projet.

Conclusion :


La gestion d'erreur est minimale...mais normalement, il n'y a pas de bugs connus...

N'hésitez pas à commenter et à noter...

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
2676
Date d'inscription
vendredi 28 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2016
16
salut,

euh, effectivement, normalement j'aurais du mettre p.Free;...

ShareVB
Messages postés
5
Date d'inscription
jeudi 14 avril 2005
Statut
Membre
Dernière intervention
18 avril 2005

En fait j'ai une erreur quand je veux fermer la fenêtre de ton application, c'est au niveau des lignes de codes ci-dessous:

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// destruction de la requête
p.Destroy;
end;


Est il vraiment nécessaire de mettre p.Destroy ou non?
Messages postés
2676
Date d'inscription
vendredi 28 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2016
16
salut,

pour l'exception, je ne vois pas d'autant que la source n'a rien à voir avec un TextEditor.exe et que je n'ai que Delphi 6 Personnel...mais j'ai remarqué quelques plantages de l'IDE Delphi que je pense principalement dues à l'espèce d'intellisense version borland...

pour ce qui est des pourcentages, la source n'affiche que les valeurs des compteurs existants comme le fait le Perfomance Monitor de XP...

ShareVB
Messages postés
5
Date d'inscription
jeudi 14 avril 2005
Statut
Membre
Dernière intervention
18 avril 2005

Une petite dernière question:

on a que les pourcentages de performes on ne peut pes avoir les temps d'execution en ms?
Messages postés
5
Date d'inscription
jeudi 14 avril 2005
Statut
Membre
Dernière intervention
18 avril 2005

Peux tu m'expliquer brièvement comment je dois faire pour le lancer car je débute sur delphi et j'ai un petit peu de mal.

Quand jj'éxecute ton programme, il me met une erreur comme quoi une classe d'exception a été créée avec le message violation d'accès à l'adresse 0051E8A3 'TextEditor.exe'. Lecture de l'adresse 00000000' processus stoppé.

D'ou ca peut venir d'après toi.

Merci
Afficher les 13 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.