IsExecutingInSeparateProcess
Revision as of 07:10, 3 August 2022 by 1>Admin
IsExecutingInSeparateProcess (Функции среды) | |||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|
|
Функция возвращает 1, если текущая программа исполняется в процессе, созданном функцией InitializeSeparateProcess. Также может получить идентификатор процесса, заданный при его создании.
Синтаксис
IsExecutingInSeparateProcess(<Идентификатор процесса (STRING)>):<Результат 0 или 1 (INT)>
Аргументы
<Идентификатор процесса (STRING)>
- (возможен аргумент-переменная (ByRef)) (необязательный аргумент) Аргумент может возвращать идентификатор процесса, который передавался процессу в момент вызова InitializeSeparateProcess.
Возвращаемое значение
Функция возвращает числовое значение.
Примеры
Function ИсполнитьВДругомПроцессе(ByRef спДанные) СтрИмя:=""; спДанные["ПодчиненныйПроцесс"]:=IsExecutingInSeparateProcess(СтрИмя); спДанные["ИмяПодчиненногоПроцесса"]:=СтрИмя; EndFunction аПроцесс:=Mutex.InitializeSeparateProcess("Уникальное имя"); спДанные:=List.Create(); аПроцесс.InterProcessExecuteFunction("ИсполнитьВДругомПроцессе",спДанные); //Подчиненный процесс: 1 //Имя подчиненного процесса: Уникальное имя Message("Подчиненный процесс: "+спДанные["ПодчиненныйПроцесс"]); Message("Имя подчиненного процесса: "+спДанные["ИмяПодчиненногоПроцесса"]); спДанные:=List.Create(); ИсполнитьВДругомПроцессе(спДанные); //Подчиненный процесс: 0 //Имя подчиненного процесса: Message("Подчиненный процесс: "+спДанные["ПодчиненныйПроцесс"]); Message("Имя подчиненного процесса: "+спДанные["ИмяПодчиненногоПроцесса"]);