run external .exe files within an ada program..

run external .exe files within an ada program..

[Henrik Möllberg]

how do I do that? does it exist any counterparts to "system" in perl or something?

(I'm developing in win32 environment)

regards,
Henrik

Re: run external .exe files within an ada program..

[Alfred Hilscher]

Look here for an example:
http://www.adapower.com/os/win32-createprocess.html

Henrik M�llberg wrote:
> 
> how do I do that? does it exist any counterparts to "system" in perl or something?
> 
> (I'm developing in win32 environment)
> 
> regards,
> Henrik

Re: run external .exe files within an ada program..

[David C. Hoos, Sr.]

[-- Attachment #1: Type: text/plain, Size: 690 bytes --]

The attachment is an Ada95 binding to the C function "system."

The binding is portable across operating systems -- i.e., it's not
limited to Win32 platforms.

----- Original Message -----
From: "Henrik M�llberg" <mollberg@hotmail.com>
Newsgroups: comp.lang.ada
To: <comp.lang.ada@ada.eu.org>
Sent: July 04, 2001 9:09 AM
Subject: run external .exe files within an ada program..


> how do I do that? does it exist any counterparts to "system" in perl or
something?
>
> (I'm developing in win32 environment)
>
> regards,
> Henrik
> _______________________________________________
> comp.lang.ada mailing list
> comp.lang.ada@ada.eu.org
> http://ada.eu.org/mailman/listinfo/comp.lang.ada
>

[-- Attachment #2: execute_shell_command.adb --]
[-- Type: application/octet-stream, Size: 404 bytes --]

------------------------------------------------------------------------
with Interfaces.C;
function Execute_Shell_Command (The_Command_String : String)
      return Interfaces.C.Int is
   package C renames Interfaces.C;
   function System (S : C.Char_Array) return C.Int;
   pragma Import (C, System, "system");
begin
   return System (C.To_C (The_Command_String));
end Execute_Shell_Command;

Re: run external .exe files within an ada program..

[wzm]

in GNAT，there are two subprograms in GNAT.OS_LIB,
   procedure Spawn
     (Program_Name : String;
      Args         : Argument_List;
      Success      : out Boolean);

   function Non_Blocking_Spawn
     (Program_Name : String;
      Args         : Argument_List)
      return         Process_Id;
they can execute the external file.  

"David C. Hoos, Sr." <david.c.hoos.sr@ada95.com> wrote in message news:<mailman.994262345.19004.comp.lang.ada@ada.eu.org>...
> The attachment is an Ada95 binding to the C function "system."
> 
> The binding is portable across operating systems -- i.e., it's not
> limited to Win32 platforms.
> 
> ----- Original Message -----
> From: "Henrik M�llberg" <mollberg@hotmail.com>
> Newsgroups: comp.lang.ada
> To: <comp.lang.ada@ada.eu.org>
> Sent: July 04, 2001 9:09 AM
> Subject: run external .exe files within an ada program..
> 
> 
> > how do I do that? does it exist any counterparts to "system" in perl or
>  something?
> >
> > (I'm developing in win32 environment)
> >
> > regards,
> > Henrik
> > _______________________________________________
> > comp.lang.ada mailing list
> > comp.lang.ada@ada.eu.org
> > http://ada.eu.org/mailman/listinfo/comp.lang.ada
> >
> 
> --

Re: run external .exe files within an ada program..

[Ted Dennison]

In article <mailman.994262345.19004.comp.lang.ada@ada.eu.org>, David C. Hoos,
Sr. says...
>
>This is a multi-part message in MIME format.

David, is there any way you can get rid of the MIMEs? I hate mimes....

---
T.E.D.    homepage   - http://www.telepath.com/dennison/Ted/TED.html
          home email - mailto:dennison@telepath.com

RE: run external .exe files within an ada program..

[Beard, Frank]

Henrik,

Someone might have answered this already, but one of 
the simplest ways is to use Winexec.  As in:

   status :=
      Win32.Winbase.WinExec(lpCmdLine => To_Lpcstr("C:\MyDir\My.exe"),
                            uCmdShow  => Win32.Winuser.SW_HIDE);

This is superceded by the more complicated CreateProcess API, but
it will probably never go away, at least not for a long time.

John English also sent an example of another API which works as well.

  Win32.WinDef.HINSTANCE hInst :=
    Win32.ShellAPI.ShellExecute(
      System.Null_Address,                      -- no parent window
      To_LPCSTR("open" & ASCII.NUL),            -- command
      To_LPCSTR("c:\MyDir\My.exe" & ASCII.NUL), -- file to open
      System.Null_Address,                      -- no parameters
      System.Null_Address,                      -- no default directory
      Win32.WinUser.SW_SHOWNORMAL               -- show window normally
    );

Hope this helps.

Frank

-----Original Message-----
From: mollberg@hotmail.com [mailto:mollberg@hotmail.com]
Sent: Wednesday, July 04, 2001 10:09 AM
To: comp.lang.ada@ada.eu.org
Subject: run external .exe files within an ada program..


how do I do that? does it exist any counterparts to "system" in perl or
something?

(I'm developing in win32 environment)

regards,
Henrik
_______________________________________________
comp.lang.ada mailing list
comp.lang.ada@ada.eu.org
http://ada.eu.org/mailman/listinfo/comp.lang.ada