Prüfen, ob Zwischenablage Bild enthält.

[Frabbing]

Def IsClipFormat(1) !"USER32","IsClipboardFormatAvailable"

Cls
If IsClipFormat(2)
  Print "Bild da"
Else
  Print "kein Bild vorhanden"
EndIf

WaitInput

[Jac de Lad]

Cool, das ist Insiderwissen.

Wäre cool, wenn ihr beim Vorstellen solcher Funktionen auch noch n Link auf MSDN geben könntet. Hier zum Beispiel: IsClipboardFormatAvailable Function ()

Jac

[Frabbing]

Gerade wieder mal gebraucht.

Def IsClipFormat(1) !"USER32","IsClipboardFormatAvailable"
Print IsClipFormat(1)'Text
Print IsClipFormat(2)'Bild

Noch mehr Clipboard-Formate: Standard Clipboard Formats (Windows)

[ts-soft]

Schon wieder Zahlen anstatt Konstanten.
1 Für Text und 2 für Bild? Wer kann sich so etwas merken?
Die Verwendung von CF_TEXT und CF_BITMAP ist doch wesentlich einfacher
zu merken. Da sagt der Name schon um was es sich handelt.
Naja, wenigstens ein MSDN-Link vorhanden

[Frabbing]

Zwei Links sogar, Jac hatte auch schon einen gepostet.

[Volkmar]

Zitat von ts-soft

Schon wieder Zahlen anstatt Konstanten.
1 Für Text und 2 für Bild? Wer kann sich so etwas merken?
Die Verwendung von CF_TEXT und CF_BITMAP ist doch wesentlich einfacher
zu merken. Da sagt der Name schon um was es sich handelt.

Jaja, die Zahlen. Profaner lieben die. Gemäß der alten Programmiererweisheit: "Jeder Tastendruck ist eine potentielle Fehlerquelle"
Erst schuf Gott das Windows. Und er sah, daß es schlecht war. Dann schuf er die benamten Konstanten.
Und im klassischen Profan kamen die Headerdateien noch später. Ist also wohl kein böser Wille sondern nur eine dumme Angewohnheit aus alten Tagen, Zahlen zu schreiben. Ich würde zum Beispiel nie auf die Idee kommen, an einer Messagebox hinten einen langen Rattenschwanz an Konstanten aufzulisten, eine knappe 36 sagt mir ganz präzise, was da gemeint ist.
Aber hast natürlich Recht, andere wissen das nicht.

Gruß Volkmar