OpenEuphoria

Re: How to run Eu pgm FROM Eu pgm, with PARAMETERS (for 2nd Eu pgm)

• Posted by DerekParnell (admin) Jul 11, 2009
• 1172 views

I've just done some testing here and its all working just fine.

I'm using Euphoria 4 and win32lib 0.70.16, so I can't directly comment on the results you are getting with old version of the programs.

Here is the programs I used ...

-- Main test program 
include win32lib.ew 
 
constant win = create(Window, "Shell", 0, 0, 0, 500, 500, 0) 
constant btn = create(Button, "Do It", win, 10, 10, 50, 50, 0) 
constant res = create(EditText, "", win, 10, 100, 250, 30, 0) 
 
integer cnt = 0 
procedure click_Btn(integer self, integer event, sequence parms) 
    cnt += 1 
	setText( res, sprintf("%02d RC=%d",  
                    {cnt,  
                     shellExecuteEx("open",  
                                    "c:\\program files\\utils\\eui.exe",  
                                    {"c:\\temp\\tests.ex","Q","W R"}, 0, 0, 0) 
                    } 
                    ) 
               ) 
end procedure 
setHandler( btn, w32HClick,routine_id("click_Btn")) 
 
WinMain(win, Normal) 
 

-- Program that is invoked (tests.ex). 
sequence c = command_line() 
integer fh 
fh = open("c:\\temp\\test.res", "w") 
for i = 1 to length(c) do 
	printf(fh, "%2d '%s'\n", {i, c[i]}) 
end for 
close(fh) 

Results...

 1 'c:\program files\utils\eui.exe' 
 2 'c:\temp\tests.ex' 
 3 'Q' 
 4 'W R'