Discussion :

[Teddy]

Bonjour,
J’aimerais récupérer dans un fichier les processus en cours sous Windows en lançant taskmgr.exe avec une commande Shellexecute sous Delphi.
Mais ça ne fonctionne pas.
Même en mode console la commande « taskmgr.exe > fichier.txt » crée un fichier vide alors que le gestionnaire des tâches se lance bien.
Si vous avez une idée, je suis preneur !
Merci.

[Ph. B.]

Bonjour,

J’aimerais récupérer dans un fichier les processus en cours sous Windows en lançant taskmgr.exe avec une commande Shellexecute sous Delphi.
Mais ça ne fonctionne pas.
Même en mode console la commande « taskmgr.exe > fichier.txt » crée un fichier vide alors que le gestionnaire des tâches se lance bien.
Si vous avez une idée, je suis preneur !

1. Eviter de passer par une commande tiers via ShellExecute
2. Lire la http://delphi.developpez.com/faq/?pa...ocessus-actifs

[Linkin]

Entièrement d'accord avec PH. B., si toutefois tu veux quand même la liste des processus en ligne de commande c'est tasklist

[Teddy]

Bonjour,

@Ph. B.:
Je m'efforcerai maintenant de penser à visiter la faq avant de poster! Merci pour le lien.
Par curiosité, quel est l'inconvénient ou le risque d'utiliser shellexecute?

@Linkin
Si je n'ai pas de succès avec la solution de Ph. B. (ce qui m'étonnerait), j'essaierai Tasklist.

Merci à vous deux.

[Roland Chastain]

Il manque dans l'article de la FAQ le nom de l'unité à déclarer :

Code :

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

1
2
uses
  TLHelp32;

@Alcatîz
J'ai voulu l'ajouter mais je n'ai pas trouvé comment éditer l'article.
Pourtant je crois me souvenir que je faisais partie des mainteneurs.

[Roland Chastain]

Autrement, pour répondre à la question initiale, le code suivant suivant fonctionne (quoique la solution basée sur l'unité TLHelp32 soit meilleure) :

Code :

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

  ShellExecute(0, nil, 'cmd.exe', PChar('/c tasklist > tasklist.txt'), nil, SW_HIDE);

[Teddy]

Autrement, pour répondre à la question initiale, le code suivant suivant fonctionne (quoique la solution basée sur l'unité TLHelp32 soit meilleure) :

Code :

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

  ShellExecute(0, nil, 'cmd.exe', PChar('/c tasklist > tasklist.txt'), nil, SW_HIDE);

Merci pour l’info.
Effectivement, j’ai essayé la procedure de la fac sans succès et sans chercher pourquoi, et j’ai donc utilisé le shellexecute qui fonctionne bien. C’est juste une bidouille pour savoir quel est le processus qui se déclenche par moment, et qui fait monter le processeur au maximum de sa fréquence (temp à 60°). D’où la nécessité d’enregistrer et comparer les processus en cours avant et après le phénomème.