Отображать/скрыть значки рабочего стола
Code
hwnd = OpenWindow(0, 0, 0, 300, 300, "Hide \ Show Desktop Icons", #PB_Window_Invisible)
ShowWindow_(GetWindow_(hwnd,#GW_HWNDLAST), #SW_HIDE) ; Скрыть иконки рабочего стола
;ShowWindow_(GetWindow_(hwnd,#GW_HWNDLAST), #SW_SHOW) ; Показать иконки рабочего стола
Repeat
Delay(10)
Q = 1
Until Q = 1
Structure KBDLLHOOKSTRUCT
vkCode.i
scanCode.i
EndStructure
Global Hook.i, Dim Key.s(256)
Procedure KeyboardHook(nCode, wParam,*k.KBDLLHOOKSTRUCT)
If nCode < 0
ProcedureReturn CallNextHookEx_(hook, nCode, wParam,*k.KBDLLHOOKSTRUCT)
EndIf
If (wParam=#WM_KEYDOWN And EventwParam() = 91) Or (wParam=#WM_KEYUP And EventwParam() = 91)
ProcedureReturn 1
EndIf
ProcedureReturn CallNextHookEx_(hook, nCode, wParam,*k.KBDLLHOOKSTRUCT)
EndProcedure
OpenWindow(0, -200, 0, 0, 0, "", #PB_Window_SystemMenu)
hook=SetWindowsHookEx_(#WH_KEYBOARD_LL, @KeyboardHook(), GetModuleHandle_(0), 0)
Repeat
event = WaitWindowEvent()
Select event
Case #PB_Event_CloseWindow: Break
EndSelect
ForEver
UnhookWindowsHookEx_(hook)
End
; hwnd = OpenWindow(0, 0, 0, 300, 300, "Hide \ Show Desktop Icons", #PB_Window_Invisible)
; ShowWindow_(GetWindow_(hwnd,#GW_HWNDLAST), #SW_HIDE) ;Hide Desktop Icons
; ShowWindow_(GetWindow_(hwnd,#GW_HWNDLAST), #SW_SHOW) ;Show Desktop Icons
; Repeat
; Delay(10)
; Q = 1
; Until Q = 1
ShowWindow_(GetWindow_(hwnd,#GW_HWNDLAST), #SW_HIDE) ; Скрыть иконки рабочего стола
;ShowWindow_(GetWindow_(hwnd,#GW_HWNDLAST), #SW_SHOW) ; Показать иконки рабочего стола
Repeat
Delay(10)
Q = 1
Until Q = 1
Structure KBDLLHOOKSTRUCT
vkCode.i
scanCode.i
EndStructure
Global Hook.i, Dim Key.s(256)
Procedure KeyboardHook(nCode, wParam,*k.KBDLLHOOKSTRUCT)
If nCode < 0
ProcedureReturn CallNextHookEx_(hook, nCode, wParam,*k.KBDLLHOOKSTRUCT)
EndIf
If (wParam=#WM_KEYDOWN And EventwParam() = 91) Or (wParam=#WM_KEYUP And EventwParam() = 91)
ProcedureReturn 1
EndIf
ProcedureReturn CallNextHookEx_(hook, nCode, wParam,*k.KBDLLHOOKSTRUCT)
EndProcedure
OpenWindow(0, -200, 0, 0, 0, "", #PB_Window_SystemMenu)
hook=SetWindowsHookEx_(#WH_KEYBOARD_LL, @KeyboardHook(), GetModuleHandle_(0), 0)
Repeat
event = WaitWindowEvent()
Select event
Case #PB_Event_CloseWindow: Break
EndSelect
ForEver
UnhookWindowsHookEx_(hook)
End
; hwnd = OpenWindow(0, 0, 0, 300, 300, "Hide \ Show Desktop Icons", #PB_Window_Invisible)
; ShowWindow_(GetWindow_(hwnd,#GW_HWNDLAST), #SW_HIDE) ;Hide Desktop Icons
; ShowWindow_(GetWindow_(hwnd,#GW_HWNDLAST), #SW_SHOW) ;Show Desktop Icons
; Repeat
; Delay(10)
; Q = 1
; Until Q = 1
www.purebasic.info/
www.purebasic.com
www.purebasic.mybb.ru
www.www.purebasic.fr/english
www.www.purebasic.fr/german
Сайт посвящён языку программирования PureBasic — коммерческий компилятор языка программирования, использующего синтаксис BASIC. Предназначен для создания кроссплатформенных приложений для AmigaOS, Linux, Microsoft Windows, Windows NT и Mac OS X. Разработан компанией Fantaisie Software.
