Comment connaitre le nom du "Groupe Utilisateur" win d'un utilisateur ?

Version imprimable

11/09/2008, 15h11
krilas

Comment connaitre le nom du "Groupe Utilisateur" win d'un utilisateur ?

:salut: à ts,

Je suis nouveau avec Delphi et sur le forum.

Je developpe une applicationet pour faire des validation de session utilisateur, je cherche a connaitre s'il y a un moyen de connaitre le "UserGroup" d'un utilisateur windows avec Delphi.

Merci d'avance de votre aide.:roll:
12/09/2008, 09h09
SergioMaster

une piste

en général , dans toutes mes applis , je pose sur ma fiche principale un composant TjvComputerInfoEx ( fait partie de la JVCL) qui me permet d'obtenir une "tonne" d'informations sur l'utilisateur, l'Ip, le groupe de travail les répertoires etc.. et ce indépendamment de la version Windows.

étant donné que tu est 'nouveau' avec Delphi je n'ose pas te renvoyer sur les fonctions de JWAPI (toujours du groupe JEDI)

Tu peux accèder aux variables système

%userdomain%
%username%
%OS%
etc...

par la ligne de commande

mais aussi par programme avec le code suivant

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
32
33
 
uses ShlObj, ComCtrls;
 
fucntion CalculeVariable(StVariable : string) : String;
Var
  buffer   : pchar;
  BufParam : pchar;
  dwResult : Integer;
  St       : String;
begin
  try
    getmem(buffer,4096);
    getmem(BufParam, 4096);
    try
      St :=  StVariable;
      StrPCopy(BufParam, St);
      dwResult := ExpandEnvironmentStrings(
                     BufParam,
                     buffer,
                     4096);
      if dwResult<>0 then
      begin
        Result := String(buffer);
        if (Result=StVariable) then
          Result := 'VARIABLE INCONNUE';
      end;
    finally
  //    GetMem(buffer,0);
  //    GetMem(BufParam,0);
    end;
  except
  end;
end;

Tu noteras la mise en commentaire de la libération de la mémoire, c'est un bout de code que je traîne depuis quelques années et en delphi 4 ces lignes n'étaient pas en commentaire.

Donc dans ton cas tu dois pouvoir faire

Code:

1
2
 
  showmessage(CalculeVariable('%userdomain%'));

14/09/2008, 13h51
krilas

merci

merci les gars pour votre aide inestimable.
:P:king: