REM Description: Long File Name Open 1.0 Dialogue for WSWin
REM WSWin Macro File: LFNOPEN.WMC

        DECLARE FUNCTION FindWindow                     LIB "user" (classname AS INTEGER, title AS STRING) AS WORD
        DECLARE FUNCTION SetFocus                               LIB "user" (hwnd AS WORD) AS WORD
        DECLARE FUNCTION WinExec                                LIB "kernel" (path AS STRING, show AS WORD) AS WORD

        dirName$="c:\wswin\docs"
        window$ = "Explorer"
        exeName$ = "EXPLORER.EXE " + dirName$
        errmsg$ = "Couldn't run Explorer"

REM Load the application if not loaded already
        win% = W2I(FindWindow(0, window$))
        IF win% = 0 THEN
        err% = WinExec(exeName$, I2W(1))
        IF err% < 0 THEN err% = err% * -1
        IF err% < 33 THEN
                Message(errmsg$)
                STOP
        ENDIF

        win% = W2I(FindWindow(0, window$))

        ENDIF

        ret% = W2I(SetFocus(win%))

        GOTO FINISH

FINISH: