Pokud by ti stačilo pouze upravit spouštění - něco jako launcher, pak stačí skript.
Výhoda je ta, že nic neběží trvale, nevýhoda je ta, že musíš např. na ploše vytvořit ikonu pro spouštění programu. A pokud skript někam uložíš a na ploše vytvoříš zástupce pro spouštění skriptu, pak tomuto zástupci můžeš i změnit ikonu na ikonu spouštěného programu.
Vzorový kód spustí audacity pouze v případě, že neběží chrome.
Kód: Vybrat vše
'**********************************************
'* Skript kontrolního spouštění programů *
'**********************************************
'* e.t.script v.1.0 (c) 2017 *
'**********************************************
Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strList, WshShell
Const ADC = "c:\Program Files (x86)\Audacity\audacity.exe"
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process")
For Each objProcess in colProcess
If objProcess.Name = "chrome.exe" Then Negativ
Next
Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.Run Chr(34) & ADC & Chr(34)
Set WshShell = Nothing
Set objWMIService = Nothing
Set colProcess = Nothing
WScript.Quit
' Negative
Sub Negativ
MsgBox "Program nelze spustit!" & vbcrlf & "Detekován proces: " & objProcess.Name ,vbOKOnly + vbCritical, "UPOZORNĚNÍ!"
Set objWMIService = Nothing
Set colProcess = Nothing
Set WshShell = Nothing
WScript.Quit
End Sub
Kód satčí zkopírovat, vložit do notepadu a uložit s příponou .vbs.