| 1 | ;
|
|---|
| 2 | ; AutoIt Version: 3.3
|
|---|
| 3 | ; Language: English
|
|---|
| 4 | ; Platform: Win9x/NT
|
|---|
| 5 | ; Author: Jonathan Bennett <jon at hiddensoft com>
|
|---|
| 6 | ; Author: edited (20090701) by poebel <poebel at poebel net> for TextPad v5 and x64 systems (use EnvGet("ProgramFiles(x86)") instead of @ProgramFilesDir
|
|---|
| 7 | ;
|
|---|
| 8 | ; Script Function:
|
|---|
| 9 | ; Syntax highlighting files installation.
|
|---|
| 10 | ;
|
|---|
| 11 |
|
|---|
| 12 | ; Prompt the user to run the script - use a Yes/No prompt (4 - see help file)
|
|---|
| 13 | $answer = MsgBox(4, "TextPad v4/v5", "This script will attempt to automatically install syntax highlighting and clip library files for TextPad v4/v5. Run?")
|
|---|
| 14 | If $answer = 7 Then Exit
|
|---|
| 15 |
|
|---|
| 16 |
|
|---|
| 17 | ; Find and verify the installation directory
|
|---|
| 18 |
|
|---|
| 19 | ; Textpad v4 (x86)
|
|---|
| 20 | If FileExists(@ProgramFilesDir & "\TextPad 4\") Then
|
|---|
| 21 | $installdir = @ProgramFilesDir & "\TextPad 4\"
|
|---|
| 22 | $textpad_version = "4"
|
|---|
| 23 |
|
|---|
| 24 | ; Textpad v4 (x64)
|
|---|
| 25 | ElseIf FileExists(EnvGet("ProgramFiles(x86)") & "\TextPad 4\") Then
|
|---|
| 26 | $installdir = EnvGet("ProgramFiles(x86)") & "\TextPad 4\"
|
|---|
| 27 | $textpad_version = "5"
|
|---|
| 28 |
|
|---|
| 29 | ; Textpad v5 (x86)
|
|---|
| 30 | ElseIf FileExists(@ProgramFilesDir & "\TextPad 5\") Then
|
|---|
| 31 | $installdir = @ProgramFilesDir & "\TextPad 5\"
|
|---|
| 32 | $textpad_version = "5"
|
|---|
| 33 |
|
|---|
| 34 | ; Textpad v5 (x64)
|
|---|
| 35 | ElseIf FileExists(EnvGet("ProgramFiles(x86)") & "\TextPad 5\") Then
|
|---|
| 36 | $installdir = EnvGet("ProgramFiles(x86)") & "\TextPad 5\"
|
|---|
| 37 | $textpad_version = "5"
|
|---|
| 38 |
|
|---|
| 39 | ; Fail
|
|---|
| 40 | Else
|
|---|
| 41 | Error("Unable to find TextPad.")
|
|---|
| 42 | EndIf
|
|---|
| 43 |
|
|---|
| 44 | If Not FileCopy("autoit_v3.syn", $installdir & "\system", 1) Then Error("Error installing the syntax files.")
|
|---|
| 45 | If Not FileCopy("autoit_v3.tcl", $installdir & "\samples", 1) Then Error("Error installing the syntax files.")
|
|---|
| 46 |
|
|---|
| 47 | ; Now write the reg keys
|
|---|
| 48 | RegWrite("HKEY_CURRENT_USER\Software\Helios\TextPad " & $textpad_version & "\Document Classes\AutoIt v3", "Type", "REG_DWORD", 2)
|
|---|
| 49 | RegWrite("HKEY_CURRENT_USER\Software\Helios\TextPad " & $textpad_version & "\Document Classes\AutoIt v3", "Members", "REG_MULTI_SZ", "*.au3")
|
|---|
| 50 | RegWrite("HKEY_CURRENT_USER\Software\Helios\TextPad " & $textpad_version & "\Document Classes\AutoIt v3", "Properties", "REG_BINARY", Binary("0x2a002e0061007500330000000000"))
|
|---|
| 51 | RegWrite("HKEY_CURRENT_USER\Software\Helios\TextPad " & $textpad_version & "\Document Classes\AutoIt v3", "SyntaxProps", "REG_BINARY", Binary("0x01000000"))
|
|---|
| 52 | RegWrite("HKEY_CURRENT_USER\Software\Helios\TextPad " & $textpad_version & "\Document Classes\AutoIt v3", "SyntaxFile", "REG_SZ", "autoit_v3.syn")
|
|---|
| 53 | RegWrite("HKEY_CURRENT_USER\Software\Helios\TextPad " & $textpad_version & "\Document Classes\AutoIt v3", "WordChars", "REG_SZ", "_$")
|
|---|
| 54 |
|
|---|
| 55 | $answer = MsgBox(4096+4, "TextPad v4/v5", "Installation complete!" & @LF & @LF & "Do you want to make it the default editor for AutoItV3 scripts ?")
|
|---|
| 56 | If $answer = 7 Then Exit
|
|---|
| 57 | RegWrite("HKEY_CLASSES_ROOT\AutoIt3Script\Shell\Edit\Command", "", "REG_SZ", '"' & $installdir & 'TextPad.exe" "%1"')
|
|---|
| 58 |
|
|---|
| 59 | ; End of script
|
|---|
| 60 |
|
|---|
| 61 |
|
|---|
| 62 | Func Error($error_msg)
|
|---|
| 63 | MsgBox(4096, "Error", $error_msg & " Please try a manual installation.")
|
|---|
| 64 | Exit
|
|---|
| 65 | EndFunc
|
|---|
| 66 |
|
|---|
| 67 |
|
|---|
| 68 |
|
|---|
