1. Re: shellExecute()
> So now I have used it, & it works fine, but I have one last (ha!) question:
> how could I use it in a program to cause your tutorial to run? I've tried
> every way to write the file name I could think of (except of course the
> correct one), and couldn't get it to run.
Dan B Moyer sent me the above question, and the short answer is:
...using the current version of shellExecute() in win32lib, you can't.
It actually only uses three of the five parameters required for a 'full'
shellExecute.
Here's an example that 'wraps' all 5 parameters, that hopefully works.
Note, I,m calling my tutorial 'beta' here, in the folder " I " have it in, so
you might have to change these. This ran from any folder/drive I tried it
from.
Hope this answers some shellExecute() questions... thanks to DaJaRo
Wolf
--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 Jump_to(integer id,sequence filename,
sequence defaultpath,sequence parameters, integer flag)
sequence command, Filenam, DefaultPath, Parameters
integer Nop
atom command_ptr,Fnm_ptr,Prm_ptr,Dfp_ptr,hw
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
constant
Win=create(Window,"Test",0,0,0,200,100,0),
FileMenu=create( Menu,"File",Win,0,0,0,0,0),
RunMenu=create(MenuItem,"&Run Tutorial",FileMenu,0,0,0,0,0),
----
procedure onMenu_Exit()
closeWindow(Win)
end procedure
onClick [ExitMenu] = routine_id("onMenu_Exit")
----
procedure RunTut()
Jump_to(
-- passing your main window's id
Win,
-- with the program to call
"exw.exe",
-- this is my current 'tutorials' default path !!
"c:\\EUwintutor\\EUwintutor\\",
-- the parameter to pass to exw.exe
"WinTutor.exw",
-- and last, the 'show' parameter
SW_SHOWDEFAULT )
end procedure
onClick [RunMenu] = routine_id("RunTut")
----
WinMain(Win,Normal)
--end example--
