Discussion :

[overlock86]

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

[Ph. B.]

Bonjour,

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.

[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 !!

[Ph. B.]

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 :

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
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...