OpenEuphoria

Re: Launching a document with it's default viewer

• Posted by Travis Beaty <travisbeaty at arn.net> Apr 08, 2001
• 427 views

Howdy!


Give this piece of code a whirl.  It uses shellExecute from win32lib.ew.
This should give you some idea of how to do what you're wanting ...  

-- How to launch something with shellExecute

include win32lib.ew

constant
    window = create(Window, "Launch Euphoria site", 0, Default, Default,
Default, Default, 0),
    btn = create(Button, "Let's see site", window, 0, 0, 100, 100, 0)


procedure onClick_btn()

    shellExecute("Open", "www.rapidEuphoria.com", SW_SHOWNORMAL)

end procedure

onClick[btn] = routine_id("onClick_btn")

WinMain(window, Normal)




Happy Hunting,

Travis Beaty
Claude, Texas.