'-----------------------------------------------------------------------------
'
' CLIPTEXT.BAS for PB/CC 1.0
' Copyright (c) 1997 by PowerBASIC, Inc.
'
' Copy text file specified on the command line into the clipbard for pasting.
'
'-----------------------------------------------------------------------------

$INCLUDE "WIN32API.INC"

FUNCTION PbMain () AS LONG

  LOCAL Buffer AS STRING
  LOCAL hGlob  AS LONG
  LOCAL hData  AS LONG

' ** Check for existence of file
  IF LEN(DIR$(COMMAND$)) = 0 THEN
    PRINT "Error!  File not found: " + COMMAND$
    EXIT FUNCTION
  END IF

' ** Open the file and read in its contents
  OPEN COMMAND$ FOR BINARY AS #1
    GET$ 1, LOF(1), Buffer
  CLOSE 1

  Buffer = Buffer + CHR$(0)

' ** Create a global memory object and copy the data into it
  hData = GlobalAlloc(%GMEM_MOVEABLE OR %GMEM_DDESHARE, LEN(Buffer))
  hGlob = GlobalLock(hData)
  POKE$ hGlob, Buffer
  GlobalUnlock hData

' ** Open the clipboard
  IF ISFALSE(OpenClipboard(%NULL)) THEN
    PRINT "Error!  Unable to open clipboard!"
    GlobalFree hData
    EXIT FUNCTION
  END IF

' ** Paste the data into the clipboard
  EmptyClipboard
  SetClipboardData %CF_TEXT, hData
  CloseClipboard

END FUNCTION