Код:
Opt("TrayIconDebug", 1)
Opt("SendKeyDelay", 200)
; Executable file name
$EXECUTABLE = "TrueCrypt Setup 5.0a.exe"
; Installation folder
$INSTALLLOCATION = @ProgramFilesDir & "\TrueCrypt\"
; Install for all users
$allusers = "1"
; Add TrueCrypt to Start Menu
$startmenu = "1"
; Add TrueCrypt icon to desktop
$desktopicon = "1"
; Associate the .tc file extension with TrueCrypt
$filetypeassoc = "1"
; Create System Restore point
$restorepoint = "1"
If FileExists($INSTALLLOCATION & "\TrueCrypt.exe") Then
MsgBox(0x40010, @ScriptName, "Please uninstall previous version of TrueCrypt before using this script", 4)
Exit
EndIf
; Run the installer
Run($EXECUTABLE)
; License Agreement
WinWait("TrueCrypt Setup", "License Agreement")
WinActivate("TrueCrypt Setup", "License Agreement")
ControlCommand("TrueCrypt Setup", "", "Button5", "Check", "")
ControlClick("TrueCrypt Setup", "", "Button3")
; Wizard Mode
WinWait("TrueCrypt Setup", "Wizard Mode")
WinActivate("TrueCrypt Setup", "Wizard Mode")
ControlClick("TrueCrypt Setup", "", "Button3")
; Setup Options
WinWait("TrueCrypt Setup", "Setup Options")
WinActivate("TrueCrypt Setup", "Setup Options")
ControlSetText("TrueCrypt Setup", "", "Edit1", "")
Sleep(1000)
ControlSetText("TrueCrypt Setup", "", "Edit1", $INSTALLLOCATION)
If $allusers = 0 Then
ControlCommand("TrueCrypt Setup", "", "Button6", "UnCheck", "")
EndIf
If $startmenu = 0 Then
ControlCommand("TrueCrypt Setup", "", "Button8", "UnCheck", "")
EndIf
If $desktopicon = 0 Then
ControlCommand("TrueCrypt Setup", "", "Button10", "UnCheck", "")
EndIf
If $filetypeassoc = 0 Then
ControlCommand("TrueCrypt Setup", "", "Button7", "UnCheck", "")
EndIf
If $restorepoint = 0 Then
ControlCommand("TrueCrypt Setup", "", "Button9", "UnCheck", "")
EndIf
ControlClick("TrueCrypt Setup", "", "Button3")
; TrueCrypt has been successfully installed.
WinWait("TrueCrypt Setup", "TrueCrypt has been successfully installed.")
WinActivate("TrueCrypt Setup", "TrueCrypt has been successfully installed.")
ControlClick("TrueCrypt Setup", "", "Button1")
; If you have never used TrueCrypt before
WinWait("TrueCrypt Setup", "If you have never used TrueCrypt before")
WinActivate("TrueCrypt Setup", "If you have never used TrueCrypt before")
ControlClick("TrueCrypt Setup", "", "Button2")
; TrueCrypt Installed
WinWait("TrueCrypt Setup", "TrueCrypt Installed")
WinActivate("TrueCrypt Setup", "TrueCrypt Installed")
ControlClick("TrueCrypt Setup", "", "Button3")
