Alcohol 120% (новая версия) является программой эмуляции и записи CD и DVD, позволяет пользователям копировать не защищенные и защищенные диски. Alcohol 120% может создать до 31 виртуального CD & DVD-ROM привода для использования дисков не используя физический носитель; а так же позволяет копировать CD и DVD на CD-R / CD-RW / DVD-R / DVD-RW / DVD-RAM / DVD+RW / DVD+R.
Возможности программы:
Поддерживаемые платформы: Windows NT / 2000 / XP и Server 2003, а теперь и Vista RC2.
Может обрабатывать до 31 виртуального CD и DVD-ROM привода!
Можно использовать несколько программ для работы с CD или DVD одновременно.
Скорость чтения виртуального диска в виртуальном приводе 200X.
Осуществляет чтение диска в файлы-образы следующих форматов:
Media Descriptor Image (mds)
CloneCD Image (ccd/img/sub) (Только для CD дисков)
CDR WIN Image (cue/bin) (Доступно для диска CD только с одной сессией, не может сохранять sub-channeld данные)
Standard ISO Image (iso) (Доступно для диска CD только с одной дорожкой, не может сохранять sub-channeld данные)
Поддерживает CD, DVD и CD RAW sub-channel методы чтения:
RAW метод чтения позволяет копировать любые диски.
Методы записи CD:
Disc-At-Once/Session-At-Once, RAW Session-At-Once, RAW Session-At-Once + SUB, RAW Disc-At-Once
(PQ/R-W с полной поддержкой sub-code)
Поддерживает следующие форматы файлов образов дисков для эмуляции и записи:
Media Descriptor Image (mds)
CloneCD Image (ccd/img/sub)
CDRWIN Image (cue/bin)
NERO Image (nrg)
Standard ISO Image (iso)
BlindSuite image (bwt/bwi/bws)
DiscJuggler image (cdi).
Поддерживает функцию Bypass EFM error, для копирования защищенных дисков.
Предлагает опцию "Игнорировать тип CD". Эта опция не дает программам распознавать CD-R или CD-RW, в результате все диски распознаются как обычные CD-ROM диски.
Поддерживает форматы CD:
CD-DA, CD+G, CD-ROM, CD-XA, Video CD, Photo CD, Mixed Mode, Multi-session CD
Поддержка для буфера при включении опции предотвращения переполнения буфера:
BURN-Proof™, JustLink™, Power-Burn™, SafeBurn™, Seamless Link и...
Метод записи DVD:
DVD Disc-At-Once
Поддерживает форматы DVD:
DVD-ROM, DVD-Video, DVD-Audio (Примечание: не может использоваться для копирования CSS-шифрованных дисков.)
Поддержка всех современных (ATAPI и SCSI) приводов:
CD-R, CD-RW, DVD-RAM, DVD-R, DVD-RW, DVD+RW и DVD+R
Полная поддержка IEEE-1394 (Firewire) и USB протоколов
Отображает скорость записи и другую полезную информацию.
Поддержка DPM (Data Position Measurement) - функция, позволяет получить большее количество подробной информации о дисках.
Поддержка RMPS (Recordable Media Physical Signature) прожига и эмуляции:
Эта опция позволяет дисководу автоматически читать материальную сигнатуру. (подробнее: R.M.P.S Walkthrough)
Поддержка A.S.S.(Advanced Sector Scanner) функции.

$Title='Alcohol'
$SetupFile='Alcohol.exe'
$InstallPath=@ProgramFilesDir & '\Alcohol'

Blockinput(1)

run($SetupFile)

winwaitactive($Title,'Welcome to the Alcohol')
send('{ENTER}')

winwaitactive($Title,'License Agreement')
send('{ENTER}')

if winexists($Title,'Not for Business Use') Then
winwaitactive($Title,'Not for Business Use')
controlclick($Title,'Not for Business Use','Include the Alcohol Soft Toolbar (recommended).','left',1)
sleep(100)
send('{ENTER}')
endif

; отказываемся от установки всех компонентов:
winwaitactive($Title,'Choose Components')
send('{DOWN} {BS}')
send('{DOWN} {BS}')
send('{DOWN} {BS}')
send('{DOWN} {BS}')
sleep(100)
send('{ENTER}')

winwaitactive($Title,'Choose Install Location')
send($InstallPath)
send('{ENTER}')

