Ticket #1050: _install_syntax_files.au3

File _install_syntax_files.au3, 2.9 KB (added by poebel@…, 11 years ago)
Line 
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?")
14If $answer = 7 Then Exit
15
16
17; Find and verify the installation directory
18
19; Textpad v4 (x86)
20If FileExists(@ProgramFilesDir & "\TextPad 4\") Then
21 $installdir = @ProgramFilesDir & "\TextPad 4\"
22 $textpad_version = "4"
23
24; Textpad v4 (x64)
25ElseIf FileExists(EnvGet("ProgramFiles(x86)") & "\TextPad 4\") Then
26 $installdir = EnvGet("ProgramFiles(x86)") & "\TextPad 4\"
27 $textpad_version = "5"
28
29; Textpad v5 (x86)
30ElseIf FileExists(@ProgramFilesDir & "\TextPad 5\") Then
31 $installdir = @ProgramFilesDir & "\TextPad 5\"
32 $textpad_version = "5"
33
34; Textpad v5 (x64)
35ElseIf FileExists(EnvGet("ProgramFiles(x86)") & "\TextPad 5\") Then
36 $installdir = EnvGet("ProgramFiles(x86)") & "\TextPad 5\"
37 $textpad_version = "5"
38
39; Fail
40Else
41 Error("Unable to find TextPad.")
42EndIf
43
44If Not FileCopy("autoit_v3.syn", $installdir & "\system", 1) Then Error("Error installing the syntax files.")
45If Not FileCopy("autoit_v3.tcl", $installdir & "\samples", 1) Then Error("Error installing the syntax files.")
46
47; Now write the reg keys
48RegWrite("HKEY_CURRENT_USER\Software\Helios\TextPad " & $textpad_version & "\Document Classes\AutoIt v3", "Type", "REG_DWORD", 2)
49RegWrite("HKEY_CURRENT_USER\Software\Helios\TextPad " & $textpad_version & "\Document Classes\AutoIt v3", "Members", "REG_MULTI_SZ", "*.au3")
50RegWrite("HKEY_CURRENT_USER\Software\Helios\TextPad " & $textpad_version & "\Document Classes\AutoIt v3", "Properties", "REG_BINARY", Binary("0x2a002e0061007500330000000000"))
51RegWrite("HKEY_CURRENT_USER\Software\Helios\TextPad " & $textpad_version & "\Document Classes\AutoIt v3", "SyntaxProps", "REG_BINARY", Binary("0x01000000"))
52RegWrite("HKEY_CURRENT_USER\Software\Helios\TextPad " & $textpad_version & "\Document Classes\AutoIt v3", "SyntaxFile", "REG_SZ", "autoit_v3.syn")
53RegWrite("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 ?")
56If $answer = 7 Then Exit
57RegWrite("HKEY_CLASSES_ROOT\AutoIt3Script\Shell\Edit\Command", "", "REG_SZ", '"' & $installdir & 'TextPad.exe" "%1"')
58
59; End of script
60
61
62Func Error($error_msg)
63        MsgBox(4096, "Error", $error_msg & " Please try a manual installation.")
64        Exit
65EndFunc
66
67
68