Как программно изменить положение панели задач?

[Damage]

Собссно субж.

[Александр Андреев]

Код: Выделить всё

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Dim lHwnd As Long
'найти hWnd
lHwnd& = FindWindow("Shell_TrayWnd", "")

Это у тебя найдется hWnd панели задач. А дальше делай с ним что хотел: прячь, изменяй размер и положение, рисуй на нем зюзи и т.д.

[Damage]

неполучается, как бы не менял координаты - не двигается

вообщем надо получить его координаты. не подскажите функцию?

[Александр Андреев]

Значит какие-то стили мудреные у него там стоят... Какой-нибудь align. Ты поковыряй, должно получиться.

[Александр Андреев]

Упс... а функция - вот она:

Код: Выделить всё

Public Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As Long, lpRect As RECT) As Long

[Damage]

Какой align???

Делаю так:

Код: Выделить всё

Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags_ As Long) As Long

SetWindowPos lHwnd, -1, 0,0,0, 0, &H10


окно ворочается, а это нет.

Надо считать текущие св-ва, а потом их применить.

ЗЫ.
Просто всплыл непонятный глюк: панель задач сама(не уверен т.к. у девушки и я процесса не5 наблюдал, но говорит - само) переместилась на верх и двигаться мышей не хочет никакк, только размер меняется.

[Александр Андреев]

Гы
Что-то ничего в голову пока не приходит.