'===========================================================================
' Subject: SHELLEXECUTE VARIANT               Date: 07-22-98 (15:01)       
'  Author: Dave Navarro, Jr.                  Code: PBCC                   
'  Origin: dave@powerbasic.com              Packet: PBCC.ABC
'===========================================================================
'===========================================================================
'
'  SH.BAS for PB/CC v1.0 or later
'  Donated to the public domain by Dave Navarro, Jr. (dave@powerbasic.com)
'
'  This utility will call ShellExecute in Windows with anything you pass on
'  the command line.  For example:
'
'     sh www.powerbasic.com
'
'  will launch your web browser and take you to the PowerBASIC web site.
'
'     sh myfile.doc
'
'  will launch Microsoft Word (or whatever program handles .DOC files).
'
'===========================================================================

%NULL          = 0
%SW_SHOWNORMAL = 1

DECLARE FUNCTION ShellExecute LIB "SHELL32.DLL" ALIAS "ShellExecuteA"
(BYVAL hwnd AS LONG, lpOperation AS ASCIIZ, lpFile AS ASCIIZ, lpParameters
AS ASCIIZ, lpDirectory AS ASCIIZ, BYVAL nShowCmd AS LONG) AS LONG

FUNCTION PbMain () AS LONG

  LOCAL zText AS ASCIIZ * 256

  zText = COMMAND$

  ShellExecute %NULL, "OPEN", zText, BYVAL %NULL, CURDIR$, %SW_SHOWNORMAL

END FUNCTION