#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