From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: a07f3367d7,3f5dfe9e475b2ad0
X-Google-Attributes: gida07f3367d7,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news2.google.com!news4.google.com!feeder3.cambriumusenet.nl!feed.tweaknews.nl!194.109.133.84.MISMATCH!newsfeed.xs4all.nl!newsfeed5.news.xs4all.nl!xs4all!news.stack.nl!aioe.org!not-for-mail
From: tmoran@acm.org
Newsgroups: comp.lang.ada
Subject: re: kill a process
Date: Mon, 21 Sep 2009 23:45:27 +0000 (UTC)
Organization: Aioe.org NNTP Server
Message-ID: <h9936m$ppc$1@aioe.org>
References: 
 <6eea521f-5113-4982-bf66-066c2c277951@e34g2000vbm.googlegroups.com>
NNTP-Posting-Host: +ERTOT2Y9KJRZ8n+NpAZGA.user.aioe.org
X-Complaints-To: abuse@aioe.org
X-Notice: Filtered by postfilter v. 0.8.0
X-Newsreader: Tom's custom newsreader
Cancel-Lock: sha1:cLvqO2hmBic8He5QouUz8Vsu4Jk=
Xref: g2news2.google.com comp.lang.ada:8422
Date: 2009-09-21T23:45:27+00:00
List-Id: <comp.lang.ada>

>How can I kill a Windows process in Ada?

  type Process_Handles is new Interfaces.C.Unsigned;
  type Exit_Codes is new Interfaces.C.Unsigned;
  type Bool is new Interfaces.C.Int;

  function TerminateProcess(Process   : Process_Handles;
                            Exit_Code : Exit_Codes) return Bool;
  pragma Import(StdCall, TerminateProcess, "TerminateProcess");