Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Win Api
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.01.2009, 02:45   #1
Port 111
Пользователь
 
Регистрация: 12.01.2009
Сообщений: 34
По умолчанию Как узнать ширину панели "Пуск"

Здравствуйте. Вновь обращаюсь у вам с вопросом!
Как узнать шрину панели "Пуск"?
Port 111 вне форума Ответить с цитированием
Старый 19.01.2009, 09:34   #2
Google[Bot]
Пользователь
 
Аватар для Google[Bot]
 
Регистрация: 09.01.2009
Сообщений: 65
По умолчанию

Хм... наверно это будет вся ширина экрана...
Google[Bot] вне форума Ответить с цитированием
Старый 19.01.2009, 09:40   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
наверно это будет вся ширина экрана
Если не ошибаюсь панель эту можно отцепить от краев экрана в отдельное "окно"

Можно еще вот так:
Код:
unit Unit2;

interface

uses     shellapi,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var     t:TAppBarData;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
        
 t.cbSize := SizeOf(t);
 ShAppbarMessage(ABM_GETTASKBARPOS, t);
 ShowMessageFmt('Высота таскбара = %d', [t.rc.bottom - t.rc.top]);
 ShowMessageFmt('ширина таскбара = %d', [t.rc.right - t.rc.left]);
end;

end.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 19.01.2009, 16:22   #4
Port 111
Пользователь
 
Регистрация: 12.01.2009
Сообщений: 34
По умолчанию

Извините что ввел всех в заблуждение... Меня интересует ВЫСОТА , а не ширина.

Это всё бессонные ночи....
Port 111 вне форума Ответить с цитированием
Старый 19.01.2009, 18:02   #5
pu4koff
Старожил
 
Аватар для pu4koff
 
Регистрация: 22.05.2007
Сообщений: 9,520
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Если не ошибаюсь панель эту можно отцепить от краев экрана в отдельное "окно"
На счет отдельного окна сомневаюсь, а вот сбоку и сверху точно можно поместить
pu4koff вне форума Ответить с цитированием
Старый 19.01.2009, 18:17   #6
rpy3uH
добрый няша
Старожил
 
Аватар для rpy3uH
 
Регистрация: 29.10.2006
Сообщений: 4,804
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  h:thandle;
  rect:TRect;
begin
  h:=FindWindow('Shell_TrayWnd',nil);
  GetWindowRect(h,rect);
  showmessage(
              'высота '+inttostr(rect.Bottom-rect.Top)+#13#10+
              'ширина '+inttostr(rect.Right-rect.Left)
              );
end;
rpy3uH вне форума Ответить с цитированием
Старый 01.02.2009, 23:05   #7
Port 111
Пользователь
 
Регистрация: 12.01.2009
Сообщений: 34
По умолчанию

Огромное спасибо....
Закрыто =)
Port 111 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Caption кнопки ПУСК (START) - изменить надпись на кнопке Пуск в Windows XP Altera Win Api 19 29.12.2011 15:49
Блокировка меню пуск и панели задач !!!! Elektro Безопасность, Шифрование 6 21.04.2009 13:06
Как изменять ширину колонки в пределах нужных строк dru Microsoft Office Excel 1 08.12.2008 17:57
Как Firefox рассчитывает ширину столбцов вот в таком случае??? Finer HTML и CSS 3 26.04.2008 16:47
КАК поместить ИКОНКУ программы в правый нижний угол панели(там где пуск)??? micaell Общие вопросы Delphi 5 21.02.2007 19:58