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 : Sélectionner tout - Visualiser dans une fenêtre à part
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