Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.19.31.73] |
|
Сообщ.
#1
,
|
|
|
Как изменить положение кнопки "Пуск"?
|
Сообщ.
#2
,
|
|
|
никак
|
Сообщ.
#3
,
|
|
|
Элементарно! На самом деле кнопка Пуск, это всего лишь дочернее окно панели задяч! То есть, используя FindWindow, по имени класса (панели задяч называется Shell_TrayWnd) получаешь хэндл на панель, по нему ищешь дочернее окно, класс которого назв. Button и ты получишь хэндл кнопки Пуск!
Код будет выглядеть примерно так: Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Sub Form_Load() Dim rc As Long rc = FindWindow("Shell_TrayWnd", vbNullString) rc = FindWindowEx(rc, 0, "Button", vbNullString) End Sub Получив хэндл, ты сможешь делать с кнопкой всё: с помошью SetWindowPos перемещать кнопку (в пределах панели задач конечно), рисовать на ней, а с помощью SetParent кнопка Пуск перекачует, например, на твою форму и т. п. |