Как узнать активно ли приложение

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

Вчера в Сиэтле после упоминания Биллом Гейтсом бета-версии новой программы Майкрософта произошло землетрясение. Пользователи с ужасом ждут объявления о выходе финальной версии продукта.

if Application.Active then

form1.Caption := ‘active’

else

form1.Caption := ‘not active’;

{/codecitation}

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