winwaitactive($Title,'Completing the Alcohol')

controlclick($Title,'Completing the Alcohol','Button4','left',1)
controlclick($Title,'Completing the Alcohol','Add Alcohol Virtual Drive at first run.','left',1)
sleep(100)
send('{ENTER}')

; удаляем мусор :-
FileDelete($InstallPath & "\uninst.exe")

; устанавливаем значёк на папке программы:

$file = FileOpen($InstallPath & "\desktop.ini", 10)

FileWrite($file, "[.ShellClassInfo]" & @CRLF)
FileWrite($file, "IconFile=Alcohol.exe" & @CRLF)
FileWrite($file, "IconIndex=0" & @CRLF)

FileClose($file)

FileSetAttrib($InstallPath, "+R")

; устанавливаем ярлык в меню "Administrator":

FileCreateShortcut($InstallPath & "\Alcohol.exe", @UserProfileDir & "\SendTo\Alcohol.lnk", $InstallPath, "", "Alcohol", "", "", 0, @SW_SHOWNORMAL)
FileCreateShortcut($InstallPath & "\Alcohol.exe", @ProgramsDir & "\Alcohol.lnk", $InstallPath, "", "Alcohol", "", "", 0, @SW_SHOWNORMAL)

; удаляем ярлыки из меню "All Users":

DirRemove(@ProgramsCommonDir & "\Alcohol 52%", 1)

