[Вопрос] Реализация многопоточности запуска/остановки конкретных программ из списка

[Человек_Борща]

Доброго времени суток!

И так хочу реализовать многопоточность в своей программе.
т.е контроль многопоточности.

Моя программа запускает другие программы при помощи класса TThread и каждый запущенный поток ожидает завершения запускаемой им программы.

но проблема состоит в том что нет возможности запустить/остановить какую-то конкретно выбранную программу в списке.

Есть только запуск всего и остановки вся .

Хотелось бы узнать о том как реализовать запуск/остановку выбранной программы в списке или скажем потока в списке.


Что для этого нужно?

[evg_m]

при создании потока для элемента из списка надо зафиксировать данный объект (поток) за элементом списка (для этого обычно применяют свойства списка (элемента спска) для хранения данных пользователя (программиста). В зависмости от используемого класса списка. Tag | Data | Objects[]

var
  r: TMyThread;
  item: TTreeNode;
//фиксирование
item:=TTreeView.Selected;
r=TMyTheead.Create;
item.Data:=r;

// доступ для использования
item:=TTreeView.Selected;
r:=TMythhread(item.Data);
r.... // что нам делать с данным потоком

[Человек_Борща]

Хм у меня вот так выглядит код:

unit AppsListUnit;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Dialogs, ExtCtrls, IniFiles, ComCtrls, AppThreadUnit,
  TlHelp32, ProccesUnit;

type
  {Класс программы (Запуск остановка, и всё что с этим связано)}
  TApp = class
  private
    Timer: TTimer;
    procedure KillChidProcces;
    procedure DoTimer(Sender: TObject);
  public
    AppInfo: TAppInfo;
    AppThr: TappThread;    //поток который запускает программы
    constructor Create;
    destructor Destroy; override;
    procedure Start;
    procedure Stop;
  end;

  {Класс списка программ, сохранение, загрузка=)}
  TAppsList = class(TList)
  private
    function GetApp(Indx: integer): TApp;
  public
    destructor Destroy; override;
    property Apps[Indx: Integer]: TApp read GetApp;
    procedure AddApp(app: TApp);
    procedure DeleteApp(Indx: Integer);
    procedure Load;
    procedure Save;
    procedure Start;
    procedure Stop;
  end;

implementation

uses MainUnit, GlobalConsts, GlobalStrings;

var
  i: Integer;

  { TApp }

constructor TApp.Create;
begin
  Timer := TTimer.Create(nil);
  Timer.Enabled := False;
  Timer.OnTimer := DoTimer;
end;

destructor TApp.Destroy;
begin
  Timer.Free;
  inherited;
end;

procedure TApp.DoTimer(Sender: TObject);
begin
  KillChidProcces;
  TerminateProcess(AppThr.PI.hProcess, 0);
end;

procedure TApp.KillChidProcces;
var
  pl: Cardinal;
  pe: TProcessEntry32;
  hp: HWND;
begin
  pl := CreateToolHelp32Snapshot(TH32CS_SnapProcess, 0);
  if pl = INVALID_HANDLE_VALUE then
    Exit;
  try
    pe.dwSize := SizeOf(pe);
    if Process32First(pl, pe) then
      repeat
        if pe.th32ParentProcessID = AppThr.PI.dwProcessId then
        begin
          hp := OpenProcess(PROCESS_ALL_ACCESS, False, pe.th32ProcessID);
          TerminateProcess(hp, 0);
          CloseHandle(hp);
          Break;
        end;
      until not Process32Next(pl, pe);
  finally
    CloseHandle(pl);
  end;
end;

procedure TApp.Start;
begin
  if AppThr = nil then
  begin
    AppThr := TAppThread.Create(true);
    AppThr.AppInfo := @AppInfo;
    AppThr.Resume;
    Timer.Interval := AppInfo.AppRestart * 1000 * 60;
    Timer.Enabled := True;
  end;
end;

procedure TApp.Stop;
begin
  if AppThr <> nil then
  begin
    Timer.Enabled := False;
    AppThr.Terminate;
    KillChidProcces;
    TerminateProcess(AppThr.PI.hProcess, 0);
    AppThr.Free;
    AppThr := nil;
  end;
end;

{ TAppsList }

procedure TAppsList.AddApp(App: TApp);
var
  LI: TListItem;
begin
  with MainForm.Appslist do
  begin
    add(App);
    Li := Items.Add;
    if App.AppInfo.AppName = '' then
    begin
      app.AppInfo.AppName := RsApplicationNoTittle;
    end;
    LI.Caption := app.AppInfo.AppName;
  end;
end;

procedure TAppsList.DeleteApp(Indx: Integer);
begin
  Apps[indx].Free;
  Delete(indx);
end;

destructor TAppsList.Destroy;
begin
  while Count > 0 do
  begin
    TApp(Items[0]).Free;
    Delete(0);
  end;
  inherited;
end;

function TAppsList.GetApp(Indx: integer): TApp;
begin
  Result := Items[Indx];
end;

procedure TAppsList.Start;
var
  i:Integer;
begin
  for i := 0 to Count - 1 do
    if Apps[i].AppInfo.AppStart then
      Apps[i].Start;
end;

procedure TAppsList.Stop;
var
  i:Integer;
begin
  for i := 0 to Count - 1 do
    Apps[i].Stop;
end;

end.

Для запуска и остановки всех программ в списке используются процедуры:

procedure TAppsList.Start;
procedure TAppsList.Stop;

в свою очередь которые используют вот эти две из класса TApp:

procedure TApp.Start;
procedure TApp.Stop;

переменная класса TApp , Apps по сути счётчик потоков.

как тут реализовать запуск/остановку выбранного потока?

[evg_m]

Для запуска и остановки всех программ в списке используются процедуры:

procedure TAppsList.Start;
procedure TAppsList.Stop;

в свою очередь которые используют вот эти две из класса TApp:

procedure TApp.Start;
procedure TApp.Stop;

переменная класса TApp , Apps по сути счётчик потоков.

как тут реализовать запуск/остановку выбранного потока?

procedure TAppsList.Stop;
var
  i:Integer;
begin
  for i := 0 to Count - 1 do
    Apps[i].Stop;
end;

procedure Tapplist.StartOne(indexapp: integer);
begin
  iapps[indexapp].Start;
end;

procedure Tapplist.StopOne(indexapp: integer);
begin
  iapps[indexapp].Stop;
end;

так?

[Человек_Борща]

нет, не работает =(((

[evg_m]

нет, не работает =(((

как жто было обнаружено?

[Человек_Борща]

программа из списка просто не запустилась.

procedure TMainForm.AppsRunBtnClick(Sender: TObject);
var
  i: Integer;
begin
    i := Appslist.ItemIndex;
  if i <> -1 then
  begin
  AppList.StartOne(i);
  end;
end;

procedure TAppsList.StartOne(indx: integer);
begin
Apps[indx].Start;
end;

[Человек_Борща]

поможет кто? пожалуйста

[evg_m]

procedure TApp.Start;
begin
  if AppThr = nil then  ///  может вот это
  begin
    AppThr := TAppThread.Create(true);
    AppThr.AppInfo := @AppInfo;
    AppThr.Resume;
    Timer.Interval := AppInfo.AppRestart * 1000 * 60;
    Timer.Enabled := True;
  end;
end;