PureBasic

Code : Tout sélectionner

If InitSprite () = 0
   MessageRequester ("Erreur", "Impossible d'initialiser directx", #PB_MessageRequester_Ok)
   End
EndIf


If OpenWindowedScreen(0, 100, 100, 64, 48, 1, 0, 0) = 0
   MessageRequester ("Erreur", "Impossible d'ouvrir l'écran", #PB_MessageRequester_Ok)
   End
EndIf

Repeat
  ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)

End

Code : Tout sélectionner

#WindowWidth    = 400
#WindowHeight   = 300

hWnd = OpenWindow(0, 0, 0, #WindowWidth, #WindowHeight, #PB_Window_BorderLess | #PB_Window_Invisible | #PB_Window_ScreenCentered, "Test") 
If hWnd = 0
  OpenWindowedScreen(hWnd, 0, 0, #WindowWidth, #WindowHeight, 1, 0, 0)
  MessageRequester ("Erreur", "Impossible d'ouvrir l'écran", #PB_MessageRequester_Ok)
  End
EndIf