XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Zwischenablage: Text(!)-Daten per API in die Zwischenablage kopieren
PRFellow-Vorlage
Autor: Thomas Hölzer,1999
Text(!)-Daten per API in die Zwischenablage kopieren
Def OpenClipboard(1) !USER32,OpenClipboard
Def CloseClipBoard(0) !USER32,CloseClipboard
Def SetClipboardData(2) !USER32,SetClipboardData

Proc CopyTextToClip

    Parameters pointer&

    If Neq(OpenClipBoard(GetActiveWindow()),0)

        SetClipBoardData(1,pointer&)
        CloseClipBoard()

    EndIf

EndProc

Beispiel
Cls
Declare buf#
Dim buf#,1024  das wird wohl reichen
ReadText buf#,C:AUTOEXEC.BAT
CopyTextToClip buf#
Dispose buf#
WinExec(CLIPBRD.EXE,1)