Const GHND=$42
Const CF_Privat1=49256
Const CF_TEXT=1

AppTitle "Test2"
Global hwnd = api_FindWindow("Blitz Runtime Class", "Test2")   
If hwnd=0 Then RuntimeError "Konnte Fenster nicht finden"

Global hMem=api_GlobalAlloc(GHND,256)
If hMem=0 Then RuntimeError "Konnte speicher nicht erzeugen"

Repeat

      
   a=0
   For i=0 To 1000000
      a=a*3
   Next
   
   SetClipBoardText$("test")
   
   Delay 1

Until KeyHit(1)

api_GlobalFree(hMem)

End

Function SetClipBoardText$(sText$)

   Local hAdr
   
   a=api_OpenClipboard(hwnd)
   If a=0 Then RuntimeError "Konnte Clipboard nicht öffnen"
   ;api_EmptyClipboard()
   
   hAdr=api_GlobalLock(hMem)
   If hAdr=0 Then RuntimeError "GlobalLock = 0"
      api_lstrcpy1(hAdr,sText$)
   api_GlobalUnlock(hMem)
   
   If api_SetClipboardData(CF_TEXT,hMem)=0 Then RuntimeError "Fehler beim setzen der Daten in die Zwischenablage"
      
   api_CloseClipboard()
End Function