Проверка программы, запущенной через Shell

@Батарейка · Регистрация: 30.05.2011

Студворк — интернет-сервис помощи студентам

Я использую внешнюю программу для расчётов определённого вида, при этом запускаю её через Shell(). Как мне узнать, завершила ли она работу? (после этого я буду подгружать файл с данными)

Заранее спасибо.

@VladConn · 17.02.2012, 22:53

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
 
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long
 
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
 
Const SYNCHRONIZE = &H100000
Const WAIT_TIMEOUT = &H102
 
Public Sub ShellAndWait(CommandLine As String)
 
   Dim dwProcessID As Long
   Dim hProcess As Long
    
   dwProcessID = Shell(CommandLine, vbNormalFocus)
    
   If dwProcessID <> 0 Then
      hProcess = OpenProcess(SYNCHRONIZE, False, dwProcessID)
      If hProcess <> 0 Then
         Do While WaitForSingleObject(hProcess, 100) = WAIT_TIMEOUT
            DoEvents
         Loop
         CloseHandle hProcess
      End If
   End If
  
End Sub

Успехов

Новые блоги и статьи Все статьи Все блоги /
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .

@Батарейка 0 / 0 / 0 Регистрация: 30.05.2011 Сообщений: 12

	Проверка программы, запущенной через Shell 17.02.2012, 19:03. Показов 1833. Ответов 1 Метки нет (Все метки) Я использую внешнюю программу для расчётов определённого вида, при этом запускаю её через Shell(). Как мне узнать, завершила ли она работу? (после этого я буду подгружать файл с данными) Заранее спасибо. 0