XPSE

 {$cleq}
cls
clearclip
putclip "Hallo"
imprimir getclip$()
nClearClip()
imprimir getclip$()
nPutClip("Hallo")
imprimir getclip$()
nPutClip("Hallo")
imprimir nGetclip()
waitinput
end
/ /

nProc nClearClip(){

    casenot OpenClipboard(hWnd) : volver
    EmptyClipboard()
    CloseClipboard()

}

nProc nPutClip(cadena s){

    casenot OpenClipboard(hWnd) : volver
    long c=len(s)+1,mem=dim(c)
    rtlMoveMemory(mem,s,c)
    SetClipboardData(CF_TEXT,mem)
    CloseClipboard()

}

nProc nGetClip(){

    cadena s
    casenot OpenClipboard(hWnd) : volver s
    long data=GetClipboardData(CF_TEXT)
    caso data : s=cadena(data,0)
    CloseClipboard()
    volver s

}