home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Windows 95 Special 2 / CD_1.iso / utils / dana / sleep.das < prev    next >
Text File  |  1995-12-15  |  532b  |  17 lines
  1. '-----------------------------------------------------------------------
  2. ' Sleep.DAS
  3. ' Close all the work files and minimize Dana.
  4. ' If you use this command instead of Exit function, Dana will be brought
  5. ' up immediately at the next time you run Dana.
  6. '-----------------------------------------------------------------------
  7. Const SW_SHOWMINIMIZED = 2
  8.  
  9. Declare Proc ShowWindow Lib "User32" (hWnd, nCmdShow) As Integer
  10.  
  11. Main ()
  12.     While .DocNum
  13.         Command("CloseFile")
  14.     Wend
  15.     ShowWindow(.hMainWnd, SW_SHOWMINIMIZED)
  16. End
  17.