Discussion :

[krilas]

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

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

[Yurck]

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 :

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

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

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

[krilas]

merci les gars pour votre aide inestimable.