OpenEuphoria

Re: shell to MS explorer

• Posted by tone.skoda at siol.net Jan 15, 2002
• 553 views

I use this program to open all programs I use for internet:

without warning
include win32lib.ew

integer SimpleWin

procedure open_file (sequence file)
 shellExecute ("", file, SW_SHOWMAXIMIZED)
end procedure

procedure open_dir (sequence dir_path)
 shellExecute ("explore", dir_path, SW_SHOWMAXIMIZED)
end procedure

procedure onOpen_SimpleWin ()
 open_file ("C:\\Program Files\\Internet Explorer\\IEXPLORE.EXE")
 open_file ("C:\\Program Files\\Outlook Express\\msimn.exe")
 open_file ("C:\\Program Files\\GetRight\\getright.exe")
 shellExecute ("", "C:\\Program Files\\intertel\\InterTel.exe",
SW_SHOWNORMAL)
 open_dir ("C:\\Downloaded\\new downloaded")

        w32Proc( xPostQuitMessage, { 0 } )
end procedure

SimpleWin = create( Window, "Executing", 0, 0, 0, 200, 100, 0 )
onOpen [SimpleWin] = routine_id ("onOpen_SimpleWin")

WinMain( SimpleWin, Normal )


----- Original Message -----
From: <gwalters at sc.rr.com>
To: "EUforum" <EUforum at topica.com>
Sent: Tuesday, January 15, 2002 5:52 PM
Subject: shell to MS explorer


>
> Can some one show me how from EU to shell to ms explorer and pass it a
html
> file name to open?
>
> thanks if you can.
>
> George Walters
>
>
>
>