Pascal-Program uzak masaüstü bağlantısı ile mi çalışıyor

Program eğer uzak bağlantı ile çalışıyorsa true değilse false döndürür.

uses Windows;
function IsRemoteSession: Boolean;
const
  SM_REMOTESESSION = $1000; // value to pass to GetSystemMetrics
begin
  Result := Windows.GetSystemMetrics(SM_REMOTESESSION) <> 0;
end;

begin
	write(IsRemoteSession);
readln;
end.