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