Работа с объектами Windows

[c0zak]

Пишу программу для перемещения кнопки пуск по панели задач. В сути она уезжает от курсора ))). Для означения типа панели задач и пуска использовал hWnd. Но есть лаг-этот тип не включает операторов (Left, Top, Width, Height). Соответственно нижеприведённые операции с ним не выполнить. Может у кого нибудь есть советы?

function Pusk(StartBtnWnd, StartBtnBmp: hWnd; Shift: TShiftState;
X, Y: Integer);
var
index:integer;
begin
StartBtnWnd:=FindWindow('Shell_TrayWnd', nil);
StartBtnBmp:=FindWindowEx(StartBtnWnd, 0, 'Button', nil) ;
index:=random(4);
case index of
0: StartBtnBmp.Left:=StartBtnBmp.Left+StartBtnBmp.Width;
1: StartBtnBmp.Left:=StartBtnBmp.Left-StartBtnBmp.Width;
2: StartBtnBmp.Top:=StartBtnBmp.Top+StartBtnBmp.Height;
3: StartBtnBmp.Top:=StartBtnBmp.Top-StartBtnBmp.Height;
end;
if StartBtnBmp.Left<0 then
StartBtnBmp.Left:=0;
if (StartBtnBmp.Left+StartBtnBmp.Width)>StartBtnWnd.Width then
StartBtnBmp.Left:=StartBtnWnd.Width-StartBtnBmp.Width;
if StartBtnBmp.Top<0 then
StartBtnBmp.Top:=0;
if (StartBtnBmp.Top+StartBtnBmp.Height)>StartBtnWnd.Height then
StartBtnBmp.Top:=StartBtnWnd.Height-StartBtnBmp.Height;
end;

[Stilet]

этот тип не contain

А по русски?

[mihali4]

Так что нужно-то? Как найти кнопку "Пуск"?

[c0zak]

Сообщение от Stilet

А по русски?

Извиняюсь, исправил ))

[c0zak]

Сообщение от mihali4

Так что нужно-то? Как найти кнопку "Пуск"?

Кнопка уже найдена. Юзал такой код:
StartBtnWnd:=FindWindow('Shell_Tray Wnd', nil);
StartBtnBmp:=FindWindowEx(StartBtnW nd, 0, 'Button', nil) ;

Проблема с типом-hWnd. Он не позволяет использовать нужные мне операторы (Left, Top, Width, Height). Вот и вопрос-есть ли альтернативный тип, который включает их или альтернативные операторы?

[Stilet]

Он не позволяет использовать нужные мне операторы

SetWindowPlacement как раз используется для решения подобных задач

[c0zak]

Сообщение от Stilet

SetWindowPlacement как раз используется для решения подобных задач

Спасибо. Буду разбираться с этой функцией ))