Получить системный фокус приложенияDelphi , Программа и Интерфейс , Приложение своёПолучить системный фокус приложения
Оформил: DeeCo 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. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Приложение своё ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |