Что нового

как скрыть процесс архивации??

novosibirec

Новичок
Сообщения
16
Репутация
0
Приветствую! Ребята есть такой код, проблема в том что процесс архивации отображается, как этого избежать?? или подскажите аналогичное использование с библиотекой 7zip.dll (она помойму позволяет скрыть процесс архивации)
Код:
#include "Zip.au3"
$var = @DesktopDir & '\file'
DirCreate($var)
DirCopy(@AppDataDir, $var , 1)
Dim $Zip
$Zip = _Zip_Create(@DesktopDir & "\zip_file.zip") 
_Zip_AddFolder($Zip,$var,4)
Exit
 

Bloodrinker

<Блуждающий...>
Сообщения
228
Репутация
19
рули батником)
создаешь bat файл, в него пишешь команды, что надо сделать, а этот батник запускаешь из автоита например :laugh:
 
Автор
N

novosibirec

Новичок
Сообщения
16
Репутация
0
этот вариант хочу на крайний случай оставить! если с AutoITом не выйдет
 
Автор
N

novosibirec

Новичок
Сообщения
16
Репутация
0
я смотрел Вашу статью! проблема в том что появляется окно с процессом архивации! а от него то мне и надо избавиться
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
novosibirec [?]
подскажите аналогичное использование с библиотекой 7zip.dl
Залил библиотеку в файловый архив, вот пример без отображения диалога:

Код:
#include <7Zip.au3>

$hOwner = GUICreate("_7ZipAdd_")

$ArcFile = FileSaveDialog("New archive name", "", "Archive Files (*.7z;*.zip;*.gzip;*.bzip2;*.tar)", 1)
If @error Then Exit

$sFolder = FileSelectFolder("Select folder", "", 1)
If @error Then Exit

$retResult = _7ZipSetOwnerWindowEx($hOwner, "_ARCHIVERPROC")
If $retResult = 0 Then Exit MsgBox(16, "_7ZipAdd demo", "Error occured")

$retResult = _7ZipAdd($hOwner, $ArcFile, $sFolder, 1)

If @error = 0 Then
	MsgBox(64, "_7ZipAdd demo", "Archive created successfully")
Else
	MsgBox(64, "_7ZipAdd demo", "Error occurred: " & @error)
EndIf

;Callback функция вызываемая при обновлений архива
Func _ARCHIVERPROC($hWnd, $Msg, $nState, $ExInfo)
	Return 1
EndFunc
 
Верх