Run a file using the default application.

'run program with default app
'demo uses text, bitmap and doc,
'but other extensions work as well.

filedialog "Open","*.txt;*.bmp;*.doc",filename$
if filename$="" then end
call ShellExecute 0, filename$,_SW_SHOWNA, "open"
end

Sub ShellExecute hWnd, file$, parameter, lpszOp$
    ' _SW_SHOWNA      show normal
    ' _SW_HIDE        hide window
    ' _SW_MINIMIZE    minimize window
    ' lpszOp$ =  "open" or "print"
    lpszFile$ = file$ 
    lpszDir$ = DefaultDir$ 
    lpszParams$=""
    CallDLL #shell32, "ShellExecuteA", hWnd As long,_
    lpszOp$ As ptr,lpszFile$ As ptr,_
    lpszParams$ As ptr,lpszDir$ As ptr,_
    parameter As long, result As long
    End Sub