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