[Delphi] - Aide processus

Bonjour, je travaille sur un projet en delphi et je voudrais récupérer le nom de la fenêtre active et le nom du processus de la fenêtre active, de sorte a récupérer le titre et le nom de processus utiliser dans une session d'utilisateur, j'ai deja la fonction qui me sert a récupérer le titre de la fenêtre active:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

function AvtiveWindow() : string; var Handle: THandle; Len: LongInt; Title: string; begin Result := ''; Handle := GetForegroundWindow; if Handle <> 0 then begin Len := GetWindowTextLength(Handle) + 1; SetLength(Title, Len); GetWindowText(Handle, PChar(Title), Len); Result := TrimRight(Title); end; end;

---

Mais je ne sais pas comment récupérer le nom du processus qui a le focus

Merci de l'aide que vous pourrez m'apporter :)

Bonjour,

Citation:

---

Envoyé par overlock86

Mais je ne sais pas comment récupérer le nom du processus qui a le focus

---

Une fois obtenu le handle de la fenêtre, il faut récupérer par le ProcessId via GetWindowThreadProcessId puis le handle du processus via OpenProcess et enfin le nom du processus via GetModuleFileNameEx. ;)
Le tout se trouve dans l'unité Windows de Delphi sauf la dernière fonction qui est dans l'unité PsApi.

Merci de ta réponse mais je débute un peut et comme je n'ai jamais manipuler les processus en delphi j'aurais aimé avoir un petit exemple si possible :)
Merci !!

Citation:

---

Envoyé par overlock86

Merci de ta réponse mais je débute un peut et comme je n'ai jamais manipuler les processus en delphi j'aurais aimé avoir un petit exemple si possible :)
Merci !!

---

Voici un bout de code minimal qui devrait fonctionner :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

function GetExeName: String; var WinHdl, PrcHdl: THandle; Id: DWORD; ExeName: PChar; begin // Handle de la fenêtre WinHdl := GetForegroundWindow; // Id du processus GetWindowThreadProcessId(WinHdl, Id); // Handle du processus PrcHdl := OpenProcess(PROCESS_QUERY_INFORMATION + PROCESS_VM_READ, False, Id); ExeName := StrAlloc(256); GetModuleFileNameEx(PrcHdl, 0, ExeName, 255); // Libérer impérativement ce Handle ! CloseHandle(PrcHdl); Result := String(ExeName); end;

---

A améliorer ! Aucune vérification n'est faite sur la validité des handles obtenus ou de la chaîne de caractères... ;)