Discussion :

[briaume]

Bonjour,

Déjà désolé si je ne suis pas sur la bonne rubrique du forum, je ne savais pas vraiment ou placer cette requête. Mais comme il s'agit d'une fonction de l'API Windows je me suis permis de mettre ce post ici.

Nous utilisons actuellement sur notre logiciel un bout de code permettant de créer une liste des processus afin de contrôler si un programme est ouvert ou non. Pour créer la liste nous utilisons la fonction windows CreateToolhelp32Snapshot. Le problème apparaît pour les clients étant sur Terminal Server. En effet cette fonction a l'air d'afficher les processus de toutes les sessions Terminal.

Le but final étant que j'aie une liste uniquement des processus ouverts par la session en question (Affichage standard lorsque l'utilisateur accède à son gestionnaire de tâche d'ailleurs). Je n'ai malheureusement rien trouvé sur le net, pourriez-vous m’aiguiller si il est possible de le faire via cette fonction ou faut-il chercher une autre logique que notre code actuel :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
Function ExeRunning (NomApplication : Ansistring) : Cardinal;
 
Var
   ProcListExec : TProcessentry32;
   PrhListExec : Thandle;
   Flag : boolean;
 
begin
     Result:=0;
     ProcListExec.dwSize:=sizeof(ProcListExec);
     try
        PrhListExec:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
        if (PrhListExec <> INVALID_HANDLE_VALUE) then
        begin
             Flag:=True;
             Process32First(PrhListExec,ProcListExec);
             while Flag = True do
             begin
                  if (Uppercase(ExtractFileName(ProcListExec.szExeFile)) = Uppercase(ExtractFileName (NomApplication))) then
                  begin
                       Result:=ProcListExec.th32ProcessID;
                       Flag:=False;
                  end
                  else
                  Flag:=Process32Next(PrhListExec,ProcListExec);
             end;
        end;
     finally
            CloseHandle(PrhListExec);
     end;
end;

[Andnotor]

Tu as l'identificateur de processus, tu peux retrouver le numéro de session par ProcessIdToSessionId. Il te suffit ensuite de le comparer à la session de ton application (même fonction en lui passant GetCurrentProcessId)

[briaume]

Bonjour,

Merci de votre réponse rapide. Mais d'où sortez vous cette fonction "ProcessIdToSessionId".

Dois-je l'implémenter de moi-même ou est-ce une fonction disponible sur un de mes composants ?

En cherchant des bouts de code sur le net, voici comme j'ai modifié mon code en conséquences de votre remarque. Merci de me dire si je suis dans la bonne voie.

J'ai rajouté les trois fonction suivante :

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
function ProcessIdToSessionId(dwProcessId: DWORD; pSessionId: DWORD): BOOL; stdcall;
Begin
{}
End;
 
function GetSessionIdfromProccessId(const processId: DWORD; var sessionId: DWORD): boolean;
begin
    result:=ProcessIdToSessionId(processId, DWORD(@sessionId));
end;
 
function GetCurrentSessionId(ProcessTemp : DWORD): DWORD;
begin
    if not GetSessionIdfromProccessId(ProcessTemp,result) then
        result:=0;
end;

Puis rajouté une clause dans ma boucle :

Code :

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

1
2
3
4
5
6
7
8
 if (Uppercase(ExtractFileName(ProcListExec.szExeFile)) = Uppercase(ExtractFileName (NomApplication))) then
                  begin
                       If GetCurrentSessionId(ProcListExec.th32ProcessID) = GetCurrentSessionId(GetCurrentProcessId) Then
                       Begin
                            Result:=ProcListExec.th32ProcessID;
                            Flag:=False;
                       End;
                  end

[tourlourou]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
function ProcessIdToSessionId(dwProcessId: DWORD; var pSessionId: DWORD): boolean; stdcall; external Kernel32.dll;
function GetCurrentProcessId: DWORD; stdcall; external Kernel32.dll;
 
function SameSessionProcess(processId: DWORD): Boolean;
var
  MySession, HisSession: DWORD;
