Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Определить, управляется ли удаленно текущая сессия

Оформил: 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;
Проект Delphi World © Выпуск 2002 - 2024
Автор проекта: USU Software
Вы можете выкупить этот проект.