1. Help needed to run programs from within EU program
- Posted by Tony Steward <tony at locksdownunder.com> Oct 20, 2001
- 396 views
--part1_8e.1cca6297.29028f78_boundary Hi All, I am attempting to write a simple Autoexecute menu for my CDR's. The link below will allow you to download it, to save on the lists traffic. My problem id the program named runme.exw I can not get it to run my programs. I think I have done something wrong with the system command. I won't go into detail here but it is a short simple program and should be self explanatory. Would some one please have a quick look for me. http://members.aol.com/lockmaster67/Downloads/menu.zip thanks Tony --part1_8e.1cca6297.29028f78_boundary Content-Type: text/html; charset="US-ASCII" Content-Transfer-Encoding: 7bit <HTML><FONT FACE=arial,helvetica><BODY BGCOLOR="#ffffff"><FONT SIZE=2>Hi All, <BR>I am attempting to write a simple Autoexecute menu for my CDR's. The link below will allow you to download it, to save on the lists traffic. <BR> <BR>My problem id the program named runme.exw I can not get it to run my programs. <BR>I think I have done something wrong with the system command. <BR> <BR>I won't go into detail here but it is a short simple program and should be self explanatory. Would some one please have a quick look for me. <BR> <BR>http://members.aol.com/lockmaster67/Downloads/menu.zip <BR> <BR>thanks --part1_8e.1cca6297.29028f78_boundary--
2. Re: Help needed to run programs from within EU program
- Posted by euman at bellsouth.net Oct 20, 2001
- 376 views
This is a multi-part message in MIME format. ------=_NextPart_000_0007_01C159B9.2333BE60 charset="iso-8859-1" in the attached file look near the bottom to setup the params like this: Exec_Prog( -- passing your main window's id 1, -- with the program to call e.g: "IE.exe" "exw", -- this is the default path !! e.g: "C:\\Window\\IE\\" "C:\\euphoria\\bin\\", -- the param to pass to exw.exe e.g "myhtm.html" "ascii.ex", -- and last, the 'show' parameter SW_NORMAL ) You might want to rename some things for this to run with win32lib but, it works as is now. Euman euman at bellsouth.net > ------=_NextPart_000_0007_01C159B9.2333BE60 Content-Type: application/octet-stream; name="shellexec3.exw" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename="shellexec3.exw" --start example-- include win32lib.ew without warning -- originally from DaJaRo jumpto.ew atom lib integer jJumpto --id if platform() = WIN32 then lib = open_dll("shell32.dll") jJumpto = define_c_func(lib,"ShellExecuteA", {C_INT,C_POINTER,C_POINTER,C_POINTER,C_POINTER,C_INT},C_INT) if jJumpto = -1 then puts(1,"couldn't find ShellExecuteA\n") abort(1) end if end if procedure Exec_Prog(integer id,sequence filename,sequence defaultpath,sequence parameters, integer flag) sequence command, Filenam, DefaultPath, Parameters atom command_ptr,Fnm_ptr,Prm_ptr,Dfp_ptr,hw integer Nop command = "Open" Filenam= filename Parameters=parameters DefaultPath=defaultpath command_ptr = allocate_string(command) Fnm_ptr = allocate_string(Filenam) Prm_ptr = allocate_string(Parameters) Dfp_ptr = allocate_string(DefaultPath) hw= getHandle(id ) Nop=c_func(jJumpto,{hw,command_ptr, Fnm_ptr,Prm_ptr,Dfp_ptr,flag}) free(command_ptr) free(Fnm_ptr) free(Prm_ptr) free(Dfp_ptr) end procedure Exec_Prog( -- passing your main window's id 1, -- with the program to call e.g: "IE.exe" "exw", -- this is the default path !! e.g: "C:\\Window\\IE\\" "C:\\euphoria\\coolbmps\\", -- the param to pass to exw.exe e.g "myhtm.html" "coolwin2.exw", -- and last, the 'show' parameter SW_NORMAL ) ------=_NextPart_000_0007_01C159B9.2333BE60--