function IsRemoteSession: Boolean;const sm_RemoteSession = $1000; { from WinUser.h }begin Result := GetSystemMetrics(sm_RemoteSession) <> 0;end;