检测程序是否在远程桌面下运行

check if we are running in a terminal client session?

Author: P. Below  

function IsRemoteSession: Boolean;

const

 sm_RemoteSession = $1000; { from WinUser.h }

begin

 Result := GetSystemMetrics(sm_RemoteSession) <> 0;

end;