;Autor: gnasen ;http://www.purebasic.fr/german/viewtopic.php?p=297394#p297394 EnableExplicit Define EventID Define clipState.i = GetClipboardSequenceNumber_() If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) Repeat EventID=WaitWindowEvent(100) If clipState <> GetClipboardSequenceNumber_() clipState = GetClipboardSequenceNumber_() Debug "Zwischenablage wurde verändert" EndIf If EventID = #PB_Event_CloseWindow End EndIf ForEver EndIf ; IDE Options = PureBasic 5.31 (Windows - x64) ; CursorPosition = 2 ; EnableUnicode ; EnableXP ; EnableUser ; EnableCompileCount = 0 ; EnableBuildCount = 0