REM Description: Long File Name Open 1.1 Dialogue for WSWin
REM WSWin Macro File: ELFNOPEN.WMC

BEGIN DIALOG grpdlg 160, 133, "Quick List Options"

		GROUPBOX       4, 4, 150, 123, "Select Directory/Folder:"
       OPTIONGROUP    pgroup%
       	PUSHBUTTON   20, 18, 120, 12, "WSWin &Default Directory", 3
       	PUSHBUTTON   20, 31, 120, 12, "&Quick Path Directory", 4
       	PUSHBUTTON   20, 44, 120, 12, "&Quick Path Directory", 5
       	PUSHBUTTON   20, 57, 120, 12, "&Quick Path Directory", 6
       	PUSHBUTTON   20, 70, 120, 12, "&Quick Path Directory", 7
       	PUSHBUTTON  20, 83, 120, 12, "&Quick Path Directory", 8
       	PUSHBUTTON   20, 96, 120, 12, "Select a New &Path", 9
			PUSHBUTTON   20, 109, 120, 12, "&File Open Default", 10
       END DIALOG
       ret% = DIALOG(grpdlg)
       IF ret% = 2 THEN STOP
       IF ret% = 3 THEN dirName$ = "E:\WSWIN\DOCS"
       IF ret% = 4 THEN dirName$ = "E:\WSWIN\DOCS"
       IF ret% = 5 THEN dirName$ = "E:\WSWIN\DOCS"
       IF ret% = 6 THEN dirName$ = "E:\WSWIN\DOCS"
       IF ret% = 7 THEN dirName$ = "E:\WSWIN\DOCS"
       IF ret% = 8 THEN dirName$ = "E:\WSWIN\DOCS"
       IF ret% = 9 THEN dirName$ = INPUTBOX$("Please type in the name of a Directory/Folder")
		IF ret% = 10 THEN GOTO Default:


	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

	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

Default:
 	FileOpen
 	GOTO FINISH

FINISH: