Проверить, работает ли программа в Terminal Client Session

Оформил: DeeCo

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