;Autor: RASHAD ;http://www.purebasic.fr/english/viewtopic.php?p=379991#p379991 EnableExplicit Define hStrPtr Define lLength Define FEN.s OpenClipboard_(0) hStrPtr = GetClipboardData_(#CF_UNICODETEXT) lLength = lstrlen_(hStrPtr) FEN.s = Space(lLength) CopyMemory_(FEN, hStrPtr, lLength) If lLength Debug PeekS(hStrPtr, lLength, #PB_Unicode) EndIf ; Zwischenablage leeren EmptyClipboard_() CloseClipboard_() ; IDE Options = PureBasic 5.60 (Windows - x64) ; CursorPosition = 6 ; EnableXP ; EnableUser ; EnableCompileCount = 2 ; EnableBuildCount = 0 ; EnableUnicode