begin
  MySession := GetCurrentProcessId;
  Result := False;
  if ProcessIdToSessionId(processId; HisSession) 
  then Result := ( HisSession = MySession ) ;
end;

[Andnotor]

C'est une API qui existe depuis longtemps et incluse dans l'unité Windows.

ps: ta fonction GetSessionIdfromProccessId fait exactement la même chose que l'originale ProcessIdToSessionId, inutile

[tourlourou]

ProcessIdToSessionId semble apparue depuis Vista seulement alors que les autres fonctions existent depuis XP... Sous quel environnement se fait le développement ?

[Andnotor]

ProcessIdToSessionId semble apparue depuis Vista seulement alors que les autres fonctions existent depuis XP... Sous quel environnement se fait le développement ?

Non, non. Elle existe depuis Win 2000 et l'apparition du TSE.

Sinon, la fonction complète ressemblera à ceci :

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
19
20
21
22
23
24
25
26
27
28
29
30
function FindProcessIdInCurrentSession(aAppName :string) :cardinal;
var
  CurSession :dword;
  Session    :dword;
  Handle     :THandle;
  Process    :TProcessEntry32;
 
begin
  aAppName := ExtractFileName(aAppName);
  ProcessIdToSessionId(GetCurrentProcessId, CurSession);
 
  Process.dwSize := SizeOf(Process);
  Handle         := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 
  try
    if Process32First(Handle, Process) then
    repeat
      ProcessIdToSessionId(Process.th32ProcessID, Session);
 
      if (Session = CurSession) and SameText(aAppName, Process.szExeFile) then
        Exit(Process.th32ProcessID);
 
    until not Process32Next(Handle, Process);
 
    Result := 0;
 
  finally
    CloseHandle(Handle);
  end;
end;

Exit supporte depuis quelques temps un paramètre correspondant au type de résultat de la fonction. Sinon c'est bien sûr :

Code :

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

1
2
3
4
begin
  Result := Process.th32ProcessID;
  Exit;
end;

[tourlourou]

Je me suis fié à ProcessIdToSessionId sur msdn pour formuler mon hypothèse : tant mieux si ça existait avant !

Requirements

Minimum supported client Windows Vista

Minimum supported server Windows Server 2003

[briaume]

Bonjour,

Merci pour ce bout de code bien plus propre qui marche exactement comme mon ancien code... malheureusement ces histoire de session de marche pas encore.

En effet même en local, sur un seul ordinateur et un seul compte mes variables Session et CurSession ne sont pas les mêmes, et du coup ne rentre jamais dans la clause. En enlevant la première clause de mon If, je retrouve le même comportement "juste" de mon programme. (Exemple : dans le cas actuel : Session = 33051388 et CurSession = 5026080 )

Merci de m'éclairer encore sur ce point.

Edit : on est d'accord que la fonction "ProcessIdToSessionId" je suis quand même obligé de l'implémenter avec :

Code :

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

function ProcessIdToSessionId(dwProcessId: DWORD; var pSessionId: DWORD): boolean; stdcall; external Kernel32.dll

Ou alors justement elle est censé etre dans le uses "Windows" ?

[Andnotor]

Ton code est faux

La numérotation des sessions utilisateurs devrait commencer à 0 en XP et 1 depuis Vista. Pour info, tu peux afficher la colonne "ID de session" dans le gestionnaire de tâches.
Ici, tes variables ne semblent pas être initialisées, comme si ProcessIdToSessionId n'était pas appelé.

on est d'accord que la fonction "ProcessIdToSessionId" je suis quand même obligé de l'implémenter avec :

Code :

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

function ProcessIdToSessionId(dwProcessId: DWORD; var pSessionId: DWORD): boolean; stdcall; external Kernel32.dll

Tu ne devrais pas avoir à la redéfinir (sous D6 sans certitude). Remplace tout de même boolean par bool.

[briaume]

Bonjour,

En effet, suite à la correction de mon code et la récupération des vrais numéros de session, cela marche parfaitement.

Merci beaucoup !