Andere Möglichkeit:ts-soft hat geschrieben:Alt + F4 sollte auch noch berücksichtigt werden
Code: Alles auswählen
EnableExplicit
Define EventID
Define InstallProcess;Beispiel für ein Vorgang, welcher nicht abgebrochen werden darf
If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
EnableMenuItem_(GetSystemMenu_(WindowID(0),#False), #SC_CLOSE, #MF_DISABLED)
InstallProcess=1
Repeat
EventID=WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
If InstallProcess=0
End
EndIf
EndIf
ForEver
EndIf