clipboard

Retrieve HTML from Clipboard

MSDN:

This is sample code. Add error handling and adjust to your requirements as necessary.

lcHtml = HtmlFromClipboard()
IF NOT ISNULL(lcHtml)
	lnStartHTML = VAL(STREXTRACT(lcHtml, "StartHTML:", ""))
	lnEndHTML = VAL(STREXTRACT(lcHtml, "EndHTML:", ""))
	* If StartFragment is present, retrieve HTML fragment
	IF ("StartFragment" $ lcHtml)

Copy PRG contents to Clipboard

In VFP 9.0 PRG contents will be copied to clipboard in RTF format as well, if there's no 'X' in the _Vfp.EditorOptions.

The code uses Editor functions from Foxtools.fll. See George Tasker's Extended Foxtools Help Download #9333 on UT for more info.

Retrieve List of Files from Clipboard

MSDN: Windows Clipboard API

This is sample code. Add error handling and adjust to your requirements as necessary.

* Load required Windows API functions
=LoadApiDlls()
 
* Open clipboard
lnResult = OpenClipboard(_SCREEN.hWnd)
* Get handle on file list structure ( Format type 15)
lnHdrop = GetClipboardData (15)
IF lnHdrop > 0
	lcBuffer = SPACE(512)
	lnSize = LEN(lcBuffer)
        * Get number of files in the list
	lnFile = BITOR(0xFFFFFFFF,0)
	lnFileCount = DragQueryFile(lnHdrop, lnFile, @lcBuffer, lnSize  )
 
        * Get each file name

Copy Command Window Selected Text to Clipboard Programmatically

The code uses Editor functions from Foxtools.fll. See George Tasker's Extended Foxtools Help Download #9333 on UT for more info.

This is sample code. Add error handling and adjust to your requirements as necessary.

LOCAL ARRAY laEnv [25]
SET LIBRARY TO FoxTools ADDITIVE
* Get the whandle for the current window
lnHandle = _WonTop()
lnResult = _EdGetEnv( lnHandle, @laEnv )
* [ 17 ] SelStart
* [ 18 ] SelEnd
Syndicate content