Запуск нескольких приложений из моего

[DrBAXA]

Здраствуйте!
Интересуєт такой вопрос. Можно ли із моєго приложения запустить несколько чужих и мониторить их завершение?
Если да то каким примерно обазом, через какие функции і компоненти?
Зарание спасибо!
При етом нужно штоб моя програма нормально работала.

[Stilet]

Можно.
http://delphiworld.narod.ru/_all_articles_.html
Раздел Приложения чужие - [58]

[DrBAXA]

Сообщение от Stilet

Можно.
http://delphiworld.narod.ru/_all_articles_.html
Раздел Приложения чужие - [58]

Там есть много о том как подождать пока работает чужая программа, но мне нужно чтоби в ето время моя работала и узнала что чужая завершилась. К тому же нужно зазпускать сразу несколько копий одной проги с различними параметрами. Может ли чужая прога давать какое то сообщение о завершении. І можно ли ето грганизовать в отдельних потоках. Вообще как создать поток со своего класса, и опредилить его 'execute'?

[Stilet]

мне нужно чтоби в ето время моя работала

Запускай в сопроцессе. Изучай TThread для этого.

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

Не вопрос. Опять таки сопроцессы нужно.

Может ли чужая прога давать какое то сообщение о завершении.

Может, но...
1) Не факт что дает
2) Я точно не помню как результат этот считывается.

как создать поток со своего класса, и опредилить его 'execute'?

В Делфи в меню New есть шаблон Thread. Он создает модуль с полностью описанным классов сопроцесса - используй его, и читай там камменты, там информативно написано.

[DrBAXA]

Поизучал TThread, теперь возникает новий вопрос. Мне мой клас с кучей параметров сделать потомком TThread или TThread встроить параметром класа?
Попробовал первий вариант и проблема в том что я перекриваю конструктор TThread изза чего возникает ошибка.
Если можно второй вариант то как в нем определить execute елемента?

[Stilet]

проблема в том что я перекриваю конструктор TThread

Ога. Первым оператором в override конструкторе пиши inherited; чтоб он подтянул базовый метод.

или TThread встроить параметром класа?

А это ниче не даст. Тоесть ничего удобного.

[DrBAXA]

Сообщение от Stilet

Ога. Первым оператором в override конструкторе пиши inherited; чтоб он подтянул базовый метод.

Большое спасибо! Помогло. Теперь вроде работает)
Я про такой оператор не слишал до етого)

[DrBAXA]

Теперь возникла новая проблема. В програме создаетса порядка 200 таких обектов-потоков. и ето все жрет порядка 800 МБ памяти. Можно как то с етим боротса или лучше переделать прогу чтоб потоки отдельно создавать? но ето уже будеть напряжно((

[Stilet]

В програме создаетса порядка 200 таких обектов-потоков.

Почему так много?

[DrBAXA]

Сообщение от Stilet

Почему так много?

Обект ето у меня устройство которое опрашиваетса чужой програмой но с кучей параметров. Думал так будет проще, если прямо из обекта запускать опрос.

Только что немного изменил код. Сделал обект просто класом, а память то не уменьшилас!!! Что ето?

Вот описание класа

 TDevice = class(TThread)
    protected
      ACom:string;
      AResult:byte;
      AProcId:cardinal;
      AMEMInd:integer;
      AObjId:integer;                  //Обєкт базі з даними 1.8.0
      AType:integer;                   //Тип лічильника
      ADevID:integer;                 //Номер в базі ElectroCNF
      AName:string;                   //Назва точки обліку
      ASNumb:string;                  //серійний номер
      ACMDPath:string;                //Шлях до командного файлу на опитування
      AXMLPath:string;                //Шлях до XML фйлу на опитування
      ADone:boolean;                //Чи опитано
      NRD:cardinal;                 //Скільки днів не опитано
      function GetStatus:boolean;     //Перевірка на опитаність
      procedure SetActive(A:boolean); //Встановлення активності
      procedure CreateXML;            //Створення XML файлу
      Procedure CreateCMD;            //Створення CMD файлу

      public
      Checked:boolean;
      property Done:boolean read GetStatus;   //Чи опитано
      procedure execute;
      constructor Create(ID:integer);
  end;

Можете сказать почему так многопамяти жрет?
Пробовал и без TThread.

на половину уменьшил уничтожив TSQLiteDB по завершению конструктора, больше утечек найти не могу(
Извиняюсь! Ура нашол все утечки теперь ето 7МБ что куда лучше)))