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