Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Code-Beispiel

Code-Beispiele » System

Zwischenablage lesen und schreiben

Lizenz:Erster Autor:Letzte Bearbeitung:
k. A.RedakteurMao 07.05.2013

Mit diesen beiden Funktionen kann man Text in die Zwischenablage schreiben bzw. aus ihr lesen.

#Include "windows.bi"

Declare Sub WriteClipboard(Text As String)
Declare Function ReadClipboard() As String

Dim As String a="FreeBasic"

WriteClipboard(a)
Print ReadClipboard
Sleep

Sub WriteClipboard(Text As String)
  Dim As Any Ptr lpMem, hGlobalClip
  hGlobalClip=GlobalAlloc(GMEM_MOVEABLE Or GMEM_SHARE, Len(Text)+1)
  OpenClipboard(NULL)
  EmptyClipboard()
  lpMem=GlobalLock(hGlobalClip)
  lstrcpy(lpMem, StrPtr(Text))
  GlobalUnlock(lpMem)
  SetClipboardData(CF_TEXT, hGlobalClip)
  CloseClipboard()
End Sub

Function ReadClipboard() As String
  Dim As Any Ptr hGlobal, pGlobal
  Dim As String txt = ""
  OpenClipboard(NULL)
  hGlobal=GetClipboardData(CF_TEXT)
  If hGlobal Then
    pGlobal=GlobalLock(hGlobal)
    txt=Space(lstrlen(pGlobal)) ' txt auf die Länge des Clipboards bringen
    lstrcpy(StrPtr(txt), pGlobal)
  End If
  Function = txt
  CloseClipboard()
End Function

Quelle: fb@rchiv
Autor: Michael Frey


Zusätzliche Informationen und Funktionen
  • Das Code-Beispiel wurde am 13.06.2007 von RedakteurMao angelegt.
  • Die aktuellste Version wurde am 07.05.2013 von RedakteurVolta gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen