| 1 | ; ---------------------------------------------------------------------------- |
|---|
| 2 | ; |
|---|
| 3 | ; AutoIt Version: 3.2.1.13 |
|---|
| 4 | ; Author: JPM |
|---|
| 5 | ; |
|---|
| 6 | ; Script Function: |
|---|
| 7 | ; Display AutoIt default Running release. |
|---|
| 8 | ; |
|---|
| 9 | ; ---------------------------------------------------------------------------- |
|---|
| 10 | |
|---|
| 11 | ; Script Start - Add your code below here |
|---|
| 12 | |
|---|
| 13 | Opt("MustDeclareVars",1) |
|---|
| 14 | Local $InstallDir = RegRead("HKLM\Software\AutoIt v3\AutoIt","InstallDir") |
|---|
| 15 | If $InstallDir = "" Then $InstallDir = RegRead("HKLM\Software\Wow6432Node\AutoIt v3\AutoIt","InstallDir") |
|---|
| 16 | If $InstallDir = "" Then |
|---|
| 17 | MsgBox(0,'Error', 'Cannot find AutoIt Installation directory') |
|---|
| 18 | Exit |
|---|
| 19 | EndIf |
|---|
| 20 | |
|---|
| 21 | ;If StringInStr(RegRead("HKLM\Software\Classes\AutoIt3Script\Shell\Run\Command",""),"beta") Then |
|---|
| 22 | If StringInStr(RegRead("HKCR\.au3",""),"Beta") Then |
|---|
| 23 | Local $AutoItEnv = "Beta " & FileGetVersion($InstallDir & '\beta\AutoIt3.exe') & _ |
|---|
| 24 | " (" & StringLeft(FileGetTime($InstallDir & '\beta\AutoIt3.exe',0,1),4) & _ |
|---|
| 25 | "/" & StringMid(FileGetTime($InstallDir & '\beta\AutoIt3.exe',0,1),5,2) & _ |
|---|
| 26 | "/" & StringMid(FileGetTime($InstallDir & '\beta\AutoIt3.exe',0,1),7,2) & ")" |
|---|
| 27 | Else |
|---|
| 28 | Local $AutoItEnv = "Release " & FileGetVersion($InstallDir & '\AutoIt3.exe') & _ |
|---|
| 29 | " (" & StringLeft(FileGetTime($InstallDir & '\AutoIt3.exe',0,1),4) & _ |
|---|
| 30 | "/" & StringMid(FileGetTime($InstallDir & '\AutoIt3.exe',0,1),5,2) & _ |
|---|
| 31 | "/" & StringMid(FileGetTime($InstallDir & '\AutoIt3.exe',0,1),7,2) & ")" |
|---|
| 32 | EndIf |
|---|
| 33 | |
|---|
| 34 | If @AutoItX64 Then |
|---|
| 35 | Local $AutoItX64 = "X64 " |
|---|
| 36 | Else |
|---|
| 37 | Local $AutoItX64 = "X86 " |
|---|
| 38 | EndIf |
|---|
| 39 | Local $Compiled = "" |
|---|
| 40 | If @Compiled Then $Compiled = " Compiled" |
|---|
| 41 | Local $OsServicePack="" |
|---|
| 42 | If @OSServicePack Then $OsServicePack = "/" & @OSServicePack |
|---|
| 43 | Local $SystemEnv = "Running under :" & @CRLF & @CRLF & @OSVersion & $OsServicePack & " (" & @OSArch & ")" & @CRLF & @TAB & "CPUArch=" & @CPUArch |
|---|
| 44 | |
|---|
| 45 | MsgBox(0,"AutoIt default", $AutoItX64 & $AutoItEnv & $Compiled & _ |
|---|
| 46 | @CRLF & @CRLF & $SystemEnv _ |
|---|
| 47 | ,5) |
|---|
