Discussion :

[PhilLU]

Bonjour,
Je souhaite que mon appli me renvoie le nom de domaine de l'environnement Citrix sur lequel elle tourne.
Si qq a une idée?
Merci pour vos réponses ;-)
PhilLu

[Ph. B.]

Bonjour,

Je souhaite que mon appli me renvoie le nom de domaine de l'environnement Citrix sur lequel elle tourne.
Si qq a une idée?

En consultant la http://delphi.developpez.com/faq/?pa...omaine-courant

Sinon avec un appel API à GetComputerNameEx https://msdn.microsoft.com/fr-fr/lib...=vs.85%29.aspx

[ShaiLeTroll]

PhiLU, j'ai posté quelque code concernant CITRIX, cela pourrait t'intéresser comme GetClientComputer, GetWindowsSession, IsCitrix, IsRemoteSession ...

Et voici en plus ma version pour le domaine

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
34
35
36
37
38
{* -----------------------------------------------------------------------------
la fonction GetCurrentUserDomainName simplifie l'appel de GetUserName et LookUpAccountName pour récupérer le nom du domaine pour l'utilisateur courant
@return le nom du domaine pour l'utilisateur courant
------------------------------------------------------------------------------ }
function GetCurrentUserDomainName(): string;
var
  AccountName: array[0..UNLEN] of WideChar;
  ReferencedDomainName: array[0..UNLEN] of WideChar;
  cbReferencedDomainName: DWORD;
  Sid: PSID;
  cbSid: DWORD;
  peUse: SID_NAME_USE;
begin
  Result := '';
 
  StrLCopy(AccountName, PWideChar(GetCurrentUserName()), MAX_PATH - 1);
  if StrLen(AccountName) > 0 then
  begin
    cbReferencedDomainName := MAX_PATH;
    cbSid := 0;
    // Il est nécessaire d'interroger une première fois pour connaitre la taible du SID
    if not LookUpAccountName(nil, AccountName, nil, cbSid, ReferencedDomainName, cbReferencedDomainName, peUse) then
    begin
      if GetLastError() = ERROR_INSUFFICIENT_BUFFER then
      begin
        GetMem(Sid, cbSid);
        try
          if LookUpAccountName(nil, AccountName, Sid, cbSid, ReferencedDomainName, cbReferencedDomainName, peUse) then
            Result := ReferencedDomainName;
        finally
          FreeMem(Sid);
        end;
      end;
    end
    else
      Result := ReferencedDomainName;
  end;
end;

[PhilLU]

Merci, ShaiLeTroll, je teste asap...

[PhilLU]

Merci ShaiLeTroll,
ça marche super!!!