Как запретить запускать программу? - VB

Формулировка задачи:

У меня есть программа которая запускает другую программу, но вот только эту другую программу можно запускать много раз подряд. Как сделать так чтобы выполнялось условие: Если программа с именем X запущена то Command1.Enabled = False.

Решение задачи: «Как запретить запускать программу?»

textual
                            Листинг программы 
                        
Dim PID&
 
Sub Command1_Click()
    On Error Resume Next
    GetObject "WinMgmts:\\.\Root\CIMV2:Win32_Process.Handle=" & PID
    If PID = 0 Or Err <> 0 Then PID = Shell("calc.exe")
End Sub

Оцени полезность:

8 голосов , оценка 3.625 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы