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