- Code: Select all
If _OSVersion() = "Win7" Or "Win7X64" Then
$ProgramFiles = "C:\Programs\"
Else
$ProgramFiles = "C:\Program Files\"
EndIf
MsgBox(48, "Results", "OSVersion - " & _OSVersion() & @CRLF & "ProgramsFiles - " & $ProgramFiles)
Exit
Func _OSVersion()
Local $OS_Version, $servicepack_version
$OS_Version = StringStripWS(StringRegExpReplace(@OSVersion, "(WIN_)|(Microsoft )|(Windows )|(\(TM\))|( Ultimate)", ""), 8)
$OS_Version = StringRegExpReplace(StringRegExpReplace($OS_Version, '2008', 'Win7'), 'VISTA', 'Vista')
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", 'CurrentBuildNumber') > 7000 Then $OS_Version = 'Win7'
$servicepack_version = StringReplace(@OSServicePack, "Service Pack ", "SP")
If @error = -1 Then $servicepack_version = ""
ConsoleWrite($OS_Version & $servicepack_version & StringRegExpReplace(@OSArch, '(X86)', '') & @CRLF)
Return $OS_Version & $servicepack_version & StringRegExpReplace(@OSArch, '(X86)', '')
EndFunc ;==>_OSVersion
Thank you very much for a great program.
Docfxit
