XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
ClipBoard: Textdaten aus der Zwischenablage lesen
PRFellow-Vorlage
Autor: Thomas Hölzer
Textdaten aus der Zwischenablage lesen
Def IsClipboardFormatAvailable(1) !USER32,IsClipboardFormatAvailable
Def OpenClipboard(1) !USER32,OpenClipboard
Def CloseClipBoard(0) !USER32,CloseClipboard
Def GetClipboardData(1) !USER32,GetClipboardData
Def GlobalLock(1) !KERNEL32,GlobalLock
Def GlobalSize(1) !KERNEL32,GlobalSize
Def GlobalUnlock(1) !KERNEL32,GlobalUnlock
Def lstrcpy(2) !KERNEL32,lstrcpyA
Def lstrlen(1) !KERNEL32,lstrlenA
Beispiel
Declare hmem&,pclip&,copybuf#
Cls

If Neq(IsClipBoardFormatAvailable(1),0)

    OpenClipBoard(GetActiveWindow())
    Let hmem&=GetClipBoardData(1)
    Let pclip&=GlobalLock(hmem&)
    Dim copybuf#, Add(GlobalSize(pclip&),1)
    So gehts bei Text auch:
    Dim copybuf#,Add(lstrlen(pclip&),1)
    lstrcpy(copybuf#,pclip&)
    GlobalUnLock(pclip&)
    CloseClipBoard()
    Print String$(copybuf#,0)
    Dispose copybuf#

Else

    MessageBox(Die Zwischenablage enthält keine Daten im Textformat.,Hinweis,64)

EndIf

WaitInput