#COMPILE EXE
#INCLUDE "WIN32API.INC"
#RESOURCE "SHELHERE.PBR"

FUNCTION WINMAIN (BYVAL CurInst AS LONG, _
                  BYVAL PrvInst AS LONG, _
                  BYVAL CmdLine AS ASCIIZ PTR, _
                  BYVAL CmdShow AS LONG) EXPORT AS LONG

LOCAL hShell AS LONG

hShell = SHELL(ENVIRON$("COMSPEC"), 1)

END FUNCTION