Как запретить запускать программу? - 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