Как запретить запускать программу? - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д