home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / os2apipm.zip / APIEXAM / PARENT.ADB < prev    next >
Text File  |  1996-08-20  |  1KB  |  34 lines
  1. -- Simple example of DosKillProcess API OS/2
  2. with Ada.text_io; use Ada.text_io;
  3. with builtin; use builtin;
  4. with Os2; use Os2;
  5. with Os2.Bse; use Os2.Bse;
  6. procedure parent is
  7.  
  8. LENGTH: ulong := 40;
  9. FLAGS : ulong := 1 ;
  10. args  : aliased uchar := 0 ;   -- empty arg list
  11. envs  : aliased uchar := 0 ;   -- empty env list
  12. pARGS  : psz  :=args'address;
  13. pENVS  : psz  :=envs'address;
  14. buf   : aliased string(1..integer(LENGTH));
  15. pbuf  :Pch:=buf(1)'address;
  16. name  :aliased constant string:="CHILD.EXE" & ' ' & character'val(0);
  17. ppgmname:pch   :=name(1)'address;
  18. childID:aliased RESULTCODES ;    -- Os2-bse
  19. pchildid:PRESULTCODES :=childId'unchecked_access;
  20. KillAll :ulong :=0 ;   -- kill process
  21. rc      : apiret ;
  22. lit     : character;
  23.  
  24. begin
  25.  rc := dosexecpgm(pbuf,length,flags,pargs,penvs,pchildid,ppgmname);
  26.  if rc>0 then put_edit("DosExecPgm error =",integer(rc),4); goto fin; end if;
  27. get(lit);
  28.                           -- kill
  29. rc := DosKillProcess(KillAll,childID.codeTerminate);
  30. new_line; put_edit("DosKillProcess error =",integer(rc),4);
  31.  
  32. <<fin>> null;
  33. end parent;
  34.