Определить, управляется ли удаленно текущая сессия

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Оформил: DeeCo

Автор: http://www.swissdelphicenter.ch

{

Call GetSystemMetrics() with the Flag SM_REMOTECONTROL to determine

if the current session is remotely controlled.

Its value is TRUE if the current session is remotely controlled;

FALSE otherwise.

}

function IsRemotelyControlled: Boolean;

const

SM_REMOTECONTROL = $2001; // from WinUser.h

begin

Result := Boolean(GetSystemMetrics(SM_REMOTECONTROL));

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if IsRemotelyControlled then

ShowMessage(‘Remotely controlled.’)

else

ShowMessage(‘Not Remotely controlled.’)

end;

{/codecitation}

Добавить комментарий