; Registry
RegWrite("HKLM\Software\Classes\.ccd", "", "REG_SZ", "AlcoholImageFile")
RegWrite("HKLM\Software\Classes\.cue", "", "REG_SZ", "AlcoholImageFile")
;
RegWrite("HKLM\Software\Classes\AlcoholImageFile\DefaultIcon", "", "REG_SZ", "%1")
RegWrite("HKLM\Software\Classes\AlcoholImageFile\ShellEx\ContextMenuHandlers\AlcoholShellEx", "", "REG_SZ", "{32020A01-506E-484D-A2A8-BE3CF17601C3}")
RegWrite("HKLM\Software\Classes\AlcoholImageFile\ShellEx\IconHandler", "", "REG_SZ", "{32020A01-506E-484D-A2A8-BE3CF17601C3}")
;
; устанавливаем ярлык на "MyComputer":
RegWrite("HKLM\Software\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\Alcohol", "", "REG_SZ", "&Alcohol")
RegWrite("HKLM\Software\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\Alcohol\command", "", "REG_SZ", $InstallPath & "\Alcohol.exe")
;
RegWrite("HKLM\Software\Classes\CLSID\Interface\{00C724A3-E741-4CE7-B3E4-2FABB3FA2CBE}", "", "REG_SZ", "IAlcoholShellEx")
RegWrite("HKLM\Software\Classes\CLSID\Interface\{00C724A3-E741-4CE7-B3E4-2FABB3FA2CBE}\ProxyStubClsid", "", "REG_SZ", "{00020424-0000-0000-C000-000000000046}")
RegWrite("HKLM\Software\Classes\CLSID\Interface\{00C724A3-E741-4CE7-B3E4-2FABB3FA2CBE}\ProxyStubClsid32", "", "REG_SZ", "{00020424-0000-0000-C000-000000000046}")
RegWrite("HKLM\Software\Classes\CLSID\Interface\{00C724A3-E741-4CE7-B3E4-2FABB3FA2CBE}\TypeLib", "", "REG_SZ", "{DFFAEA82-07FA-4440-9A52-D54EB21C627F}")
RegWrite("HKLM\Software\Classes\CLSID\Interface\{00C724A3-E741-4CE7-B3E4-2FABB3FA2CBE}\TypeLib", "Version", "REG_SZ", "1.0")
;
RegWrite("HKLM\Software\Classes\CLSID\TypeLib\{DFFAEA82-07FA-4440-9A52-D54EB21C627F}\1.0", "", "REG_SZ", "AXShlEx Library")
RegWrite("HKLM\Software\Classes\CLSID\TypeLib\{DFFAEA82-07FA-4440-9A52-D54EB21C627F}\1.0\0\win32", "", "REG_SZ", $InstallPath & "\AXShlEx.dll")
RegWrite("HKLM\Software\Classes\CLSID\TypeLib\{DFFAEA82-07FA-4440-9A52-D54EB21C627F}\1.0\flags", "", "REG_SZ", "0")
RegWrite("HKLM\Software\Classes\CLSID\TypeLib\{DFFAEA82-07FA-4440-9A52-D54EB21C627F}\1.0\helpdir", "", "REG_SZ", $InstallPath & "\")
;
; добавляем возможность запуска из меню "Run":
RegWrite("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\Alcohol.exe", "", "REG_SZ", $InstallPath & "\Alcohol.exe")
RegWrite("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\Alcohol.exe", "Path", "REG_SZ", $InstallPath & "\")
;
RegDelete("HKCU\Software\Alcohol Soft")
;
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Basic", "Virtual Device Count", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Basic", "Left", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Basic", "Top", "REG_SZ", "22")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Basic", "Height", "REG_SZ", "816")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Basic", "Width", "REG_SZ", "1152")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Basic\UI", "Main Column", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Basic\UI", "Help Column", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Basic\UI", "Option Column", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Info", "UserName", "REG_SZ", "Semiono")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options", "Language", "REG_SZ", "1033")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Display", "AutostartWhenWindowsStartup", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Display", "CleanFileListBeforeImporting", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Display", "ExecuteInFullScreen", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Display", "ListPhysicalDevicesFirst", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Display", "NotifyDiscrepanciesWithImageFiles", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Display", "ShowApplicationIn", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Display", "ShutdownApplicationAfterPushingCloseBtn", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Display", "TrayIconIndex", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Emulation", "LaunchCDVDManagerWithoutIgnoreMediaTypeFunction", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\General", "AutoCheckCurrentVersionViaInternetAtStart", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\General", "DeleteFileDirectly", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\General", "EnableAutoPlay", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\General", "EnableScreenSaver", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\General", "IOControlInterface", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\General", "OneInstanceOnly", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Log Files", "AutoSaveDumpingLog", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Log Files", "RecordingLog", "REG_SZ", $InstallPath & "\alcohol.log")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Log Files", "ReporttoLogfile", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Log Files", "SaveSpeedData", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Reading", "DefaultASSJumpFactor", "REG_SZ", "100")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Reading", "DefaultDPMMeasuringPrecision", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Reading", "EjectSourceDiscAfterProcess", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Reading", "EnableEnhancedWeakSectorScanner", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Reading", "ExamineTheAccuracyOfDataReadFromDevice", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Reading", "LockTheDeviceWhileGettingDPMdataFromTheMedia", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Reading", "NumberOFRetriesBeforeReadingError", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Reading", "StartingASSAfterContinuseBadSectors", "REG_SZ", "8")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Shell Extension", "EnableOtherExtensions", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Shell Extension", "ExchangeIconForAlcoholDefault", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Shell Extension", "OtherExtensions", "REG_SZ", "")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Sound Effect", "PlaySounds", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Virtual drive", "MountImageTo1stDeviceOnDblClickingImageFile", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Virtual drive", "RemountImageUponSystemReboot", "REG_SZ", "1")
;

; добавляем возможность запуска из консоли cmd.exe;-
$file = FileOpen(@SystemDir & "\Alcohol.cmd", 10)

FileWrite($file, "@start " & $InstallPath & "\Alcohol.exe " & """%1""" & @CRLF)

FileClose($file)

Run("regsvr32.exe /s AXShlEx.dll", $InstallPath)

Blockinput(0)

;
предотвращение возможности множественного запуска скрипта
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
AutoItSetOption("TrayIconDebug", 1)
AutoItSetOption("SendKeyDelay", 10)
If ProcessExists ( "punto.exe" )<>0 Then
ProcessClose ( "punto.exe" )
ProcessWaitClose ( "punto.exe" )
EndIf
$Title='Alcohol'
$SetupFile='Alcoholsetup.exe'
$InstallPath=@ProgramFilesDir & '\Alcohol'
run($SetupFile)
winwaitactive($Title,'Welcome to the Alcohol')
send('{ENTER}')
winwaitactive($Title,'License Agreement')
send('{ENTER}')
if winexists($Title,'Already Installed') Then
winwaitactive($Title,'Already Installed')
send('{ENTER}')
endif
if winexists($Title,'Not for Business Use') Then
winwaitactive($Title,'Not for Business Use')
send('{space}')
sleep(100)
send('{ENTER}')
endif
winwaitactive($Title,'Choose Components')
send('{ENTER}')
winwaitactive($Title,'Choose Install Location')
send($InstallPath)
send('{ENTER}')
sleep(1000)
winwaitactive($Title,'Completing the Alcohol')
send('{space}')
sleep(100)
send('{ENTER}')

