#include <PalmOS.h>
#include <WebBrowser.h>
Err WebBrowserCommand(Boolean subLaunch, UInt16 launchFlags, UInt16 command,
Char *parameterP, UInt32 *resultP)
{
UInt16 cardNo;
LocalID dbID;
DmSearchStateType searchState;
Err error;

if (resultP) *resultP = errNone;
error = DmGetNextDatabaseByTypeCreator(true, &searchState,
sysFileTApplication, WebBrowserCreator, true, &cardNo, &dbID);
if (error == errNone)
{
if (subLaunch)
{
SysAppLaunch(cardNo, dbID, launchFlags, command, parameterP, &result);
if (resultP) *resultP = result;
}
else
{
Char *newParamP = NULL;
if (parameterP)
{
newParamP= MemPtrNew( StrLen(parameterP) +1 );
if (newParamP == NULL) error = memErrNotEnoughSpace;
else
{
StrCopy(newParamP, parameterP);
MemPtrSetOwner(newParamP, 0); // The OS now owns this memory
}
}
if (error == errNone)
{
SysUIAppSwitch( cardNo, dbID, command, newParamP);
}
}
}
return error;
} //WebBrowserCommand

_WebBrowserCommand:
'Check OS version
V$­­=GETOSVER$­­
IF V$­­<"5.0" GOTO _WebError
'Search for Web Browser
B$­­=FINDFIRST$­­("appl","NF3P")
IF B$­­="" GOTO _WebError
RUN B$­­,"www.aldweb.com"
_WebError:
PRINT "Web Browser not found"
RETURN