OpenEuphoria

Invissible DOS-BOX ?

• Posted by "Gottwald, IT-IS T500, Fa. Compaq, DA" <T.Gottwald at DEUTSCHEPOST. Nov 21, 2000
• 381 views

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
> >
> >