; Создаем архив с именем MyArchive.ZIP в корне диска C:
If PureZIP_Archive_Create("C:\MyArchive.ZIP",#APPEND_STATUS_CREATE)
    If PureZIP_Archive_Compress("C:\WINDOWS\NOTEPAD.exe",#False)=#Z_OK
      MessageRequester("","Файл успешно добавлен в архив", 64)
    Else
      MessageRequester("","Ошибка при добавлении файла в архив", 48)
    EndIf
    PureZIP_Archive_Close(); Закрываем файл архива.
Else
    MessageRequester("","Не удалось создать архив", 64)
EndIf
End

;- Window Constants
Enumeration
    #Window_0
EndEnumeration   
;- Gadget Constants
Enumeration
    #Text_0
    #String_0
    #Text_1
    #String_1
    #Text_2
    #Text_CurrentFiles
    #ProgressBar_FileProgress
    # Text_4
    #ProgressBar_AllProgress
    #Button_Archive
    #Button_1
    #Button_2
    #Text_5
    #String_Password
EndEnumeration
     
P rocedure Open_Window_0()
    If OpenWindow(#Window_0, 344, 256, 334, 264,"ZIP архиватор (упаковщик)",#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_ScreenCentered)
        TextGadget(#Text_0, 5, 5, 320, 15,"Путь к папке с файлами:")
        StringGadget(#String_0, 5, 20, 290, 20,"",#PB_String_ReadOnly)
        TextGadget(#Text_1, 5, 55, 320, 15,"Путь к месту сохранения создаваемого архива:")
        StringGadget(#String_1, 5, 70, 290, 20,"",#PB_String_ReadOnly)
        TextGadget(#Text_2, 5, 140, 100, 15,"Обработка файла:")
        TextGadget(#Text_CurrentFiles, 105, 140, 220, 15,"")
        ProgressBarGadget(#ProgressBar_FileProgress, 5, 155, 320, 15, 0, 100,#PB_ProgressBar_Smooth)
        TextGadget(#Text_4, 5, 185, 150, 15,"Общий прогресс:")
        ProgressBarGadget(#ProgressBar_AllProgress, 5, 200, 320, 15, 0, 100,#PB_ProgressBar_Smooth)
        ButtonGadget(#Button_Archive, 80, 230, 190, 25,"Создать архив")
        ButtonGadget(#Button_1, 300, 20, 30, 20,"...")
        ButtonGadget(#Button_2, 300, 70, 30, 20,"...")
        TextGadget(#Text_5, 5, 105, 85, 15,"Пароль архива:")
        StringGadget(#String_Password, 95, 100, 200, 20,"")
    EndIf
EndProcedure
     
Procedure File_Progress(File.s, PerCent.f, UserParam.l); Отображение в окне, прогресса упаковки текущего файла
    SetGadgetText(#Text_CurrentFiles, File)
    SetGadgetState(#ProgressBar_FileProgress, PerCent)
    While WindowEvent(): Wend
EndProcedure
     
Procedure All_Progress(File.s, PerCent.f, UserParam.l); Отображение в окне, общего прогресса упаковки файлов
    SetGadgetState(#ProgressBar_AllProgress, PerCent)
    While WindowEvent(): Wend
EndProcedure
     
Procedure Button_Archive(Directory.s, File.s)
    MessageRequester("","Функция не реализована"+Chr(10)+"Это только каркас программы", 64)
EndProcedure
     
     
Open_Window_0()
PureZIP_SetCompressionCallback(@File_Progress()); Регистрация процедуры прогресса упаковки файлов
PureZIP_SetProgressionCallback(@All_Progress()); Регистрация процедуры общего прогресса упаковки
     
Repeat ; Главный цикл Repeat - Until
    Event = WaitWindowEvent(); Идентификатор события   
     
    If Event =#PB_Event_Gadget
      Select EventGadget(); Идентификатор гаджета по которому кликнули
        Case #Button_1; Кнопка выбора папки с файлами
          Path.s=PathRequester("Укажите путь к архивируемым файлам","")
          If FileSize(Path)=-2 ; Папка существует
            SetGadgetText(#String_0, Path)
          EndIf
            
        Case #Button_2; Кнопка выбора места сохранения архива
          File.s=SaveFileRequester("","","ZIP архивы|*.zip|Все файлы|*.*",0)
          If File<>""
            If GetExtensionPart(File)=""; Неуказанно расширение файла
              File+".zip"
            EndIf
            SetGadgetText(#String_1, File)
          EndIf           

        Case #Button_Archive; Кнопка создания архива
          String1.s=GetGadgetText(#String_0)
          String2.s=GetGadgetText(#String_1)
          If String1<>"" And String2<>""
            Password.s = GetGadgetText(#String_Password); Пароль архива
            PureZIP_SetArchivePassword(Password)
            Button_Archive(String1, String2)
          Else
            MessageRequester("","Заполните поля!", 48)
          EndIf          
      EndSelect     
    EndIf
        
Until Event =#PB_Event_CloseWindow

Procedure Button_Archive(Directory.s, File.s)
   If PureZIP_AddFiles(File, Directory+"*.*", #PureZIP_StorePathRelative, #PureZIP_Recursive) <> 0
      MessageRequester("", "Архив успешно создан", 64)
   Else
      MessageRequester("", "Произошла ошибка при создании архива", 16)
   EndIf
EndProcedure

Procedure Button_Archive(Directory.s, File.s)
   If PureZIP_ExtractFiles(File, "*.*", Directory, #True) <> 0
     MessageRequester("", "Архив успешно распакован", 64)
   Else
     MessageRequester("", "Произошла ошибка при открытии архива", 16)
   EndIf
EndProcedure