Кнопка Пуск

← →
Berkut (2002-05-31 21:50) [0]

важаемые программисты подскажите пожалуйста
как узнать кординаты кнопки "Пуск"

← →
Siava (2002-05-31 22:02) [1]

Могу прислать компонент для работы с кнопкой.

← →
Berkut (2002-05-31 22:15) [2]

Буду признатлен!
заранее спасибо

← →
Song (2002-05-31 22:36) [3]

Компонент? :)
Ну Вы даёте... Можно узнать любые размеры методом АПИ: GetWindowRect()

← →
MBo (2002-05-31 22:59) [4]

procedure TForm1.Button2Click(Sender: TObject);
var
Tray, Start: hWnd;
r:trect;
begin
Tray:=FindWindow("Shell_TrayWnd", nil);
Start:=FindWindowEx(tray,0,PChar("BUTTON"),nil);
if start<>0 then
GetWindowRect(start,r);
label1.caption:=inttostr(r.left)+":"+inttostr(r.top);
end;

← →
Siava (2002-06-01 07:26) [5]

Все вы дауненки компонент полезный,
с помощью компонента можно делать разное:
-убирать кнопку
-делать недоступной
-делать невидимой
-менять расположение.
Тем более ето удобней.

← →
Song (2002-06-01 10:39) [6]

2Siava © (01.06.02 07:26)

-убирать кнопку: WM_CLOSE
-делать недоступной: EnableWindow()
-делать невидимой: ShowWindow()
-менять расположение SetWindowPos()

Дык кто дуненок? :))

← →
Anatoly Podgoretsky (2002-06-01 11:44) [7]

Не все умеют программировать, некоторые только с помощью компонент и могут жить

← →
easy (2002-06-01 14:06) [8]

...круто...%)))

Кнопка Пуск Найти похожие ветки