#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=ShellNewFile.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=-
#AutoIt3Wrapper_Res_Description=ShellNewFile.exe
#AutoIt3Wrapper_Res_Fileversion=0.1.0.0
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=n
#AutoIt3Wrapper_Res_LegalCopyright=AZJIO
#AutoIt3Wrapper_Res_Language=1049
#AutoIt3Wrapper_Run_Au3check=n
#AutoIt3Wrapper_Res_Field=Version|0.1
#AutoIt3Wrapper_Res_Field=Build|2013.03.20
#AutoIt3Wrapper_Res_Field=Coded by|AZJIO
#AutoIt3Wrapper_Res_Field=Compile date|%longdate% %time%
#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer%
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/sf /sv /om /cs=0 /cn=0
#AutoIt3Wrapper_Run_After=del /f /q "%scriptdir%\%scriptfile%_Obfuscated.au3"
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#NoTrayIcon
#include <FileOperations.au3>
If $CmdLine[0] Then
$aPath = _FO_PathSplit($CmdLine[1])
Switch $aPath[2]
Case '.au3'
If FileExists($aPath[0]) Then
$sPath = _FO_GetCopyName($aPath[0] & 'я.au3', 1)
FileWrite($sPath, '')
EndIf
EndSwitch
Else
If MsgBox(4, 'Сообщение', 'Хотите активизировать программу?') = 7 Then Exit
If @Compiled Then
RegWrite("HKCR\.au3\ShellNew", "Command", "REG_SZ", '"' & @SystemDir & '\ShellNewFile.exe" "%1"')
If Not FileExists(@SystemDir & '\ShellNewFile.exe') Then FileCopy(@ScriptFullPath, @SystemDir & '\ShellNewFile.exe', 1)
Else
RegWrite("HKCR\.au3\ShellNew", "Command", "REG_SZ", @AutoItExe & ' "' & @SystemDir & '\ShellNewFile.au3" "%1"')
If Not FileExists(@SystemDir & '\ShellNewFile.au3') Then FileCopy(@ScriptFullPath, @SystemDir & '\ShellNewFile.au3', 1)
EndIf
; Exit MsgBox(0, 'Сообщение', 'Эта утилита автоматизирует создание файла')
EndIf
