XProfan

Def OpenClipboard(1) !"USER32","OpenClipboard"
Def CloseClipBoard(0) !"USER32","CloseClipboard"
Def GetClipboardData(1) !"user32.dll","GetClipboardData"

Proc ClipIsPic

    Declare Cboard_return&

    IF OpenClipBoard(GetActiveWindow()) <> 0 erfolgreich geöffnet?

        Cboard_return&=GetClipboardData(2) Parameter 2 = Bild erwartet | 1 wäre Text
        CloseClipBoard()

    EndIF

    If Cboard_return& <> 0 Wert ungleich 0 = Wahr

        Return 1

    Else

        Return 0

    EndIF

EndProc

CLS
Print ClipIsPic() 1 = Bild, 0 = Kein Bild
Waitinput

GetClipboardData(1)

Def IsClipFormat(1) !"USER32","IsClipboardFormatAvailable"
Print IsClipFormat(1) Text
Print IsClipFormat(2) Bildre>