; TrayCmd
; -------
; Puts an icon in the system tray to access a Command prompt
; Note use of windir and sysdir commands
;
report on
getdir D
upvar D
puttray TrayCmd,traycmd,Fcommand.ico
setfont verdana,8,B
banner TrayCmd
delay 15
banoff
:doidle
idle

:traycmd
menubox TrayCmd,Select a function,Command Prompt|Set Directory|Unload TrayCmd
casemsg doidle|docmd|doset|exit
goto exit

:docmd
setvar B,command.com
winver A,f
ifvar A,9X,doit
setvar B,cmd.exe
:doit
setdir %D
start %B,,C|C,500|300,TrayCmd
goto doidle

:doset
dirbox Select start directory,D,DESKTOP
upvar D
goto traycmd

:exit
banner TrayCmd unloaded
delay 15
banoff