Dumm ist daran aber, daß das Programm von Windows beendet werden darf :
Code: Alles auswählen
...
Until EventID=#PB_Event_CloseWindow
Code: Alles auswählen
...
Until EventID=#PB_Event_CloseWindow
Code: Alles auswählen
If OpenWindow(0, 1, 1, 500, 500, #PB_Window_SystemMenu | #PB_Window_TitleBar, "Test")
AddKeyboardShortcut(0, #PB_Shortcut_Alt | #PB_Shortcut_F4, 100)
If CreateMenu(0, WindowID(0))
MenuTitle("Nix")
Repeat
Select WaitWindowEvent()
Case #PB_Event_Menu
Select EventMenuID()
Case 100
;Dummy Shortcut zum Abfangen...
Debug "Test"
EndSelect
Case #PB_Event_CloseWindow
Break
EndSelect
ForEver
EndIf
EndIf
