sample_028.md

Home

Testing Clipboard functions: emptying the clipboard

Code:

DECLARE INTEGER EmptyClipboard IN user32
DECLARE INTEGER GetActiveWindow IN user32
DECLARE INTEGER CloseClipboard IN user32
DECLARE INTEGER OpenClipboard IN user32 INTEGER hwnd
	
IF OpenClipboard(GetActiveWindow()) <> 0
	= EmptyClipboard()
	= CloseClipboard()  && important
ENDIF  

---

Listed functions:

CloseClipboard
EmptyClipboard
GetActiveWindow
OpenClipboard

Comment:

The operation above can be done with much less trouble in VFP code:

_cliptext=""

---