Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Исходники Форум Информер Страны мира
   Многозадачность в Паскале    >>    vstasks
   
 
 Многопроцессорный монитор VSTask 1.01  Владимир Кононов 17.03.1994

Улучшенная версия модуля простого многопроцессного монитора VSTasks v1.01 для Turbo Pascal ver 7.0.



4k 
 

From: Vladimir P. Kononov <cosha@centr.avb.chernigov.ua> Organization: Chernigov AvtoVAZbank Братьям по бинарному перу посвящается ... Hello All ! Всем заинтересованным паскалистам новая версия многопроцессорного монитора для TP 7.0 - VSTask v1.01... { v.1.01 --- по сравнению с версией 1.0 исправлен выход из процесса- } { процедуры по достижению END. В предыдущей версии нужно } { было обязательно перед END-ом ставить HaltCurrentTask, } { иначе система "висла". Теперь при достижении конца } { процесса-процедуры автоматом процесс закрывается ... } { } { (c) VVSsoft Group. Кононов Владимир. } Кононов Владимир ... ( Cosha ) --- WWwv WW vwWW Chernigov, AvtoVAZbank oo ^\ <OO> /^ 00 E-mail: cosha@centr.avb.chernigov.ua (==)/\ \ (==) / / \(==) Phone: (046-22) 7-40-32 ( || ) Vladimir P.Kononov (dra' Cosha) {> Cut here. FileName= VSTASKS.PAS } {*******************************} {* Модуль простого *} {* многопроцессного монитора *} {* VSTasks v 1.01 *} {* для Turbo Pascal ver 7.0 *} {* (c) Copyright VVSsoft Group *} {*******************************} {$F+$S-} { v.1.01 --- по сравнению с версией 1.0 исправлен выход из процесса- } { процедуры по достижению END. В предыдущей версии нужно } { было обязательно перед END-ом ставить HaltCurrentTask, } { иначе система "висла". Теперь при достижении конца } { процесса-процедуры автоматом процесс закрывается ... } { } { (c) VVSsoft Group. Кононов Владимир. } Unit VSTasks; interface {--------------------------------------------} Type PTaskRec =^TTaskRec; { ---- описатель процесса -----} TTaskRec = record NumProc : word; { уникальный номер процесса }