Discussion :

[Mikey29]

Bonjour,

Je cherche à obtenir le nom d'une session cliente, via mon programme delphi, qui tourne sous plusieurs session d'un même TSE...
J'ai essayé avec GetHostName mais cela me donne le nom du serveur et non de la session client...

Merci d'avance à tous pour votre aide.
Mikey29

[Mikey29]

Bonjour,
Il semble que j'ai trouvé ici quelque chose qui pourrait m'aider...
https://delphi.developpez.com/faq/?p...-l-utilisateur

Merci

[ShaiLeTroll]

Dans le cadre d'un Accès TSE ou CITRIX pour avoir un affichage standard sur chaque module ainsi qu'un log de lancement
Comme toi, je surveille le Client, la session et le hote

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
{* -----------------------------------------------------------------------------
la fonction GetCurrentUserName simplifie l'appel de GetUserName pour récupérer le nom de l'utilisateur courant
@return le nom de l'utilisateur courant
------------------------------------------------------------------------------ }
function GetCurrentUserName(NameFormat: TUserNameFormat = NameUnknown): string;
var
  AccountName: array[0..UNLEN] of WideChar;
  cbAccountName: DWORD;
  Secur32H: HMODULE;
  GetUserNameEx: function(NameFormat: TUserNameFormat; lpBuffer: PWideChar; var nSize: DWORD): BOOL; stdcall;
begin
  Result := '';
  cbAccountName := UNLEN;
  if NameFormat <> NameUnknown then
  begin
    Secur32H := LoadLibrary(Secur32);
    if Secur32H <> 0 then
    try
      GetUserNameEx := GetProcAddress(Secur32H, 'GetUserNameExW');
      if Assigned(GetUserNameEx) and GetUserNameEx(NameFormat, AccountName, cbAccountName) then
        Result := AccountName;
    finally
      FreeLibrary(Secur32H);
    end;
  end
  else
    if GetUserName(AccountName, cbAccountName) then
      Result := AccountName;
end;

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
//------------------------------------------------------------------------------
class function TSliteModuleTool.GetClientComputerOfRemoteSession(out AClientComputer: string): Boolean;
// http://codeverge.com/embarcadero.delphi.non-tech/remote-desktop-question/1086940
const
  WTS_CURRENT_SERVER_HANDLE: THandle = 0;
  WTS_CURRENT_SESSION: DWORD = DWORD(-1);
type
  WTS_INFO_CLASS = (
    WTSInitialProgram, WTSApplicationName, WTSWorkingDirectory, WTSOEMId, WTSSessionId, WTSUserName, WTSWinStationName, WTSDomainName,
    WTSConnectState, WTSClientBuildNumber, WTSClientName, WTSClientDirectory, WTSClientProductId, WTSClientHardwareId, WTSClientAddress,
    WTSClientDisplay, WTSClientProtocolType, WTSIdleTime, WTSLogonTime, WTSIncomingBytes, WTSOutgoingBytes, WTSIncomingFrames, WTSOutgoingFrames,
    WTSClientInfo, WTSSessionInfo, WTSSessionInfoEx, WTSConfigInfo, WTSValidationInfo, WTSSessionAddressV4, WTSIsRemoteSession
  );
type
  TWTSQuerySessionInformationFunction = function(hServer: THandle; SessionId: DWORD; WTSInfoClass: WTS_INFO_CLASS; var ppBuffer: PChar; var pBytesReturned: DWORD): BOOL; stdcall;
  TWTSFreeMemoryProcedure = procedure(pMemory: Pointer); stdcall;
var
  LibHandle: HMODULE;
  WTSQuerySessionInformation: TWTSQuerySessionInformationFunction;
  WTSFreeMemory: TWTSFreeMemoryProcedure;
  Buffer: PChar;
  BytesReturned: DWORD;
begin
  Result := False;
 
  if IsRemoteSession() then
  begin
    LibHandle := LoadLibrary('wtsapi32.dll');
    if LibHandle <> 0 then
    begin
      try
        @WTSQuerySessionInformation := GetProcAddress(LibHandle, {$IFDEF UNICODE}'WTSQuerySessionInformationW'{$ELSE}'WTSQuerySessionInformationA'{$ENDIF});
        @WTSFreeMemory := GetProcAddress(LibHandle, 'WTSFreeMemory');
 
        if Assigned(WTSQuerySessionInformation) and Assigned(WTSFreeMemory) then
        begin
          if WTSQuerySessionInformation(WTS_CURRENT_SERVER_HANDLE, WTS_CURRENT_SESSION, WTSClientName, Buffer, BytesReturned) then
          begin
            try
              AClientComputer := Buffer;
              Result := True;
            finally
              WTSFreeMemory(Buffer);
            end;
          end;
        end;
      finally
        FreeLibrary(LibHandle);
      end;
    end;
  end;
end;

[Mikey29]

Wouha ! Merci beaucoup pour ce super exemple de code !

Mikey29.