Win32Ada and CreateProcess

["Simon Johnston" <skj@acm.org>]

Can anyone help here. I am using ObjectAda 7.1 and am trying to use the
Win32 API CreateProcess function. I have copied code from an existing C++
application which I know works but every time it runs I get a Win32 error
2, which is ERROR_FILE_NOT_FOUND. Included below is the beginning of the
package including the relevant procedure. This is beginning to annoy me so
rather than tear out my hair I thought I would ask around.


with System; use System;

with Interfaces.C; use Interfaces.C;

with Win32; use Win32;
with Win32.Winnt; use Win32.Winnt;
with Win32.Winbase; use Win32.Winbase;
with Win32.Winuser; use Win32.Winuser;

package body Process_Control is
    
    function memset
       (Destination : in Win32.PVOID;
        Fill        : in Interfaces.C.int;
        Length      : in Interfaces.C.size_t) 
        return Win32.PVOID;
    pragma Import(C, memset, "memset");
    
    procedure Execute
        (Command_Line : in String;
         Environment  : in String  := "";
         Process      : out Process_Id) is
        dwError  : DWORD;
        fCreate  : Win32.BOOL;
        StartInfo: aliased STARTUPINFO;
        ProcInfo : aliased PROCESS_INFORMATION;
        pTemp    : PVOID;
    begin
        
        pTemp := memset(StartInfo'Address, 0, StartInfo'Size / 8);
        
        StartInfo.cb          := StartInfo'Size / 8;
        StartInfo.wShowWindow := SW_SHOW;

        fCreate := CreateProcess(lpApplicationName    => null,
            			lpCommandLine        => Win32.Addr(Command_Line),
                                 		lpProcessAttributes  => null,
                                 		lpThreadAttributes   => null,
                                 		bInheritHandles      => Win32.TRUE,
                                 		dwCreationFlags      =>
(CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS),
                                 		lpEnvironment        => null,
                                 		lpCurrentDirectory   => null,
                                 		lpStartupInfo        =>
StartInfo'Unchecked_Access,
                                 		lpProcessInformation =>
ProcInfo'Unchecked_Access);
	    if fCreate = Win32.FALSE then
            dwError := GetLastError;
			raise Not_Executable;
        end if;                                     
    end Execute;

with StandardDisclaimer; use StandardDisclaimer;
package Sig is
--,--------------------------------------------------------------.
--|Simon K. Johnston - Windows NT Consultant |Dimensions + Ltd   |
--|------------------------------------------|150 Minories       |
--|Telephone: +44 (0)171 2642144             |London             |
--|Fax      : +44 (0)171 2642145             |EC3N 1LS           |
--|Mail URI : mailto:skj@acm.org             |United Kingdom     |
--|WWW URI  : http://www.DimensionsPlus.Com  |                   |
--`--------------------------------------------------------------'
end Sig;