Разработка программы для запуска на исполнение и закрытие внешнего дочернего процесса

Задание.

Разработать программу, позволяющую осуществлять запуск на исполнение и закрытие внешнего дочернего процесса. После создания процесса вывести значения идентификаторов процесса в соответствии с вариантом задания, который представлен в таблице вариантов и определяется по последней цифре учебного шифра студента.

В контрольной работе привести задание, таблицу идентификаторов, окно программы в стадии выполнения с информацией об идентификаторах, листинг программы.

Вариант2:

внешнее приложение – MS PowerPoint;

действие, выполняемое при запуске приложения – запуск на просмотр заданной презентации;

идентификаторы потока – дескриптор первого потока, глобальный идентификатор процесса;

приоритет процесса – нормальный;

способ закрытия процесса – функция TerminateProcess.

Окно программы.

Рис. 1.  Окно программы.

Листинг программы.

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Buttons, StdCtrls;

type

  TForm1 = class(TForm)

    edApp: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    edFile: TEdit;

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    btnStart: TSpeedButton;

    openDialog1: TOpenDialog;

    btnClose: TSpeedButton;

    Label3: TLabel;

    lblInfo: TLabel;

    procedure FormCreate(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

    procedure btnStartClick(Sender: TObject);

    procedure btnCloseClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  procInfo: TProcessInformation;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

     edApp.Text:='c:\Program files\Microsoft Office\OFFICE11\powerpnt.exe';