[pcicom]

Saludos.

Tal vez te sirva esto..

Código Delphi [-]

function IsRemoteSession:boolean;
const
  sm_RemoteSession = $1000;
begin
  result := GetSystemMetrics(sm_RemoteSession) <> 0;
end;