Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[POMOC] Instalator


Rekomendowane odpowiedzi

Opublikowano

Witam . Chciałbym stworzyć instalator , z prostym GUI .

 

Instalator ma dzialac na zasadzie wypakowania .rar juz w nim zawartego

Czyli .rar lub .zip którego gdy klikniemy i otworzymy ukaże nam się GUI instalatora

 

Chciałbym aby instalator zawierał :

Button

Progress Bar

Lokalizacje gdzie ma zostać wypakowany plik np. .zip lub .rar

 

Czy mógłby mi ktoś wyjaśnić jak takie coś wykonać ?

 

Czy taki kod na unzip zadziała ?

 

 

Dim zip As New ChilkatZip2


Dim success As Long

' Any string unlocks the component for the 1st 30-days.
success = zip.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
Text1.Text = Text1.Text & zip.LastErrorText & vbCrLf
Exit Sub
End If

success = zip.OpenZip("my_files.zip")
If (success <> 1) Then
Text1.Text = Text1.Text & zip.LastErrorText & vbCrLf
Exit Sub
End If

Dim unzipCount As Long

' Returns the number of files and directories unzipped.
' Unzips to /my_files, re-creating the directory tree
' from the .zip.
unzipCount = zip.Unzip("/my_files")
If (unzipCount < 0) Then
Text1.Text = Text1.Text & zip.LastErrorText & vbCrLf
Else
MsgBox "Success!"
End If

 

 

Daje oczywiście like i 5+ na profil

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...