;Autor: ts-soft ;http://www.purebasic.fr/german/viewtopic.php?p=294885#p294885 EnableExplicit Define EventID Procedure DisableProcessWindowsGhosting() Protected DLL = OpenLibrary(#PB_Any, "user32.dll") If DLL CallFunction(DLL, "DisableProcessWindowsGhosting") CloseLibrary(DLL) EndIf EndProcedure If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget|#PB_Window_SizeGadget|#PB_Window_MaximizeGadget) ButtonGadget(1,100,100,300,200,"Button",0) DisableProcessWindowsGhosting() Repeat EventID=WaitWindowEvent() If EventID=#PB_Event_Gadget Select EventGadget() Case 1 Delay(10000);Ist nur dazu dar, um zu zeigen, dass das Fenster bei einer Auslastung nicht weiß oder grau wird. EndSelect EndIf If EventID = #PB_Event_CloseWindow End EndIf ForEver EndIf ; IDE Options = PureBasic 5.31 (Windows - x64) ; CursorPosition = 2 ; Folding = - ; EnableUnicode ; EnableXP ; EnableUser ; EnableCompileCount = 0 ; EnableBuildCount = 0