Einzelnen Beitrag anzeigen

WilliWinzig

Registriert seit: 10. Jul 2011
Ort: Berlin/Brandenburg
8 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Terminalserver-Betrieb unter 64bit erkennen

  Alt 22. Sep 2014, 18:41
Die Antwort lautet:

Delphi-Quellcode:
uses System.SysUtils;
.....

function isTSClient: Boolean;
var cClient : String;
begin

cClient:= Trim(GetEnvironmentVariable('CLIENTNAME'));

Result:= Length(cClient) > 0;
end;
Die Funktion liefert allerdings auch bei RDP-Zugriff auf normalen PC's "TRUE" zurück
da Clientname immer bei RDP-Verbindungen gesetzt wird.

MfG
  Mit Zitat antworten Zitat