[D6] CreateToolhelp32Snapshot sur Terminal Server

Version imprimable

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:

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;

08/01/2015, 09h53
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) ;)

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:

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:

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

Code:

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;

08/01/2015, 11h27
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 ;)
08/01/2015, 11h47
tourlourou

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

Citation:

Envoyé par tourlourou

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:

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:

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

08/01/2015, 13h34
tourlourou

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

Citation:

Envoyé par msdn

Requirements

Minimum supported client Windows Vista

Minimum supported server Windows Server 2003
08/01/2015, 14h08
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:

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

Ou alors justement elle est censé etre dans le uses "Windows" ?
08/01/2015, 14h40
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é.

Citation:

Envoyé par briaume

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

Code:

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.
15/01/2015, 09h32
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 !