Взаимодействие с клавиатурой без OpenWindowedScreen

  InitKeyboard()
  
  Repeat
      ExamineKeyboard()
    If KeyboardPushed(#PB_Key_S)
  MessageRequester("", "Ошибка")
EndIf
Until q=1

Dim Key.a(255)
 
GetKeyboardState_(@Key())

Repeat
  Debug GetAsyncKeyState_(#VK_ESCAPE)
  Delay(100)
ForEver

OpenWindow(0,0,0,230,150,"", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
EditorGadget(0,10,10,210,130 )
Repeat
  Event=WaitWindowEvent()
  If Event=#WM_KEYDOWN ; Была нажата кнопка
    AddGadgetItem(0,-1,Str( EventwParam())+"  " ) ; Помещаем её код в редактор
    SendMessage_(GadgetID(0),#EM_SETSEL,-1,-1) ; Прокрутка текста
  EndIf
Until Event=#PB_Event_CloseWindow

Dim Key.a(255)

GetKeyboardState_(@Key())

Dim Key.a(255) // Задал массив
Repeat
  quit=0
  x$="0"
GetKeyboardState_(@Key()) // Это вроде задает значение каждому элементу массива, нажата ли клавиша ?
Repeat                             // Этот цикл вроде проверяет все числа в массиве, и если какой то элемент не равен 0 то его выдает.
If Key(n)<>0  
  x$=Str(Key(n))
  MessageRequester("", x$, #PB_MessageRequester_Ok)
  quit+1
Else 
  n+1
EndIf
Until quit=256
ForEver

Dim Key.a(255) ;// Задал массив 
x$=""
Repeat
  GetKeyboardState_(@Key()) ;// Это вроде задает значение каждому элементу массива, нажата ли клавиша ?
  For n=0 To 255                           ; // Этот цикл вроде проверяет все числа в массиве, и если какой то элемент не равен 0 то его выдает.
    If Key(n)<>0  
      x$=Str(Key(n))
      MessageRequester(Str(n), x$, #PB_MessageRequester_Ok)
    EndIf
  Next n
ForEver

Procedure ActiveWinLayout() ; Раскладка клавиатуры активного окна.
  WindowsHandle=GetForegroundWindow_() ; Хендл активного окна
  ProcessId=GetWindowThreadProcessId_(WindowsHandle,0) ; ИД процесса активного окна
  Layout=GetKeyboardLayout_(ProcessId)                 ; Раскладка клавиатуры активного окна
  ProcedureReturn Layout
EndProcedure
 
;Преобразование VKCode в Chr
Procedure VKCodeToChr() 
   Dim btKeyState.c(256) 
   Define Symbol.c 
   Define hklLayout = ActiveWinLayout()
   
   x=-1
   
   For i=0 To 255
     If GetAsyncKeyState_(i)
       btKeyState(i)=1
       If x=-1 And i>=2
         x=i
       EndIf
     EndIf
   Next
   
   If ToAsciiEx_(x, MapVirtualKey_(x, 0), @btKeyState(), @Symbol, 0, hklLayout) 
     ProcedureReturn Symbol 
   EndIf 
   ProcedureReturn #False 
 EndProcedure
 
 Repeat
 
   Char.c = VKCodeToChr()
   If Char>=32
     Debug Chr(Char)
   EndIf
   Delay(40)
ForEver