Custom Actions to check processes

[joyceck]

Anyone have a custom action that checks to see if a program is running

[Cosmin]

Hi,

You can see if a process is running by using this custom action:

Code: Select all

Dim objWMIService, objProcess, colProcess
Dim strComputer 
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 = "thunderbird.exe" then
	MsgBox objProcess.Name
End If
Next

You can modify this custom action in order to fit your needs.

Regards,
Cosmin

[Pepa]

Is there any way to modify this script to abort this installation if the process is detected to be running?

[Cosmin]

Hi,

I have answered to this questions on another thread, please take a look:
http://www.advancedinstaller.com/forums ... php?t=5427

Regards,
Cosmin