shell(false,false)
** END HEADER -- do not remove this line
//
// Generated on 04/30/2002
//
parameter bModal
local f
f = new Glass_HolderForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class Glass_HolderForm of FORM
   with (this)
      height = 6.0909
      width = 42.1429
      autoCenter = true
      mdi = false
   endwith

   this.PUSHBUTTON1 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON1)
      onClick = class::PUSHBUTTON1_ONCLICK
      height = 1.1818
      left = 11.1429
      top = 3.6364
      width = 17.8571
      text = "Glass Holder"
   endwith

   this.TEXT1 = new TEXT(this)
   with (this.TEXT1)
      height = 2.9545
      left = 0.8571
      top = 0
      width = 47
      fontSize = 13
      fontBold = true
      text = "This is a glass or beer can holding program. Press the button below to actuate the holder"
   endwith


   function PUSHBUTTON1_onClick
      if type("GetTypeOfDrive" ) # "FP"
         extern cint GetTypeOfDrive ( CSTRING ) kernel32 ;
                     from "GetDriveTypeA"
      endif
      for i = 67 to 90
         cDrive = chr(i)
         tDrive = cDrive + ":\"
         if GetTypeOfDrive( tDrive ) = 5
            cdromDrvLtr = tDrive
            exit
         endif
      next

      #define ssfDRIVES htoi("11")
      oSH = new OleAutoClient("Shell.Application")
      oSH.NameSpace(ssfDRIVES).ParseName(cdromDrvLtr).InvokeVerb("E&ject")
      release object oSH
      oSH = NULL

      return
endclass