Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 134

•  TDictionary Custom Sort  6 207

•  Fast Watermark Sources  6 006

•  3D Designer  8 898

•  Sik Screen Capture  6 342

•  Patch Maker  6 761

•  Айболит (remote control)  6 745

•  ListBox Drag & Drop  5 617

•  Доска для игры Реверси  96 137

•  Графические эффекты  6 961

•  Рисование по маске  6 230

•  Перетаскивание изображений  5 133

•  Canvas Drawing  5 502

•  Рисование Луны  5 204

•  Поворот изображения  4 753

•  Рисование стержней  3 362

•  Paint on Shape  2 609

•  Генератор кроссвордов  3 503

•  Головоломка Paletto  2 795

•  Теорема Монжа об окружностях  3 603

•  Пазл Numbrix  2 365

•  Заборы и коммивояжеры  3 046

•  Игра HIP  1 999

•  Игра Go (Го)  1 923

•  Симулятор лифта  2 281

•  Программа укладки плитки  1 983

•  Генератор лабиринта  2 439

•  Проверка числового ввода  2 120

•  HEX View  2 455

•  Физический маятник  2 076

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Получение информации о TaskBar



Для вывода информации мы будет использовать компонент TStringGrid с закладки Additional.

Сначала вам нужно будет после


var
  Form1: TForm1;

добавить следующий код:


AppBarData : TAppBarData;
bAlwaysOnTop, bAutoHide : boolean;
Clrect,rect : TRect;
Edge: UInt;

затем после слова Implementation пишем


procedure DetectTaskBar;
begin
  AppBarData.hWnd := FindWindow('Shell_TrayWnd', nil);
  AppBarData.cbSize := sizeof(AppBarData);
  bAlwaysOnTop := (SHAppBarMessage(ABM_GETSTATE, AppBardata)
  and ABS_ALWAYSONTOP) <> 0;
  bAutoHide := (SHAppBarMessage(ABM_GETSTATE, AppBardata)
  and ABS_AUTOHIDE) <> 0;
  GetClientRect(AppBarData.hWnd, Clrect);
  GetWindowRect(AppBarData.hwnd, rect);
  if rect.top > 0 then
    Edge := ABE_BOTTOM
  else
  if rect.bottom < screen.height then
    Edge:=ABE_TOP
  else
  if rect.right < screen.width then
    Edge:=ABE_LEFT
  else
    Edge:=ABE_RIGHT;
end;

и осталось описать самое главное - обработчик нажатия кнопки:


procedure TForm1.Button1Click(Sender: TObject);
begin
  DetectTaskBar;

  StringGrid1.Cells[0,0] := 'Выше других окон';
  StringGrid1.Cells[0,1] := 'Автоматически убирать с экрана';
  StringGrid1.Cells[0,2] := 'Клиентская область';
  StringGrid1.Cells[0,3] := 'Оконная область';
  StringGrid1.Cells[0,4] := 'Края';

  if bAlwaysOnTop = true then
    StringGrid1.Cells[1,0] := 'true'
  else
    StringGrid1.Cells[1,0] := 'false';

  if bAutoHide = true then
    StringGrid1.Cells[1,1] := 'true'
  else
    StringGrid1.Cells[1,1] := 'false';

  StringGrid1.Cells[1,2] := IntToStr(Clrect.Left)+':'+IntToStr(Clrect.Top) +
  ':'+IntToStr(Clrect.Right)+':'+IntToStr(Clrect.Bottom);

  StringGrid1.Cells[1,3] := IntToStr(rect.Left)+':'+IntToStr(rect.Top) +
  ':'+IntToStr(rect.Right)+':'+IntToStr(rect.Bottom);

  StringGrid1.Cells[1,4] := IntToStr(Edge);
end;





Похожие по теме исходники

Оптимальное кодирование информации




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте