sproxy
Full Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
VitAlll2013
Код: #region: - Include
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#endregion
#region: - Option
Opt('GUIOnEventMode', 1)
Opt('MustDeclareVars', 1)
Opt('TrayIconDebug', 1)
Opt('TrayIconHide', 0)
#endregion
#region: - Global
Global $hWinMain
Global $sFileInstallDest = @ScriptDir & '\res2\include.txt'
#endregion
#region: GUI
$hWinMain = GUICreate('Test', 400, 400, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, '_Pro_Exit')
GUICtrlCreateButton('Извлеч и открыть файл', 50, 50, 150, 25)
GUICtrlSetOnEvent(-1, '_File_Install_And_Open')
#endregion
#region: - После создания всех GUI
GUISetState(@SW_SHOW, $hWinMain)
#endregion
#region: - Sleep, Exit
While 1
Sleep(10)
WEnd
Func _Pro_Exit()
Exit
EndFunc
#endregion
Func _File_Install_And_Open()
If NOT FileExists(StringLeft($sFileInstallDest, StringInStr($sFileInstallDest, '\', 0, -1))) Then DirCreate(StringLeft($sFileInstallDest, StringInStr($sFileInstallDest, '\', 0, -1)))
FileInstall('res\include.txt', $sFileInstallDest, 1)
If MsgBox(32+4, 'Внимание', 'Файл извлечен, доступен по адресу:' & @CRLF & $sFileInstallDest & @CRLF & @CRLF & _
'Откыть?', -1, $hWinMain) == 6 Then
ShellExecute($sFileInstallDest)
EndIf
EndFunc |
важно - из справки к FileInstall:
FileInstall ( "source", "dest" [,flag] )
source: Исходный путь к файлу, который следует компилировать. Поддерживается только явное значение, а не переменная, причем указанная строка не может иметь сокращения названий (*).
Добавлено:
Цитата:| Папочную структуру внутри не создать в явном виде. |
по идее и не надо, главное что бы внутри были нужные файлы, а уж папки вручную в любом виде создать можно: DirCreate
Цитата:| её можно создать где либо на диске |
к примеру, если не принципиально, можно использовать папку: @TempDir
Добавлено:
другие варианты внесения файлов в exe файл скрипта |
Всего записей: 556 | Зарегистр. 21-11-2007 | Отправлено: 16:38 01-03-2009 | Исправлено: sproxy, 16:45 01-03-2009 |
|