#region - Alcohol.120.v1.9.8.7612 install script - (Automated with WinExists functions)

#include <IE.au3>
Opt('TrayIconDebug', 1)

; Installer.
$executable = 'Alcoholsetup.exe'
; Show progess.
$splash = 0
; Default catagory folder in startmenu.
$group = 'Alcohol 120%'
; New catagory to move the default folder into.
$catagory = ''
; Installation folder in Program Files.
$directory = 'Alcohol Soft\Alcohol 120'
; Allowed time for installation.
$allowed = 60 * 1000
; Components to choose. 1 = Yes, 0 = No.
$SecACID = 1 ; A.C.I.D Wizard
$langfiles = 1 ; Multi-Language Files
$manual = 1 ; Online manual
$shortcuts = 0 ; Desktop Shortcut
$startmenu = 1 ; Startmenu Entries
$starwind = 0 ; iSCSI Service

; ----- Settings Complete (Paste registration on line 83) ------

; Set components to install via registry.
$key = 'HKLM\SOFTWARE\Alcohol Soft\Alcohol 120%\AddRemove\Components'
RegWrite($key & '\SecACID', 'Installed', 'Reg_Dword', $SecACID)
RegWrite($key & '\SecLangFiles', 'Installed', 'Reg_Dword', $langfiles)
RegWrite($key & '\SecManual', 'Installed', 'Reg_Dword', $manual)
RegWrite($key & '\SecShortcuts', 'Installed', 'Reg_Dword', $shortcuts)
RegWrite($key & '\SecStartMenu', 'Installed', 'Reg_Dword', $startmenu)
RegWrite($key & '\SecStarWind', 'Installed', 'Reg_Dword', $starwind)

; Run the installer.
$pid = _Install()
$time = TimerInit()
$title = 'Alcohol 120%'
Do
Select
Case WinExists('Installer Language', 'Please select a language.')
ControlCommand('Installer Language','Please select a language.','ComboBox1',"SelectString",'English')
ControlClick('Installer Language', 'OK', 'Button1')

Case WinExists($title, 'Already Installed')
_Abort()

Case WinExists($title, 'Welcome to the Alcohol 120%')
WinMove($title, 'Welcome to the Alcohol 120%', @DesktopWidth, 0)
ControlClick($title, 'Welcome to the Alcohol 120%', 'Button2')

Case WinExists($title, 'License Agreement')
ControlClick($title, 'License Agreement', 'Button2')

Case WinExists('Alcohol Soft Setup', 'Additional Features and License Agreement')
WinMove('Alcohol Soft Setup', 'Additional Features and License Agreement', @DesktopWidth, 0)
Sleep(1000)
$oIE = _IEAttach ('Alcohol Soft Setup', 'embedded')
If IsObj($oIE) Then
$oSubmit = _IEGetObjByName ($oIE, "chk1")
If IsObj($oSubmit) Then
_IEAction ($oSubmit, "click")
EndIf
_IELoadWait ($oIE)
$oIE = 0
EndIf
ControlClick('Alcohol Soft Setup', 'Additional Features and License Agreement', 'Button2')
WinWaitClose('Alcohol Soft Setup', 'Additional Features and License Agreement', 1)

Case WinExists($title, 'Choose Components')
ControlClick($title, 'Choose Components', 'Button2')

Case WinExists($title, 'Choose Install Location')
ControlClick($title, 'Choose Install Location', 'Button2')

Case WinExists($title, 'Click Finish to close this wizard')
ControlCommand($title, 'Click Finish to close this wizard', 'Button4', 'UnCheck'); Run
ControlCommand($title, 'Click Finish to close this wizard', 'Button5', 'UnCheck'); Add Drive
ControlClick($title, 'Click Finish to close this wizard', 'Button2')

Case Else
Sleep(250)
EndSelect
If TimerDiff($time) > $allowed Then _Abort()
Until Not ProcessExists($pid)

; *** Paste Registration on the next line ***


; Exit if $startmenu = 0 from above.
If Not $startmenu Then Exit

