1. WIN32LIB - shellExecute
- Posted by michaelstee at yahoo.com May 02, 2001
- 616 views
Hi all! I've got a Win32Lib app that will be running on Win2000, and I want to launch WordPad from my app. I'm trying shellExecute(), but it doesn't seem to do anything. Here's the snippet of code: str = "C:\\program files\\windows NT\\accessories\\wordpad.exe " outfile = "C:\\rich.rtf" shellExecute(str,outfile, 0) The documentation says the 3 params are command,file,style. I'm sure I've got them wrong in my code, but there's no example. Can anyone help? Thanks!
2. Re: WIN32LIB - shellExecute
- Posted by Euman <euman at bellsouth.net> May 02, 2001
- 539 views
This is a multi-part message in MIME format. ------=_NextPart_000_0011_01C0D333.D0951D40 charset="iso-8859-1" TRY the attached and tell me if it works.. Euman ----- Original Message ----- From: <michaelstee at yahoo.com> To: "EUforum" <EUforum at topica.com> Subject: WIN32LIB - shellExecute > > > Hi all! > I've got a Win32Lib app that will be running on Win2000, and I want > to launch WordPad from my app. I'm trying shellExecute(), but it > doesn't seem to do anything. Here's the snippet of code: > > str = "C:\\program files\\windows NT\\accessories\\wordpad.exe " > outfile = "C:\\rich.rtf" > shellExecute(str,outfile, 0) > > The documentation says the 3 params are command,file,style. I'm sure > I've got them wrong in my code, but there's no example. Can anyone help? > > Thanks! > > > > > > ------=_NextPart_000_0011_01C0D333.D0951D40 Content-Type: application/octet-stream; name="shellexec2.exw" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename="shellexec2.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 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), OpenMenu=create(MenuItem,"&Open File",FileMenu,0,0,0,0,0), ExitMenu=create(MenuItem,"E&xit",FileMenu,0,0,0,0,0) ---- procedure onMenu_Exit() closeWindow(Win) end procedure onClick [ExitMenu] = routine_id("onMenu_Exit") ---- procedure OpenFile() Jump_to( -- passing your main window's id Win, -- with the program to call --"exw.exe", "wordpad.exe", -- this is my current 'tutorials' default path !! "C:\\program files\\windows NT\\accessories\\", -- the parameter to pass to exw.exe "C:\\rich.rtf", -- and last, the 'show' parameter SW_HIDE ) end procedure onClick [OpenMenu] = routine_id("OpenFile") ---- WinMain(Win,Normal) ------=_NextPart_000_0011_01C0D333.D0951D40--
3. Re: WIN32LIB - shellExecute
- Posted by Euman <euman at bellsouth.net> May 02, 2001
- 552 views
My fault, you'll need to change SW_HIDE to SW_NORMAL near the bottom in OpenFile( ) Euman ----- Original Message ----- From: "Euman" <euman at bellsouth.net> To: "EUforum" <EUforum at topica.com> Subject: Re: WIN32LIB - shellExecute > > > TRY the attached and tell me if it works.. > > Euman > > ----- Original Message ----- > From: <michaelstee at yahoo.com> > To: "EUforum" <EUforum at topica.com> > Sent: Wednesday, May 02, 2001 14:46 > Subject: WIN32LIB - shellExecute > > > > > > > > Hi all! > > I've got a Win32Lib app that will be running on Win2000, and I want > > to launch WordPad from my app. I'm trying shellExecute(), but it > > doesn't seem to do anything. Here's the snippet of code: > > > > str = "C:\\program files\\windows NT\\accessories\\wordpad.exe " > > outfile = "C:\\rich.rtf" > > shellExecute(str,outfile, 0) > > > > The documentation says the 3 params are command,file,style. I'm sure > > I've got them wrong in my code, but there's no example. Can anyone help? > > > > Thanks! > > > > > > > > > > > > > > >
4. Re: WIN32LIB - shellExecute
- Posted by Travis Beaty <travisbeaty at arn.net> May 02, 2001
- 575 views
Howdy! Works on WinME! -- Travis -- 5/2/2001 6:42:05 PM, Euman <euman at bellsouth.net> wrote: >> >> >> TRY the attached and tell me if it works.. >> >> Euman
5. Re: WIN32LIB - shellExecute
- Posted by Euman <euman at bellsouth.net> May 03, 2001
- 567 views
The ShellExec( ) in Win32lib varies only slightly but with the demo i gave you, the key to makeing win32libs work is contained there. Look at OpenFile( ) and try to feed win32libs function the same info. if it works great if it doesnt, e-mail me and I'll help you get it going. Euman ----- Original Message ----- From: <michaelstee at yahoo.com> To: "EUforum" <EUforum at topica.com> Subject: RE: WIN32LIB - shellExecute > > > > Euman wrote: > > TRY the attached and tell me if it works.. > > > > Works wonderful (in both WinMe and Win98) !! > Thanks a lot! But out of curiousity, why doesn't the shellExecute() > work? > > Michael. > > > > > >
6. Re: WIN32LIB - shellExecute
- Posted by Maidie2 at aol.com May 09, 2001
- 715 views
--part1_84.15abb7ff.282afee4_boundary Please unsubscribe me? I'm learning lots from you folks, but am short on time the next two months. thanks for all you didn't realize you've taught me - Mary (who lurks) --part1_84.15abb7ff.282afee4_boundary <HTML><FONT FACE=arial,helvetica><FONT SIZE=2>Please unsubscribe me? I'm learning lots from you folks, but am short on <BR>time the next two months. <BR> <BR>thanks for all you didn't realize you've taught me - <BR> <BR>Mary (who lurks) --part1_84.15abb7ff.282afee4_boundary--