Test Sample for Installers: Is installed - Is Running etc.

[Eagle]

A while back I cooked up some code to assist with some of the various
detection aspects for Product Installers

I have modified things a bit to make for a more generic code template, if you like:
(also added option to run the installed Application via dialog message for those that want it)

Could some of you run some tests on this code, report bugs, weaknesses etc

--For Global Functions:

function IsInstallerRunning()
local ncnt = 0;
local tImageInst = System.EnumerateProcesses();
	if tImageInst then
	Table.Sort(tImageInst, nil);
		for procid, image_path in tImageInst do
			if (String.CompareNoCase(image_path, strInstallerPath) == 0) then
				ncnt = ncnt + 1;
				if (ncnt > 1) then
					return true; --reasonable verification another instance of this Installer is running			
				end	
			end		
		end	
	end	
return false;
end

function IsProductRunning()
local tImages = System.EnumerateProcesses();
	if tImages then
		for procid, binimage_path in tImages do
			if (String.Find(binimage_path, strAppFolderPath, 1, false) ~= -1) then
			local tAppVerinfo = File.GetVersionInfo(binimage_path);
				if tAppVerinfo then
					if (tAppVerinfo.FileVersion >= strAppMinVer) and (tAppVerinfo.ProductName == strAppVerProdName) then
					return true; --reasonable verification target product is already running
					end
				end	
			end		
		end	
	end	
return false;
end

function IsProductInstalled()
strAppFolderPath = Registry.GetValue(HKEY_LOCAL_MACHINE, strAppMainkey, "InstallPath", true);
	if (strAppFolderPath ~= "") then
	local tAppVerinfo = File.GetVersionInfo(strAppFolderPath.."\\"..strAppBinName);
		if tAppVerinfo then
			--attempt file version specs verification
			if (tAppVerinfo.FileVersion >= strAppMinVer) and (tAppVerinfo.ProductName == strAppProdName) then
				return true; --reasonable verification target product is installed
			end		
		end	
	end
return false;	
end

--For On Startup Event:

Application.Sleep(100);

	---- Set your target Application lua variables ----

strProductDislpayName =  SessionVar.Expand("%ProductName%");
strAppBinName = "MainApp.exe";
 
--now set file version specification target variables

strAppMinVer = "4.0.0.0"; --internal 'fileversion' spec to verify
strAppVerProdName = "TheProductName"; --internal 'productname' spec to verify
strInstallerPath = _SourceFilename; --full path to running Installer.exe

--now set registry key-s to target and value-s(these were or will be created during a full install routine)
	--(note: for example purposes the valuename is set as 'InstallPath' in related global function)

strAppMainkey = "Software\\My Application";

	---- First lets check if the Installer is already running ----

if IsInstallerRunning() then
	Application.Exit(0); --nothing to do, previous instance of installer at work, so exit now
else

	--- Now Call the Target Application Detection Routines (functions) ---

	if IsProductInstalled() then

	-- the product appears to be installed, so call function to check if MainApp.exe is already running

		if IsProductRunning() then
			Application.Exit(0); --nothing to do exit now
		else
			-- apparently MainApp.exe is not running so offer to start it up for the user
		local RunApp = Dialog.Message(" - "..strProductDislpayName.." Information -", "Do you wish to run "..strProductDislpayName.." now", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON1);
			if (RunApp == 6) then	
				File.Run(strAppFolderPath.."\\"..strAppBinName, "", "", SW_SHOWNORMAL, false); --run the MainApp.exe
				local nerror = Application.GetLastError();
				if (nerror == 0) then
				Application.Exit(0); --could set a different return code for a log file reference(indicating already installed)
				else
				Dialog.Message("Error: "..strProductDislpayName.." Failed to Start", _tblErrorMessages[error], MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
				Application.Exit(0); --could set a different return code for log file reference(indicate already installed but could not be started)	
				end
			else
				Application.Exit(0); --user chose not to run the MainApp.exe, so exit now
			end				
		end		
	end
end

just modify the string variables in the on startup code to test.
(you need to have the target registry key and valuename for proper functionality)

for sure expanded functionality such as CRC and MD5 checks, encrypted paths, additional path checks etc. can be added...

once we get things nice and solid..will post the final code in the Examples Section

[Eagle]

already found one coding 'mod error' 15 min posting limit at it again

replace the IsProductInstalled() function with this one:

function IsProductInstalled()
strAppFolderPath = Registry.GetValue(HKEY_LOCAL_MACHINE, strAppMainkey, "InstallPath", true);
	if (strAppFolderPath ~= "") then
	local tAppVerinfo = File.GetVersionInfo(strAppFolderPath.."\\"..strAppBinName);
		if tAppVerinfo then
			--attempt file version specs verification
			if (tAppVerinfo.FileVersion >= strAppMinVer) and (tAppVerinfo.ProductName == strAppVerProdName) then
				return true; --reasonable verification target product is installed
			end		
		end	
	end
return false;	
end