Skip to content

sample_029.md

Latest commit

 

History

History
41 lines (30 loc) · 1.03 KB

sample_029.md

File metadata and controls

41 lines (30 loc) · 1.03 KB

Home

Who owns the Windows Clipboard

Code:

DO declare

hWindow=GetActiveWindow()
hOwner=GetClipboardOwner()
	
? "Active window: ............", hWindow,;
	"["+GetWinText(hWindow)+"]"

? "_SCREEN.HWnd: .............", _screen.HWnd,;
	"["+GetWinText(_screen.HWnd)+"]"

? "Window owning clipboard: ..", hOwner,;
	"["+GetWinText(hOwner)+"]"

FUNCTION GetWinText(hWindow)
	LOCAL nBufsize, cBuffer
	nBufsize = 128
	cBuffer = Repli(Chr(0), nBufsize)
	nBufsize = GetWindowText(hWindow, @cBuffer, nBufsize)
RETURN Iif(nBufsize=0, "", Left(cBuffer, nBufsize))

PROCEDURE declare
	DECLARE INTEGER GetActiveWindow IN user32
	DECLARE INTEGER GetClipboardOwner IN user32

	DECLARE INTEGER GetWindowText IN user32;
		INTEGER hwnd, STRING @lpString, INTEGER cch

Listed functions:

GetActiveWindow
GetClipboardOwner
GetWindowText