;~ Opt("TrayAutoPause", 0)
;~ Opt("MustDeclareVars", 1)

; * --------------------:| # Example
Example()

Func Example()
	Run("C:\Windows\System32\notepad.exe")
	Run("C:\Windows\System32\notepad.exe")
	Run("C:\Windows\SysWOW64\notepad.exe")
	Run("C:\Windows\SysWOW64\notepad.exe")
	Local $sProcessPath = "C:\Windows\System32\notepad.exe"
	Local $xProcessPath = "C:\Windows\SysWOW64\notepad.exe"
	Sleep(1000)
	_ProcessCloseByPath($xProcessPath)
	Local $vReturn = _ProcessCloseFromPath($sProcessPath)
	ConsoleWrite("-->Value of @error is: " & @error & @CRLF & "-->Value of @extended is: " & @extended & @CRLF)
	ConsoleWrite("-->Return values: " & $vReturn & @CRLF)
EndFunc   ;==>Example
; * --------------------:| # Example

;~;#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7
; #FUNCTION# ====================================================================================================================
; Name...........: _ProcessCloseFromPath()
; Description ...: Close Process from Path
; Syntax.........: _ProcessCloseFromPath($sProcessPath [, $Fc = 1] )
; Parameters ....: $sProcessPath  - Full path of Process
;                  $Fc            - Try Force Close Process
; Return values .: Success = 1 : All ProcessClose OK
;                      @error = 0
;                      @extended = -1 : Process doesn't exist
;                      @extended = Number of Process same name
;                  Failure = 0 : Process Close Failure
;                      @error = -1 : Process File Path Not Exists
;                      @error = Number of Process can't Close
;                      @extended = 0
; Author ........: guinness, Trong
; Example .......: Yes
; ===============================================================================================================================
Func _ProcessCloseFromPath($sProcessPath, $Fc = 1);
	If Not FileExists($sProcessPath) Then Return SetError(-1, 0, 0);
	Local $sProcessName = StringTrimLeft($sProcessPath, StringInStr($sProcessPath, "\", Default, -1));
	If Not ProcessExists($sProcessName) Then Return SetError(0, -1, 1);
	Local $vPID = ProcessList($sProcessName), $n, $sFailure = 0, $Extended = 0, $sSuccess = 1, $sPID
	For $n = 1 To $vPID[0][0];
		$sPID = $vPID[$n][1];
		If (StringLower($sProcessPath) = StringLower(_ProcessGetPath($sPID))) Then;
			If $Fc Then
				ProcessClose($sPID);
			Else
				_ForceProcessClose($sPID);
			EndIf
		Else;
			$Extended = $Extended + 1;
			$sPID = 0;
		EndIf;
	Next;
	For $n = 1 To $vPID[0][0];
		If ProcessExists($sPID) Then $sFailure += 1;
	Next;
	If $sFailure Then $sSuccess = 0;
	Return SetError($sFailure, $Extended, $sSuccess);
EndFunc   ;==>_ProcessCloseFromPath
; * -----:| =====================================================================================================================

; #FUNCTION# ====================================================================================================================
; Name...........: _ForceProcessClose()
; Description ...:  Force Process Close
; Syntax.........: _ForceProcessClose($sPID [, $Fc = 10] )
; Parameters ....: $sPID  - PID of Process
;                  $Fc   - Number of try close
; Return values .: Success = 1 : Process Close OK
;                      @error = 0
;                      @extended  = 0
;                      @extended  = -1 : Process doesn't exist
;                  Failure = 0 : Process Close Failure
;                      @error = 1
;                      @extended  = 0
; Modified.......: Trong
; Example .......: Yes
; ===============================================================================================================================
Func _ForceProcessClose($sPID, $Fc = 10);
	If IsString($sPID) Then $sPID = ProcessExists($sPID);
	If Not $sPID Then Return SetError(0, -1, 1);
	While ProcessExists($sPID);
		ProcessClose($sPID);
		Sleep(1);
		$Fc -= 1;
		If $Fc < 1 Then ExitLoop;
	WEnd;
	If ProcessExists($sPID) Then RunWait(@ComSpec & " /c taskkill /F /PID " & $sPID & " /T", @SystemDir, @SW_HIDE);
	If ProcessExists($sPID) Then Return SetError(1, 0, 0);
	Return SetError(0, 0, 1);
EndFunc   ;==>_ForceProcessClose
; * -----:| =====================================================================================================================


; #FUNCTION# ===============================================================================
; Name...........: _ProcessGetPath()
; Description ...: Retrieves a process file path
; Syntax.........: _ProcessGetPath($vProcess)
; Parameters ....: $vProcess - PID or name of a process
; Requirements...: kernel32.dll, psapi.dll
; Return values .: Success - A full process path
;                    @error = 0
;                   Failure - Empty string
;                    @error = 1 - Invalid process name/PID
;                    @error = 2 - kernel32.dll failed to open (wrong version?)
;                    @error = 3 - Could not OpenProcess
;                     @error = 4 - psapi.dll failed to open (doesn't exist?)
;                    @error = 5 - returned path is empty or invalid
; Author ........: JScript, Larry, SmOke_N
; Modified.......: mrRevoked - reformated, error checking : Trong - fix special path
; Example .......: Yes
; ============================================================================================
Func _ProcessGetPath($vProcess)
	Local $i_PID, $hKernel32, $hPsapi, $aProcessHandle, $tDLLStruct, $iError, $sProcessPath
	$i_PID = ProcessExists($vProcess)
	If Not $i_PID Then Return SetError(1, 0, ""); Process doesn't exist?
	$hKernel32 = DllOpen("Kernel32.dll")
	$iError = @error
	If $iError Then
		DllClose($hKernel32)
		Return SetError(2, $iError, ""); DllOpen kernell32.dll failed
	EndIf
	$aProcessHandle = DllCall($hKernel32, "int", "OpenProcess", "int", 0x0400 + 0x0010, "int", 0, "int", $i_PID)
	$iError = @error
	If $iError Or $aProcessHandle[0] = 0 Then
		DllClose($hKernel32)
		Return SetError(2, $iError, ""); OpenPocess failed
	EndIf
	$hPsapi = DllOpen("Psapi.dll")
	$iError = @error
	If $iError Then
		DllClose($hKernel32)
		DllClose($hPsapi)
		Return SetError(3, $iError, ""); DllOpen psapi.dll failed
	EndIf
	$tDLLStruct = DllStructCreate("char[1000]")
	DllCall($hPsapi, "long", "GetModuleFileNameEx", "int", $aProcessHandle[0], "int", 0, "ptr", DllStructGetPtr($tDLLStruct), "long", DllStructGetSize($tDLLStruct))
	$iError = @error
	DllCall($hKernel32, "int", "CloseHandle", "int", $aProcessHandle[0])
	DllClose($hKernel32)
	DllClose($hPsapi)
	If $iError Then
		$tDLLStruct = 0
		Return SetError(4, $iError, "");GetModulefilenamex failed
	EndIf
	$sProcessPath = DllStructGetData($tDLLStruct, 1)
	$tDLLStruct = 0
	;Format the Output
	If StringLen($sProcessPath) < 2 Then Return SetError(5, 0, "");is empty or non readable
	If StringLeft($sProcessPath, 4) = "\??\" Then $sProcessPath = StringReplace($sProcessPath, "\??\", "")
	If (StringLower(StringLeft($sProcessPath, 20)) = "\systemroot\system32") Then $sProcessPath = StringReplace($sProcessPath, "\SystemRoot\System32", @SystemDir)
	Return SetError(0, 0, $sProcessPath)
EndFunc   ;==>_ProcessGetPath
; * -----:| =====================================================================================================================


; #FUNCTION# ===============================================================================
; Name...........: _ProcessCloseByPath()
; Author ........: boththose
; Modified.......: Trong - reformated
Func _ProcessCloseByPath($sPath);
	Local $colItems = "", $strComputer = "localhost", $wbemFlagReturnImmediately = 0x10, $wbemFlagForwardOnly = 0x20;
	Local $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\ROOT\CIMV2"), $sFailure = 0, $sSuccess = 1;
	Local $cQuery = "SELECT ExecutablePath,ProcessId FROM Win32_Process WHERE ExecutablePath = " & '"' & StringReplace($sPath, "\", "\\") & '"'
	$colItems = $objWMIService.ExecQuery($cQuery, "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly);
	If IsObj($colItems) Then;
		For $objItem In $colItems;
			Local $sPID = $objItem.ProcessId;
			ProcessClose($sPID);
			If ProcessExists($sPID) Then $sFailure += 1;
		Next;
	EndIf;
	If $sFailure Then $sSuccess = 0;
	Return SetError($sFailure, 0, $sSuccess);
EndFunc   ;==>_ProcessCloseByPath
; * -----:| =====================================================================================================================