Получение координат области Рабочего стола, не скрытой Панелью задачDelphi , Рабочий стол , Рабочий столПолучение координат области Рабочего стола, не скрытой Панелью задач
Автор: Dimka Maslov { **** UBPFD *********** by delphibase.endimus.com **** >> Получение координат области Рабочего стола, не скрытой Панелью задач Зависимости: Windows Автор: Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург Copyright: Dimka Maslov Дата: 4 ноября 2002 г. ***************************************************** } function GetDesktopRect: TRect; var RgnDesktop, RgnTrayWnd: HRGN; function CreateWindowRgn(Handle: HWND): HRGN; var R: TRect; begin GetWindowRect(Handle, R); with R do Result := CreateRectRgn(Left, Top, Right, Bottom); end; begin RgnDesktop := CreateWindowRgn(GetDesktopWindow); try RgnTrayWnd := CreateWindowRgn(FindWindow('Shell_TrayWnd', '')); try CombineRgn(RgnDesktop, RgnDesktop, RgnTrayWnd, RGN_DIFF); GetRgnBox(RgnDesktop, Result); finally DeleteObject(RgnTrayWnd); end; finally DeleteObject(RgnDesktop); end; end; Статья Получение координат области Рабочего стола, не скрытой Панелью задач раздела Рабочий стол Рабочий стол может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Рабочий стол ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |