1. Invissible DOS-BOX ?
THANKS DAN !
Cause I think a "Invisible DOS-BOX" is a "technical Issue" of common interest,
I share it with the List. (Code is below)
-----Original Message-----
From: Dan B Moyer [mailto:DANMOYER at prodigy.net]
Sent: Tuesday, November 21, 2000 3:21 PM
To: Gottwald, IT-IS T500, Fa. Compaq, DA
Subject: Re: Another possibilitiy
Theo,
Sure, but it essentially (?) just works to allow you to *execute* programs,
with parameters, without showing the dos box.
Here it is, with an example of how to use it below it:
(the "funny" names were chosen just to try to eliminate possiblity of
conflicts
with any other routines)
--------------------------------------------------------------------------
-- STUFF ADDED TO ALLOW RUNNING OTHER PROGRAMS:
-- (wraps ShellExecute fully, provided by Wolfgang Fritz):
-- 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 zJump_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
----------------------------------------------------------
-- example of using above:
zJump_to(
-- passing your "calling" window's id:
Window1,-- window jumping from (?)
-- with the program to call:
"exw.exe",
-- in the current directory (or any other directory you want to
specify):
current_dir(),
-- the parameter to pass to exw.exe to run:
"ide.exw",
-- and last, the 'show' parameter:
SW_SHOWDEFAULT )
-- or some other show paramters, like SW_SHOWMAXIMIZED
----- Original Message -----
From: "Gottwald, IT-IS T500, Fa. Compaq, DA" <T.Gottwald at deutschepost.de>
To: "'Dan B Moyer'" <DANMOYER at prodigy.net>
Sent: Tuesday, November 21, 2000 6:05 AM
Subject: RE: Another possibilitiy
> Hi Dan,
>
> can you sent me that "earlier wrap of system execute" ?
> I also want a "DOS-Box without DOS-Box" 
>
> THEO
>
> -----Original Message-----
> From: Dan B Moyer [mailto:DANMOYER at prodigy.net]
> Sent: Tuesday, November 21, 2000 2:56 PM
> To: Gottwald, IT-IS T500, Fa. Compaq, DA
> Subject: Re: Another possibilitiy
>
>
> thanks Theo,
>
> I actually found that file when I went looking for the other one
suggested,
> and am using it instead, as its routines are much shorter; instead of
> actually "including" them with the include statement, I "lifted" them
(with
> credits, of course!) into my code, to reduce the number of files to
include
> with my distribution. I also had to find a way to make an Euphoria
program
> execute without a dos box, which turned out to be a small problem, because
> it called an html program inside it, which was making problems, until I
> found an earlier "wrap" of "system_execute", which worked fine for me.
>
> Dan
>
> ----- Original Message -----
> From: "Gottwald, IT-IS T500, Fa. Compaq, DA" <T.Gottwald at deutschepost.de>
> To: "'DANMOYER at PRODIGY.NET'" <DANMOYER at prodigy.net>
> Sent: Tuesday, November 21, 2000 4:53 AM
> Subject: Another possibilitiy
>
>
> > Hi Dan, jus look up the included file.
> >
> > Greetings,
> > THEO
> >
> > PS: A unvisible DOS-Box would be intresting ... maybe it can be moved
out
> of the (visible)screen with a small hack in the windows-(x,y)Structure ?
> >
> >
>
****************************************************************************
> ********
> > IT-IS T500 * Theo Gottwald
> > COMPAQ Computer
> > mailto:T.Gottwald at deutschepost.de
> > Tel. 06151 / 908 - 5150
> > mobile: 0175-2 85 64 09
> >
> >
2. Re: Invissible DOS-BOX ?
All,
Just in case Theo's post is confusing to anyone, a little background:
1.Using Win32Lib v0.50, I wanted to copy & delete files from a within a
program;
2. however, using the dos commands made a dos box appear which I didn't
want;
3. I asked how I might negate this;
4. someone suggested I use Matt Ariola's 'Win32 utilities';
5. when I went to get them, I found "Win32 file functions" by Jeffrey
Fielding, which I used instead;
6. but I still had a problem when I went to run a 2nd Euphoria program from
the first, which itself ran a html program;
7. I used "DaJaRo jumpto" that Wolfgang sent me once to solve this problem;
8. Theo suggested I use Jeff's file functions, and I told him I had already
found them, and mentioned solving another problem of a dos box showing when
I made a Euphoria file execute, by using the "DaJaRo jumpto" wrap;
9. he found this interesting, and thought others might also, so he posted
our exchange.
Theo:
My suspicion is that your post may have been somewhat confusing, & would
have benefited from some sort of preliminary explanation.
Dan Moyer
3. Re: Invissible DOS-BOX ?
As an alternative, you can use a Win32lib routine.
shellExecuteEx("open",
<program name>,
<command line parameters>,
0,
SW_SHOWDEFAULT,
0)
------
Derek Parnell
Melbourne, Australia
(Vote [1] The Cheshire Cat for Internet Mascot)
> Here it is, with an example of how to use it below it:
> (the "funny" names were chosen just to try to eliminate possiblity of
> conflicts
> with any other routines)
> --------------------------------------------------------------------------
> -- STUFF ADDED TO ALLOW RUNNING OTHER PROGRAMS:
> -- (wraps ShellExecute fully, provided by Wolfgang Fritz):
>
> -- 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 zJump_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
> ----------------------------------------------------------
> -- example of using above:
> zJump_to(
> -- passing your "calling" window's id:
> Window1,-- window jumping from (?)
> -- with the program to call:
> "exw.exe",
> -- in the current directory (or any other directory you want to
> specify):
> current_dir(),
> -- the parameter to pass to exw.exe to run:
> "ide.exw",
> -- and last, the 'show' parameter:
> SW_SHOWDEFAULT )
> -- or some other show paramters, like SW_SHOWMAXIMIZED
>
