Handle & ProcessusRésolu

Question

Bonjour !

Je voudrais savoir :
Comment savoir si un processus est en cours d'execution (avec le nom de l'executable si possible)
Comment obtenir le handle de sa fenetre principale (si il est en cours d'execution)

Merci d'avance

cptpingu · Accepted Answer

Voila un extrait de l'un de mes programmes. Ces fonctions ont été crée à partir de celles données sur Developpez.com:

  tagPROCESSENTRY32 = packed record
    dwSize: DWORD;               // taille de l'enregistrement
    cntUsage: DWORD;             // Compteur de référence du process, si zéro le process se termine.
    th32ProcessID: DWORD;        // Identifiant du process
    th32DefaultHeapID: DWORD;    // Identifiant de la pile par défaut du process
    th32ModuleID: DWORD;         // Identifiant du module du process
    cntThreads: DWORD;           // Nombre de thread du process
    th32ParentProcessID: DWORD;  // Identifiant du process parent ( 'son créateur' )
    pcPriClassBase: Longint;     // Priorité de base des threads crée par ce process
    dwFlags: DWORD;              // Réservé
    szExeFile: array[0..MAX_PATH - 1] of Char; // le nom de l'exécutable.
  end;

procedure TForm1.ListerLesProcessus(Sender: TObject);
var
 ProcListExec : TProcessentry32;
 PrhListExec : Thandle;
 Continu : Boolean;
 ProcessCourant :String;
begin
CheckListBox1.Clear;
   ProcListExec.dwSize:=sizeof(ProcListExec);
   Continu := True;
 Try
  PrhListExec:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
  if (PrhListExec <> INVALID_HANDLE_VALUE)
  then
  begin
  Process32First(PrhListExec,ProcListExec);
    while Continu do
    begin
    ProcessCourant := Uppercase(ExtractFileName(ProcListExec.szExeFile));
    ProcessCourant := ChangeFileExt(ProcessCourant,'');
    CheckListBox1.AddItem(ProcessCourant,nil);
    Continu := Process32Next(PrhListExec,ProcListExec);
    end;
  end;
 Finally
   CloseHandle(PrhListExec);
 end;
end;

Si tu regarde bien, cela permet de lister les processus. Donc pour savoir s'il un programme est en cours d'execution fait la liste de tout les programmes en cours et regarde si ton programme est dedans. Pour avoir le Handle, regarde la 2eme procedure c'est dedans.

flo160fr · Answer

Merci beaucoup pour ton aide ! 

Une derniere question : coment on fait pour modifier la caption d'une form avec son handle ?

flo160fr · Answer

Et ton   tagPROCESSENTRY32 =  packed record c'est yn type non ?
 Type  tagPROCESSENTRY32  = packed record    ??

cptpingu · Answer

>> Comment on fait pour modifier la caption d'une form avec son handle ?
Je pense que c'est possible, mais je n'ai jamais essayé

>> packet record
C'est comme un "record" mais en compressé. C'est parfois utile notemment pour des requetes réseaux.

DRJEROME · Answer

bonjour, essaie :

SetWindowText(tonhandle,'le texte que tu veux');

DrJerome

flo160fr · Answer

Merci a vous deux pour votre aide précieuse ^^

flo160fr · Answer

(au fait pour le handle ça marche pas  )

Handle & Processus

7 réponses

Votre réponse

Discussions similaires