Wenn Du in einer Remotedesktopsitzung drin bist, ist die Umgebungsvariable "CLIENTNAME" gesetzt. Gib mal in einer CMD "set" ein, dort bekommst die verfügbaren Werte.
Und hier mal die Funktionen:
Delphi-Quellcode:
// Name der eigenen Maschine, bei Terminal dort, wo das Programm ausgeführt wird
function GetMyComputerName: string;
var
c: array[0..127] of Char;
i: dword;
begin
i:= SizeOf(c);
GetComputerName(c,i);
result:=c;
end;
// Name des Clients bei Terminalverbindungen
function GetMyClientName:String;
begin
result := SysUtils.GetEnvironmentVariable('CLIENTNAME');
end;
Im Zweifel schaust Du nach, ob die beiden Werte verschieden sind, dann weisst Du, wo Du Dich befindest.
mfg
Michael