Какой командой можно запустить внешнее приложение?
Какой командой можно запустить внешнее приложение? например по кнопке запустилось видео с рабочего стола..
Код:
'Shell
Private Sub bntRunCalculator_Click(sender As Object, e As EventArgs) Handles bntRunCalculator.Click
Static ProcID As Integer
'***** Запустить только один Calculator *****.
If ProcID = 0 Then
ProcID = Shell("C:\Windows\system32\calc.exe", AppWinStyle.NormalFocus)
Else
MessageBox.Show("Calculator уже работает ", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub
Private Sub bntRunCalculator_Click(sender As Object, e As EventArgs) Handles bntRunCalculator.Click
Static ProcID As Integer
'***** Запустить только один Calculator *****.
If ProcID = 0 Then
ProcID = Shell("C:\Windows\system32\calc.exe", AppWinStyle.NormalFocus)
Else
MessageBox.Show("Calculator уже работает ", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub
Спасибо огромное все работает!!!)
Чето я сомневаюсь, что если я калькулятор закрою, то он опять запустится. А вдруг мне нада 2 калькулона?
Мой bag вот рабочий
Код:
Private Sub bntRunCalculator_Click(sender As Object, e As EventArgs) Handles bntRunCalculator.Click
Dim ProcID As Process() = Process.GetProcessesByName("calc")
'***** Запустить только один Calculator *****.
If ProcID.Length = 0 Then
Shell("C:\Windows\system32\calc.exe", AppWinStyle.NormalFocus)
Else
MessageBox.Show("Calculator уже работает ", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub
Dim ProcID As Process() = Process.GetProcessesByName("calc")
'***** Запустить только один Calculator *****.
If ProcID.Length = 0 Then
Shell("C:\Windows\system32\calc.exe", AppWinStyle.NormalFocus)
Else
MessageBox.Show("Calculator уже работает ", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub
Код:
Private Sub bntRunCalculator_Click(sender As Object, e As EventArgs) Handles bntRunCalculator.Click
'***** Запустить КУЧУ Calculator *****.
Shell("C:\Windows\system32\calc.exe", AppWinStyle.NormalFocus)
End Sub
'***** Запустить КУЧУ Calculator *****.
Shell("C:\Windows\system32\calc.exe", AppWinStyle.NormalFocus)
End Sub
1) открыть "Все элементы панели управления"
Код:
Shell("C:\Windows\explorer.exe shell:::{21EC2020-3AEA-1069-A2DD-08002B30309D}"
Код:
Shell("C:\Windows\explorer.exe shell:Linkse") или Shell("C:\Windows\explorer.exe shell:Cookies")