Task Bar must die!!

[_Мика_]

Можно какнибудь убрать Task bar, хочу сделать типа как в макинтоши панельки!

[xolod]

Как вариант, найти окно с классом ToolbarWindow32 и скрыть его api'шкой ShowWindow

[tyomitch]

Я просто слал ему WM_CLOSE - работало

[GM]

Cкрыть:

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

Call ShowWindow(FindWindow("Shell_TrayWnd", vbNullString), 0)


Показать:

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

Call ShowWindow(FindWindow("Shell_TrayWnd", vbNullString), 1)


[Серый]

Сюда же вопрос, как заблокировать кнопку пуск?

Например вот этот код, блокирует только на мышь:

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

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 Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
Public Sub EnableStartButton(Optional Enabled As Boolean = True)
    Dim lHwnd As Long
    lHwnd& = FindWindowEx(FindWindow("Shell_TrayWnd", ""), 0&, "Button", vbNullString)
    Call EnableWindow(lHwnd&, CLng(Enabled))
End Sub

Private Sub Command1_Click()
    EnableStartButton False
End Sub


А мне хочется блокировать кнопку на клавиатуре

[Серый]

Всем спачибо, сам нашёл

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

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Form_Load()
PostMessage FindWindow("BaseBar", ""), &H10, 0, 0
End Sub



[_Мика_]

Всем спасибо, ща буду пробовать!

[deepslam]

люди а как отследить нажатие на клавиатуре кнопки Windows?

[xolod]

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

If (getasynckeystate(vk_lmenu)<>0) or (getasynckeystate(vk_rmenu)<>0) then msgbox "Кнопка windows нажата"


[tyomitch]

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

If (getasynckeystate(vk_lmenu)<>0) or (getasynckeystate(vk_rmenu)<>0) then msgbox "Кнопка windows нажата"


Неа, мимо
VK_LWIN и VK_RWIN

[xolod]

Точно! Простите за оплошность, этого больше не повториться

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

Const VK_LWIN = &H5B
Const VK_RWIN = &H5C


[Ariman]

Раз уж такая тема....
Вспомнил я былые времена, когда для меня приделом мечтаний было написать прогу, чтоб пуск в центр экрана переместить. Вспомнил я эти времена, написал прогу, и... Облом! Пуск-то на центр экрана я поставил, но он не работает... Не открывается. В чем дело?
В общем, действовал я так: при клике мышкой на Пуске определял его hwnd функцией WindowFromPoint, делал ему
SetParent(hwnd,GetDesktopWindow), а потом - SetWindowPos.....
И пуск перестает работать... А хотелось бы, чтоб находясь в центре экрана он по-прежнему открывался.......
Да, еще вопрос: HWND пуска как найти с помощью FindWindow?
У меня прога показывает, что у него - класс Button, так что по классу у меня не вышло....

[xolod]

Найти hwnd можно примерно так

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

ParentHandle = FindWindow("Shell_TrayWnd", vbNullString)
ButtonHandle = FindWindowEx(ParentHandle, ByVal 0&, "BUTTON", vbNullString)


А насчет SetParent - не знаю.. Пробовать желания нет

[Amed]

Попробуйте выцепить hwnd главного меню и сделать ему SetParent...
У меня получалось что-то подобное, но очень давно... Не помню уже точно, как. Пойду вспоминать %)

[Ariman]

2 xolod: А чего желания нет? Боишья, так и останется
Насчет HWND - спасибо.

2 Amed: Да, у меня тоже такая мысль была, скорее всего в этом и дело.

[Amed]

Кстати, выцеплять удобнее всего через Spy++, или вот ещё моя разработка чуть ли не четырёхлетней давности есть:

[Ariman]

Вчера точно такую же прогу на С++ написал.
Подвел мышку к "Пуску", и внезапно подумал, а не плохо бы его в центр экрана!

[deepslam]

И снова про FlashWindow:
Вы не много не поняли то что мне нужно:
мне нужно определить моргает данное окошко или нет а не заставить его моргать...
Как бы это сделать а?

[xolod]

Что-то в последнее время задачи интересные пошли.. Одному - запуск свой проги вместа диалога выключения компьютера, тебе - это ...
ИМХО, никак не определишь, хотя не уверен (ждем tyomitch'a)

[GM]

В общем, действовал я так: при клике мышкой на Пуске определял его hwnd функцией WindowFromPoint, делал ему
SetParent(hwnd,GetDesktopWindow), а потом - SetWindowPos.....

А я помню так Пуск отключал

[Ariman]

Ну, отключать это не спортивно
WM_CLOSE и никаких проблем......
Куда интереснее его в центр экрана, да еще чтоб работал!