Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Получить системный фокус приложения

Delphi , Программа и Интерфейс , Приложение своё

Получить системный фокус приложения

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

function GetSysFocus: Integer;
 var
   hFgWin, FgThreadID, hFocusWin: Integer;
 begin
   hFgWin     := GetForegroundWindow;
   FgThreadID := GetWindowThreadProcessID(hFgWin, nil);
   if AttachThreadInput(GetCurrentThreadID, FgThreadID, True) then
   begin
     hFocusWin := GetFocus;
     Result    := GetFocus;
     AttachThreadInput(GetCurrentThreadID, FgThreadID, False);
   end
   else
     Result := GetFocus;
 end;

Статья Получить системный фокус приложения раздела Программа и Интерфейс Приложение своё может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Приложение своё ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100

Время компиляции файла: 2024-04-24 22:55:34
2024-04-26 04:10:51/0.0066637992858887/2