MsgBox(0, "Установлена", _OSVersion())
If _OSVersion() = "Windows XP" Then
run("notepad.exe")
ElseIf _OSVersion() = "Windows Se7en" Then
run("calc.exe")
EndIf
Func _OSVersion()
Select
Case StringInStr("WIN_2000", @OSVersion)
Return "Windows 2000"
Case StringInStr("WIN_XPe WIN_XP", @OSVersion)
Return "Windows XP"
Case StringInStr("WIN_2003", @OSVersion)
Return "Windows Server 2003"
Case StringInStr("WIN_VISTA", @OSVersion)
Return "Windows VISTA"
Case StringInStr("WIN_2008", @OSVersion)
Return "Windows Server 2008"
Case StringInStr("WIN_7", @OSVersion)
Return "Windows Se7en"
Case StringInStr("WIN_2008R2", @OSVersion)
Return "Windows Server 2008 R2"
Case Else
Return "Other"
EndSelect
EndFunc