Guinness: /* _ProcessCloseFromPath() */

2014-05-12T19:41:59Z

_ProcessCloseFromPath()

← Older revision		Revision as of 19:41, 12 May 2014
Line 587:		Line 587:

	<syntaxhighlight lang="autoit">		<syntaxhighlight lang="autoit">
			#include <MsgBoxConstants.au3>

	Example()		Example()

	Func Example()		Func Example()
	; Close a process using the filepath rather than the filename, which is what ProcessClose requires.		; Close a process using the filepath rather than the filename, which is what ProcessClose requires.

	~~; Run Notepad~~
	~~Run("notepad.exe")~~

	; Wait 10 seconds for the Notepad window to appear.		; Run Notepad
	WinWait("[CLASS:Notepad]", "", 10)		Run("notepad.exe")

			; Wait 10 seconds for the Notepad window to appear.
			WinWait("[CLASS:Notepad]", "", 10)

	; Wait for 2 seconds.		; Wait for 2 seconds.
	Sleep(2000)		Sleep(2000)

	Local $sNotepad = @SystemDir & "\notepad.exe"		Local $sNotepad = @SystemDir & "\notepad.exe"
	MsgBox(~~4096~~, "", "Path of Notepad: " & $sNotepad)		MsgBox($MB_SYSTEMMODAL, "", "Path of Notepad: " & $sNotepad)

	; Close the Notepad process using the filepath.		; Close the Notepad process using the filepath.
	_ProcessCloseFromPath($sNotepad)		_ProcessCloseFromPath($sNotepad)
	EndFunc ;==>Example		EndFunc ;==>Example

	Func _ProcessCloseFromPath($sFilePath)		Func _ProcessCloseFromPath($sFilePath)
	If FileExists($sFilePath) ~~= 0 Then~~		Return FileExists($sFilePath) ? ProcessClose(StringTrimLeft($sFilePath, StringInStr($sFilePath, "\", Default, -1))) : SetError(1, 0, 0)
	~~Return SetError(1, 0, 0)~~
	~~EndIf~~
	~~Return~~ ProcessClose(StringTrimLeft($sFilePath, StringInStr($sFilePath, "\", 2, -1)))
	EndFunc ;==>_ProcessCloseFromPath		EndFunc ;==>_ProcessCloseFromPath
	</syntaxhighlight>		</syntaxhighlight>

Jaberwocky6669: Imposed the Snippet template.

2013-07-27T05:52:51Z

Imposed the Snippet template.

Show changes

IEvKI3gv9Wrkd41u: +Snippets Category (+ normalize top)

2012-11-12T15:12:16Z

+Snippets Category (+ normalize top)

← Older revision		Revision as of 15:12, 12 November 2012
Line 1:		Line 1:
	__TOC__		__TOC__
	~~<div class="center" style="width~~:~~auto; margin-left:auto; margin-right:auto;">'''Please always credit an author in your script if you use their code, Its only polite.'''</div>~~		[[category:Snippets]]

			{{Snippet Credit Header}}

	===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _CancelPrinterJobs() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====		===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _CancelPrinterJobs() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

Chimaera at 16:07, 21 May 2012

2012-05-21T16:07:24Z

New page

__TOC__
<div class="center" style="width:auto; margin-left:auto; margin-right:auto;">'''Please always credit an author in your script if you use their code, Its only polite.'''</div>
===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _CancelPrinterJobs() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
; Cancel printer jobs for the default printer or the printer name provided.

ConsoleWrite(_CancelPrinterJobs() & @CRLF)
ConsoleWrite(_CancelPrinterJobs('HP Printer 1234') & @CRLF)

Func _CancelPrinterJobs($sPrinterName = '')
If StringStripWS($sPrinterName, 8) = '' Then
$sPrinterName = 'Default = True'
Else
$sPrinterName = 'Name = "' & $sPrinterName & '"'
EndIf
Local $iResult = 0, $oWMIService = ObjGet('winmgmts:\\' & '.' & '\root\cimv2')
Local $oColItems = $oWMIService.ExecQuery('Select * From Win32_Printer Where ' & $sPrinterName)
If IsObj($oColItems) Then
For $oObjectItem In $oColItems
$iResult = $oObjectItem.CancelAllJobs()
Next
EndIf
Return $iResult
EndFunc ;==>_CancelPrinterJobs
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _CheckElevationEnabled() ~ Author - [http://www.autoitscript.com/forum/user/52374-johnone/ JohnOne] '''</blockquote> =====
<syntaxhighlight lang="autoit">
; OS dependent = Vista, server 2008 SP1 and WIN7
;#### Example ####
Local $bUAC = _CheckElevationEnabled()
If @error Then
Exit MsgBox(0,"Error",@error)
EndIf
MsgBox(0,"UAC Enabled",$bUAC)

;Checks if Use Access Control (UAC) is Enabled.
Func _CheckElevationEnabled()
Local $struct = DllStructCreate("BOOL")
Local $aRtn = DllCall("kernel32.dll","DWORD","CheckElevationEnabled","ptr", DllStructGetPtr($struct))
If @error Then
Return SetError(@error)
EndIf
Return SetError($aRtn[0],0,DllStructGetData($struct,1))
EndFunc
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _Detect if System is Locked ~ Author - [http://www.autoitscript.com/forum/user/1967-garyfrost/ GaryFrost] '''</blockquote> =====

<syntaxhighlight lang="autoit">
; Detect if System is Locked

Global Const $DESKTOP_ENUMERATE = 0x40
Global Const $SPI_GETSCREENSAVERRUNNING = 114
Global Const $DESKTOP_SWITCHDESKTOP = 0x100

HotKeySet("{ESC}", "_Terminate")
AdlibEnable("IsDeskTopLocked", 500)

While 1
Sleep(10)
WEnd

Func IsDeskTopLocked()
Local $p_lngHwnd, $p_lngRtn, $p_lngErr, $p_lngScreenSaver, $p_blnIsScreenSaver
;~ ' ------------------------------------------
;~ ' First check for screen saver one of 2 ways,
;~ ' based of OS
;~ ' ------------------------------------------
If @OSTYPE = "WIN32_WINDOWS" Then
;~ ' ---------------------------------------
;~ ' Pre W2K -- Note, will only be TRUE if
;~ ' the "Password Protected" box is
;~ ' checked.
;~ ' ---------------------------------------
$p_lngHwnd = DllCall("user32.dll", "int", "OpenDesktopA", "str", "screen-saver", "int", 0, "int", False, "int", $DESKTOP_ENUMERATE)
If $p_lngHwnd[0] <> 0 Then
$p_blnIsScreenSaver = True
Else
$p_blnIsScreenSaver = False
EndIf
Else
;~ ' ---------------------------------------
;~ ' W2K+ -- Will determine if screen saver
;~ ' is running whether or not the
;~ ' "Password Protected" box is checked
;~ ' ---------------------------------------
$p_lngRtn = DllCall("user32.dll", "int", "SystemParametersInfoA", "int", $SPI_GETSCREENSAVERRUNNING, "int", 0, "int", $p_lngScreenSaver, "int", 0)
If $p_lngRtn[0] = 0 Then
ConsoleWrite("Error detecting screen saver" & @LF)
Else
$p_blnIsScreenSaver = $p_lngScreenSaver
EndIf

EndIf
;~ ' ------------------------------------------
;~ ' If screen saver is *not* running, then
;~ ' check for locked workstation
;~ ' ------------------------------------------
If $p_blnIsScreenSaver Then
If @OSTYPE = "WIN32_WINDOWS" Then
ConsoleWrite("Screen saver is running..., Handle #" & $p_lngHwnd[0] & @LF)
$p_lngHwnd = DllCall("user32.dll", "int", "CloseDesktop", "int", $p_lngHwnd[0])
Else
ConsoleWrite("Screen saver is running on W2K+" & @LF)
EndIf
Else
$p_lngHwnd = DllCall("user32.dll", "int", "OpenDesktopA", "str", "Default", "int", 0, "int", False, "int", $DESKTOP_SWITCHDESKTOP)

If $p_lngHwnd[0] = 0 Then
ConsoleWrite("Error with OpenDesktop" & @LF)
Else
$p_lngRtn = DllCall("user32.dll", "int", "SwitchDesktop", "int", $p_lngHwnd[0])
$p_lngErr = _GetLastErrorMessage()

If $p_lngRtn[0] = 0 Then
If $p_lngErr = 0 Then
ConsoleWrite("Desktop is locked" & @LF)
Else
ConsoleWrite("Error with SwitchDesktop" & @LF)
EndIf
Else
ConsoleWrite("Not locked!" & @LF)
EndIf
$p_lngHwnd = DllCall("user32.dll", "int", "CloseDesktop", "int", $p_lngHwnd[0])
EndIf
EndIf
EndFunc ;==>IsDeskTopLocked

Func _Terminate()
Exit
EndFunc ;==>_Terminate
;===============================================
; _GetLastErrorMessage($DisplayMsgBox="")
; Format the last windows error as a string and return it
; if $DisplayMsgBox <> "" Then it will display a message box w/ the error
; Return Window's error as a string
;===============================================
Func _GetLastErrorMessage($DisplayMsgBox = "")
Local $ret, $s
Local $p = DllStructCreate("char[4096]")
Local Const $FORMAT_MESSAGE_FROM_SYSTEM = 0x00001000
If @error Then Return ""
$ret = DllCall("Kernel32.dll", "int", "GetLastError")
$ret = DllCall("kernel32.dll", "int", "FormatMessage", _
"int", $FORMAT_MESSAGE_FROM_SYSTEM, _
"ptr", 0, _
"int", $ret[0], _
"int", 0, _
"ptr", DllStructGetPtr($p), _
"int", 4096, _
"ptr", 0)
$s = DllStructGetData($p, 1)
If $DisplayMsgBox <> "" Then MsgBox(0, "_GetLastErrorMessage", $DisplayMsgBox & @CRLF & $s)
Return $s
EndFunc ;==>_GetLastErrorMessage
</syntaxhighlight>

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _DisplayWindowsSwitcher() ~ Author - [http://www.autoitscript.com/forum/user/66537-knightz93/ Knightz93] ~ Modified - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
HotKeySet("{ESC}", "_Exit") ; Press the ESC key to escape.
HotKeySet("!3", "_DisplayWindowsSwitcher") ; Press Alt+3 to display the Windows Switcher, though this in Windows is also Win Key + Tab.

While 1
Sleep(100)
WEnd

; Only works on Windows 7+
Func _DisplayWindowsSwitcher()
Local $oShell = ObjCreate("shell.application")
If @error Then
Return SetError(1, 0, 0)
EndIf
$oShell.WindowSwitcher()
EndFunc ;==>_DisplayWindowsSwitcher

Func _Exit()
Exit
EndFunc ;==>_Exit
</syntaxhighlight>

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _DisableWindowsLock() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
ConsoleWrite('Disable Windows Lock: ' & _DisableWindowsLock() & @CRLF)
MsgBox(4096, '', 'Select Win + L to see the result of using _DisableWindowsLock.')
ConsoleWrite('Disable Windows Lock: ' & _DisableWindowsLock() & @CRLF)

; Disable the locking of Windows. Returns 1 - disabled or 0 - enabled.
Func _DisableWindowsLock()
Local $i64Bit = ''

If @OSArch = 'X64' Then
$i64Bit = '64'
EndIf
Local $iRegRead = Number(Not RegRead('HKEY_CURRENT_USER' & $i64Bit & '\Software\Microsoft\Windows\CurrentVersion\Policies\System', 'DisableLockWorkstation'))
Return SetError(Not RegWrite('HKEY_CURRENT_USER' & $i64Bit & '\Software\Microsoft\Windows\CurrentVersion\Policies\System', 'DisableLockWorkstation', 'REG_DWORD', $iRegRead), 0, $iRegRead)
EndFunc ;==>_DisableWindowsLock
</syntaxhighlight>

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _IsFontExists() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
#include <APIConstants.au3>
#include <WinAPIEx.au3>

ConsoleWrite(_IsFontExists("WebDings.ttf") & @CRLF)

Func _IsFontExists($sFontType)
Return FileExists(_WinAPI_ShellGetSpecialFolderPath($CSIDL_FONTS) & "\" & $sFontType) ; WebDings.ttf
EndFunc ;==>_IsFontExists
</syntaxhighlight>

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _GetDesktopWallpaper() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
#include <WinAPI.au3>

ConsoleWrite( _GetDesktopWallpaper() & @CRLF)

Func _GetDesktopWallpaper()
Local $SPI_GETDESKWALLPAPER = 0x0073
Local $tPATH = DllStructCreate('wchar[260]')
_WinAPI_SystemParametersInfo($SPI_GETDESKWALLPAPER, 260, DllStructGetPtr($tPATH))
Return DllStructGetData($tPATH, 1)
EndFunc ;==>_GetDesktopWallpaper
</syntaxhighlight>

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _GetOSVersion() ~ Author - [http://www.autoitscript.com/forum/user/7108-xenobiologist/ Xenobiologist] '''</blockquote> =====

<syntaxhighlight lang="autoit">
MsgBox(0,0, _GetOSVersion())

Func _GetOSVersion()
Local $objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Local $colSettings = $objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For $objOperatingSystem In $colSettings
Return "Windows " & StringMid($objOperatingSystem.Caption, 19)
Next
EndFunc ;==>_getOSVersion
</syntaxhighlight>

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _InstallDate() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
ConsoleWrite(_InstallDate() & @CRLF)

Func _InstallDate()
Local $oWMIService = ObjGet("winmgmts:{impersonationLevel = impersonate}!\\" & "." & "\root\cimv2")
Local $oColFiles = $oWMIService.ExecQuery("Select * From Win32_OperatingSystem")
If IsObj($oColFiles) Then
For $oObjectFile In $oColFiles
Return StringRegExpReplace($oObjectFile.InstallDate, "\A(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})(?:.*)", "$3/$2/$1 $4:$5:$6")
Next
EndIf
Return SetError(1, 0, 0)
EndFunc ;==>_InstallDate
</syntaxhighlight>

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _Installed version of Windows with mathematical operators ~ Author - [http://www.autoitscript.com/forum/user/52-geosoft/ GEOSoft] '''</blockquote> =====

<syntaxhighlight lang="autoit">
; Test the installed version of Windows with mathematical operators.

Global Const $2K_VER = 5.0
Global Const $XP_VER = 5.1
Global Const $XP64_VER = 5.2
Global Const $VISTA_VER = 6.0
Global Const $W7_VER = 6.1

$iCurrVer = RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CurrentVersion")
MsgBox(0, "Result", $iCurrVer >= $VISTA_VER)
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _IsElevationRequired() ~ Author - [http://www.autoitscript.com/forum/user/52374-johnone/ JohnOne] '''</blockquote> =====
<syntaxhighlight lang="autoit">
; OS dependent = Vista, server 2008 SP1 and WIN7
;#### Example 1 ####
Global $bool = _IsElevationRequired("C:\Windows\notepad.exe") ;Pass path of an exe that does not normally need elevated privileges
If @error Then
Exit MsgBox(0,"Error",@error)
EndIf
;should show 0
MsgBox(0,"Elevation notepad",$bool)

;#### Example 2 ####
$bool = _IsElevationRequired("C:\Windows\regedit.exe") ;Pass path of an exe that does normally need elevated privileges
If @error Then
Exit MsgBox(0,"Error",@error)
EndIf
;should show 1
MsgBox(0,"Elevation regedit",$bool)

Func _IsElevationRequired($szPath) ;Checks if an executable (.exe) needs elevated permissions to run.
Local Const $BAD_ARG = 6
If StringRight($szPath,3) <> "exe" Then
Return SetError($BAD_ARG)
EndIf
Local $aRtn = DllCall("shell32.dll","BOOL",865,"wstr",$szPath)
If @error Then
Return SetError(@error)
EndIf
Return $aRtn[0]
EndFunc ;===>_IsElevationRequired
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _IsServer() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
ConsoleWrite( _IsServer() & @CRLF)

Func _IsServer() ; MSDN: http://msdn.microsoft.com/en-us/library/windows/desktop/aa394239(v=vs.85).aspx
Local $oWMIService = ObjGet("winmgmts://./root/cimv2"), $oWMIServiceItem
Local $oColItems = $oWMIService.ExecQuery("Select * From Win32_OperatingSystem")
If IsObj($oColItems) Then
For $oWMIServiceItem In $oColItems
If $oWMIServiceItem.ProductType = 2 Or $oWMIServiceItem.ProductType = 3 Then
Return 1
EndIf
Next
EndIf
Return SetError(1, 0, 0)
EndFunc ;==>_IsServer
</syntaxhighlight>

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _IsPrimaryOS() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
; Tell if the current OS is the primary OS.

ConsoleWrite("_IsPrimaryOS() >> " & _IsPrimaryOS() & @LF)

Func _IsPrimaryOS($sComputerName = @ComputerName)
Local $oColItems, $oWMIService

$oWMIService = ObjGet("winmgmts:\\" & $sComputerName & "\root\cimv2")
If @error Then
Return SetError(1, 0, 1)
EndIf
$oColItems = $oWMIService.ExecQuery("Select * From Win32_SystemOperatingSystem", "WQL", 0x30)
If IsObj($oColItems) Then
For $oObjectItem In $oColItems
Return $oObjectItem.PrimaryOS
Next
EndIf
Return SetError(1, 0, 1)
EndFunc ;==>_IsPrimaryOS
</syntaxhighlight>

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _IsSafeMode() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
#include <WinAPI.au3>
#include <WindowsConstants.au3>

ConsoleWrite(_IsSafeMode() & @CRLF)

Func _IsSafeMode()
Return _WinAPI_GetSystemMetrics($SM_CLEANBOOT) > 0
EndFunc ;==>_IsSafeMode
</syntaxhighlight>

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _IsVirtualMachine() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
ConsoleWrite( _IsVirtualMachine() & @LF)

Func _IsVirtualMachine() ; Returns True or False.
Local $oColItems, $oWMIService
$oWMIService = ObjGet("winmgmts:\\localhost\root\cimv2")
$oColItems = $oWMIService.ExecQuery("Select * From Win32_ComputerSystemProduct", "WQL", 0x30)
If IsObj($oColItems) Then
For $oObjectItem In $oColItems
Return StringRegExp($oObjectItem.Name, 'VirtualBox|VMWare|Virtual PC') = 1
Next
EndIf
Return False
EndFunc ;==>_IsVirtualMachine
</syntaxhighlight>

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _IsVistaAbove() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
ConsoleWrite(_IsVistaAbove() & @CRLF) ; Returns True is greater or equal to Windows Vista.

Func _IsVistaAbove()
Return RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\", "CurrentVersion") >= 6.0
EndFunc ;==>_IsVistaAbove
</syntaxhighlight>

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _IsWindowsTablet() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
#include <WinAPI.au3>
#include <WindowsConstants.au3>

MsgBox(64, "_IsWindowsTablet()", _IsWindowsTablet())

Func _IsWindowsTablet()
Return _WinAPI_GetSystemMetrics($SM_TABLETPC) > 0
EndFunc ;==>_IsWindowsTablet
</syntaxhighlight>

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _OSArch() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
#cs
If you're using Windows x86 then '' is returned otherwise if you're using x64 then '64' is returned.
#ce
ConsoleWrite("Program" & _OSArch() & ".exe" & @LF)

Func _OSArch()
Return StringRegExpReplace(@OSArch, "(?i)x86|\D+", "") ; Thanks to wraithdu.
EndFunc ;==>_OSArch
</syntaxhighlight>

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _OSSerial() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
ConsoleWrite(_OSSerial() & @CRLF)

Func _OSSerial()
Local $oWMIService = ObjGet("winmgmts:{impersonationLevel = impersonate}!\\" & "." & "\root\cimv2")
Local $oColFiles = $oWMIService.ExecQuery("Select * From Win32_OperatingSystem")
If IsObj($oColFiles) Then
For $oObjectFile In $oColFiles
Return $oObjectFile.SerialNumber
Next
EndIf
Return SetError(1, 0, 0)
EndFunc ;==>OSSerial
</syntaxhighlight>

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _OSVersion() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
; Get the OS version number without an API call.

MsgBox(0, "_OSVersion()", _OSVersion())
MsgBox(0, "_OSVersionEx()", _OSVersionEx())

Func _OSVersion()
Return RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\", "CurrentVersion")
EndFunc ;==>_OSVersion

Func _OSVersionEx()
Return StringLeft(FileGetVersion(@SystemDir & "\WinVer.exe"), 3)
EndFunc ;==>_OSVersionEx
</syntaxhighlight>

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _ProcessCloseFromPath() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
Example()

Func Example()
; Close a process using the filepath rather than the filename, which is what ProcessClose requires.

; Run Notepad
Run("notepad.exe")

; Wait 10 seconds for the Notepad window to appear.
WinWait("[CLASS:Notepad]", "", 10)

; Wait for 2 seconds.
Sleep(2000)

Local $sNotepad = @SystemDir & "\notepad.exe"
MsgBox(4096, "", "Path of Notepad: " & $sNotepad)

; Close the Notepad process using the filepath.
_ProcessCloseFromPath($sNotepad)
EndFunc ;==>Example

Func _ProcessCloseFromPath($sFilePath)
If FileExists($sFilePath) = 0 Then
Return SetError(1, 0, 0)
EndIf
Return ProcessClose(StringTrimLeft($sFilePath, StringInStr($sFilePath, "\", 2, -1)))
EndFunc ;==>_ProcessCloseFromPath
</syntaxhighlight>

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _UnDockPC() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
ConsoleWrite(_UnDockPC() & @CRLF)

; Ejects the computer from its docking station.
Func _UnDockPC()
Local $oShell = ObjCreate('shell.application')
If @error Then
Return SetError(1, 0, 0)
EndIf
$oShell.EjectPC()
Return 1
EndFunc ;==>_UnDockPC
</syntaxhighlight>

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _WMPLayer_Location() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
; Get the location of Windows Media Player.

#include <WinAPI.au3>

ConsoleWrite(_WMPLayer_Location() & @CRLF)

Func _WMPLayer_Location()
Local $aReturn = StringRegExp(_WinAPI_ExpandEnvironmentStrings(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Applications\wmplayer.exe\shell\open\command", "")), '(?s)(?i)"(.*?)"', 3)
If @error Then
Return SetError(1, 0, "")
EndIf
Return $aReturn[0]
EndFunc ;==>_WMPLayer_Location
</syntaxhighlight>

Snippets ( Windows OS ) - Revision history

Guinness: /* _ProcessCloseFromPath() */

Jaberwocky6669: Imposed the Snippet template.

IEvKI3gv9Wrkd41u: +Snippets Category (+ normalize top)

Chimaera at 16:07, 21 May 2012