AdaPower Logged in as Guest
Ada Tools and Resources

Ada 95 Reference Manual
Ada Source Code Treasury
Bindings and Packages
Ada FAQ


Join >
Home >
Articles >
Getting Started >
Ada FAQ >
Source Treasury >
Books & Tutorials >
Packages for Reuse >
Latest Additions >
Ada Projects >
Press Releases >
Ada Audio / Video >
Home Pages >
Links >
Contact >
About >
Login >
Back
Using CreateProcess (David Botton)

with Win32.Winbase; use Win32.Winbase;
with Win32; use type Win32.BOOL;

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Unchecked_Conversion;

with interfaces.c; use interfaces.c;
with System;

procedure Create_Process is

   function To_LPSTR is
      new Ada.Unchecked_Conversion (System.Address, Win32.LPSTR);

   Command_Line : Char_Array := To_C("explorer.exe");
   Startup_Info : aliased STARTUPINFO;
   Process_Info : aliased PROCESS_INFORMATION;
   bResult      : Win32.BOOL;
   
begin
   put_line("Creating Process - Explorer");

   Startup_Info.cb          :=   (STARTUPINFOA'Size)/System.Storage_Unit;
   Startup_Info.lpReserved  :=   null;
   Startup_Info.lpDesktop   :=   null;
   Startup_Info.lpTitle     :=   null;
   Startup_Info.dwFlags     :=   0;
   Startup_Info.cbReserved2 :=   0;
   Startup_Info.lpReserved2 :=   null;

   bResult := CreateProcess(
                 lpApplicationName     =>   null,
                 lpCommandLine         =>   To_LPSTR(Command_Line'Address),
                 lpProcessAttributes   =>   null,
                 lpThreadAttributes    =>   null,
                 bInheritHandles       =>   Win32.False,
                 dwCreationFlags       =>   0,
                 lpEnvironment         =>   System.Null_Address,
                 lpCurrentDirectory    =>   null,
                 lpStartupInfo         =>   Startup_Info'Unchecked_Access,
                 lpProcessInformation  =>   Process_Info'Unchecked_Access );

   if bResult /= Win32.False then
      put_line("Process created.");
   else
      put_line("Process creation failed.");
   end if;

end Create_Process;


(c) 1998-2004 All Rights Reserved David Botton