; Remove shortcuts.
If _MainShortcut('Alcohol 120%.lnk') Then
FileDelete('Alcohol Command Launcher.lnk')
FileDelete('Alcohol Manual.lnk')
;~ FileDelete('Uninstall Alcohol 120%.lnk')
;~ _Desktop('Alcohol 120%.lnk')
EndIf

#endregion

Exit

Func _Install($path = Default)
; Run the installer in Default Script directory.
Dim $splash
If $path = Default Then $path = @ScriptDir
If StringRight($path, 1) <> '\' Then $path &= '\'
If StringInStr($executable, '\') Then $path = ''
If Not FileExists($path & $executable) Then Exit 1
If $splash Then _Splash('Installing:' & StringTrimRight(StringReplace(@ScriptName, '_', ' '), 4))
If StringRight($executable, 3) = 'msi' Then
Return Run('"' & @SystemDir & '\msiexec.exe" /i "' & $path & $executable & '"')
Else
Return Run('"' & $path & $executable & '"')
EndIf
EndFunc

Func _Abort()
; close process if exists then exit.
Dim $pid
If ProcessExists($pid) Then
ProcessClose($pid)
Exit 2
Else
Exit 3
EndIf
EndFunc

Func _Desktop($shortcut)
; Delete a Desktop shortcut.
If FileExists(@DesktopDir & '\' & $shortcut) Then
Return FileDelete(@DesktopDir & '\' & $shortcut)
ElseIf FileExists(@DesktopCommonDir & '\' & $shortcut) Then
Return FileDelete(@DesktopCommonDir & '\' & $shortcut)
EndIf
EndFunc

Func _MainShortcut($shortcut, $rename = '')
; Change working directory to correct StartMenu\Group directory.
Dim $group, $catagory, $splash
If $group = '' Then Return 0
If FileExists(@ProgramsDir & '\' & $group) Then
FileChangeDir(@ProgramsDir & '\' & $group)
ElseIf FileExists(@ProgramsCommonDir & '\' & $group) Then
FileChangeDir(@ProgramsCommonDir & '\' & $group)
Else
Return 0
EndIf
; Wait for main shortcut.
If $splash Then _Splash('Waiting for shortcuts')
For $i = 1 To 20
If FileExists($shortcut) Then ExitLoop
Sleep(500)
Next
If $splash Then _Splash('Cleaning up:' & StringTrimRight(StringReplace(@ScriptName, '_', ' '), 4))
; If catagory not assigned anything, then return.
If $catagory = '' Then Return 1
; Move the group folder into the catagory folder.
If FileChangeDir('..') And DirCopy($group, $catagory & '\' & $group, 1) Then
If DirRemove($group, 1) Then
; If optional rename parameter is used, then rename the group folder.
If $rename <> '' And FileChangeDir($catagory) Then
If DirCopy($group, $rename, 1) And DirRemove($group, 1) Then
Return FileChangeDir($rename)
EndIf
Else
Return FileChangeDir($catagory & '\' & $group)
EndIf
EndIf
EndIf
EndFunc

Func _QuickLaunch($shortcut)
; Delete a Quicklaunch shortcut.
Local $subdirs = '\Microsoft\Internet Explorer\Quick Launch'
If FileExists(@AppDataDir & $subdirs & '\' & $shortcut) Then
Return FileDelete(@AppDataDir & $subdirs & '\' & $shortcut)
ElseIf FileExists(@AppDataCommonDir & $subdirs & '\' & $shortcut) Then
Return FileDelete(@AppDataCommonDir & $subdirs & '\' & $shortcut)
EndIf
EndFunc

Func _Splash($text = '')
; Shows a small borderless splash message.
Dim $splash
If $splash Then
If $text Then
SplashTextOn('', $text, 500, 25, -1, 5, 1, '', 14)
Else
SplashOff()
EndIf
EndIf
EndFunc

Func _WinClose($title, $text = '')
; Close a window with further attempts.
For $i = 1 To 10
WinClose($title, $text)
If Not WinExists($title) Then Return 1
Sleep(500)
Next
EndFunc

Func OnAutoItStart()
; A 2nd script instance will exit.
Local $interpreter
$interpreter = StringTrimRight(@ScriptName, 4) & ' Script Interpreter'
If WinExists($interpreter) Then Exit
AutoItWinSetTitle($interpreter)
EndFunc