home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / WINDOWS / PROGRAM / WINB30A.ZIP / DOSPASTE.WBT < prev    next >
Encoding:
Text File  |  1991-02-17  |  1.3 KB  |  28 lines
  1. ; An Example of pasting data to a DOS window
  2. ; We will paste DIR and CHKDSK, PAUSE and EXIT to as DOS window
  3.  
  4.  
  5.  if !(WinConfig() & 32) then goto NOGO     ; Check for 386 enhanced mode
  6.  
  7.  Pause("Please Note:","This WBT file starts a command.com window.  Type EXIT to close the window.")
  8.  
  9.  ReturnKey=Strcat(num2char(13))            ; Setup variable with <enter> in it.
  10.  
  11.                                            ; Type DIR and then CHKDSK,
  12.                                            ; each with a return
  13.  CommandToType="DIR %ReturnKey% CHKDSK %ReturnKey%"  
  14.  
  15.  ClipPut(CommandToType)                    ; Stuff command to type into clipbrd
  16.  RunIcon(Environment("COMSPEC"),"")        ; Get command.com from COMSPEC
  17.                                            ; in environment
  18.  WinActivate("COMMAND")                    ; Activate the COMMAND window
  19.  SendKey("! TW~")                          ; Sendkey to set "windowed" mode
  20.                                            ; ...not full screen
  21.  WinShow("COMMAND")                        ; Open up the icon
  22.  SendKey("! EP")                           ; SendKey Alt-Space Edit Paste
  23.  Exit                                      ; Byebye
  24.  
  25.  
  26.  :NOGO                                     ; Hmmm not 386 enhanced mode...
  27.  Message("Ooops!","Can only paste to DOS apps when in 386 enhanced mode")
  28.