home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / windows / winbatch.zip / DOSPASTE.WBT < prev    next >
Text File  |  1991-01-07  |  578b  |  22 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.  cr=Strcat(num2char(13))
  8.  buffer="DIR %cr% CHKDSK %cr%"
  9.  clipput(buffer)
  10.  runicon("Command.com","")
  11.  WinActivate("COMMAND")
  12.  SendKey("! TW~")  ;Sendkey to set "windowed" mode...not full screen
  13.  WinShow("COMMAND")
  14.  SendKey("! EP")   ; SendKey Alt-Space Edit Paste
  15.  Exit
  16.  
  17.  
  18.  :NOGO
  19.  Message("Ooops!","Can only paste to DOS apps when in 386 enhanced mode")
  20.  
  21.  
  22.