Clipboard Accsess

BlitzMax Forums/BlitzMax Programming/Clipboard Accsess

Jim Brown
 #1
Extern "Win32" 

Function OpenClipboard:Int (hwnd:Int) 
Function CloseClipboard:Int () 
Function IsClipboardFormatAvailable:Int (format:Int) 
Function EmptyClipboard:Int () 
Function GetClipboardData(format:Int) 
Function SetClipboardData:Int (format:Int,str:String) 

End Extern 

Function ClipboardRead:String() 
	Const CF_TEXT = 1 
	Local clip:String
	Local cbd:Int
	If OpenClipboard(0) 
		If IsClipboardFormatAvailable(CF_TEXT) 
			cbd=GetClipBoardData(CF_TEXT)
			clip=clip.FromCString(Byte Ptr cbd)
		EndIf 
		CloseClipboard 
		Return clip
	EndIf
End Function 


Graphics 1024,768,0

Global txt:String = "" 

Repeat 
Cls 

If (KeyDown(Key_LControl) And KeyHit(Key_V)) txt = ClipboardRead() 
DrawText "< "+txt+" >",100,100 

Flip 
FlushMem 
Until KeyHit(Key_Escape)