Truecrypt 6.1 (Silent Install)

[Grantsfer]

Здравствуйте уважаемые форумчане! Собственно вопрос: как установить сабж (http://www.truecrypt.org/) в тихом режиме? Заранее спасибо всем!

[joe mann]

http://forums.truecrypt.org/viewtopic.php?t=11859

[Grantsfer]

Скрипт немного подправил(версия уже 6.1), дописал строчку для установки русского, скомпилил и вуаля :).

[joe mann]

Ну тогда выкладывайте :)

[UstasCPM]

если кому вдруг ещё актуально:


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")



http://www.msfn.org/board/topic/113863-truecrypt-5-silent/
проверено на "TrueCrypt Setup 6.3a.exe"