Citrix User identifizieren

[erich.wanker]

Zitat von mkinzler:

Ich meinte ob dort verschiedenen Benutzer verwendet werden?

Ja

ich hab mal auf die schnelle was getestet:

Delphi-Quellcode:

// Mein Computer
function GetMyComputerName: string;
var
  c: array[0..127] of Char;
  i: dword;
begin
  i:= SizeOf(c);
  GetComputerName(c,i);
  result:=c;
end;

// Mein Client
function GetMyClientName:String;
begin
  result := SysUtils.GetEnvironmentVariable('CLIENTNAME');
end;


procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
showmessage('Programm läuft auf: '+GetMyComputerName);
showmessage('Sie befinden sich auf: '+GetMyClientName);
// kann sein "Console" oder empty
end;

wenn ich nun eine Anwendung auf - sagen wir mal Rechnername: Citrix leg:

Kann ich davon ausgehen, daß folgende Aussagen stimmen ?

Delphi-Quellcode:

if (GetMyComputerName = 'Citrix') AND  (GetMyClientName = '') then \\ ich bin auf dem Citrix
if (GetMyComputerName = 'Citrix') AND  (GetMyClientName = 'Console') then \\ ich bin auf dem Citrix
if (GetMyComputerName = 'Citrix') AND  (GetMyClientName <> '') AND  (GetMyClientName <> 'Console' )then \\ ich bin auf dem Citrix in einer Session

Vielen Dank

Erich