First off, the products that I work on are used in schools and libraries so
we have a lot of customers on very old platforms. This forces us to use VB4
16-bit and remain compatible with Windows 3.1.

Here is the issue: We are adding the ability (have added actually), to click
on a URL and automatically launch their web browser. After wandering around
looking at the 3.1 API stuff I found the API function FindExecutable. I pass
this the name of a dummy HTML file we ship with and it hands back the path
of web browser. Sweet!

The problem: Though this is defined as a Windows 3.1 API call, I get an
"Unable to locate file" error, when I try this on a Windows 3.1 system (It
works like a champ on the Windows 95/98/NT). Any ideas where I am going
astray on this?

Please copy your reply to my E-mail address so I cam be sure I get the
response. Thanks!

Here is a snippet of the code I am doing this with:

... Public declarations ...

    Public Declare Function FindExecutable Lib "Shell" ( _
           ByVal lpFile As String, _
           ByVal lpDirectory As String, _
           ByVal lpResult As String) _
           As Long

... During our MDI Form load ...

    'Find the default web browser and save it's location (if present).
    On Error Resume Next
    '''The above statement is used because contrary to 3.1 API
documentation,
    '''we cannot get FindExecutable to run on a Windows 3.1 system. Dan
1/14/99
    psWebPath = ""
    slpFile = "sirsgov.htm"
    slpDir = TrimTrailingBackslash(App.Path) & "\"
    lRetVal = FindExecutable(slpFile, slpDir, slpResult)
    DoEvents
    If lRetVal = 0 Or IsEmpty(slpFile) Or Err.Number > 0 Then
        psWebPath = ""
        'No browser, no web access...
        pbAllowWeb = False
    Else
        psWebPath = CleanPath(slpResult)
    End If

Dan Rhea
SIRS Mandarin, Inc.

http://www.*-*-*.com/