Criando instalador próprio

[AnonymousKesha 11]

Recentemente estive procurando algumas coisas pela net para fazer um instalador para minhas aplicações e achei algumas

coisas interessantes e simples.

Ele simplesmente faz 3 coisas:

 

-Passa os arquivos(no caso vai estar tudo compactado em .rar)

-Descompacta dos arquivos

-Cria um atalho na área de trabalho.

 

#Bom para iniciar, pegue os arquivos de sua aplicação e junte todos e faça um arquivo (com winrar)

 

1.Abra o Visual Studio e crie um projeto WindowsApplication com o nome de seu instalador.

2.Vá no Gerenciador de Soluções > clique na sua aplicação > clique com o direito > Propriedades

3.Vá em Recursos, pegue o arquivo.rar e arraste para lá(recursos)

4.Volte para o Form

 

Imports a fazer:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Referencias:

COM>

Windows Script Host Object Mode

 

Copiar o arquivo.rar

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

5.Coloque um button com o nome instalar

6.Declare a seguinte variável na class public

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Código do Button:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Quando essa linha é executada ele pega o arquivo.rar e envia para o destino informado, no caso para C:/

 

7.Extraindo o .rar

 

Declare as seguintes variáveis na class public

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

8.No button instalar passe a seguintes linha para realizar a extração:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

9.Para criar o atalho vamos usar uma função:

Public Function criaAtalhoNoDesktop() As Boolean

Try

Dim WshShell As New IWshRuntimeLibrary.WshShell

Dim diretorioDesktop As String = CType(WshShell.SpecialFolders.Item("Desktop"), String)

Dim atalho As IWshRuntimeLibrary.IWshShortcut

' o arquivo de atalho possui uma extensão .lnk

atalho = CType(WshShell.CreateShortcut(diretorioDesktop & "\Nome do atalho.lnk"), IWshRuntimeLibrary.IWshShortcut)

' define as propriedades do atalho

With atalho

.TargetPath = "arquivo a ser executado.exe" 'System.Reflection.Assembly.GetExecutingAssembly.Location()

.WindowStyle = 1

.Description = "Comentarios"

.WorkingDirectory = diretorioDesktop

' obtem o primeiro icon a partiro do programa executor

.IconLocation = System.Reflection.Assembly.GetExecutingAssembly.Location() & ", 0"

'salva o arquivo de atalho

.Save()

End With

'deu tudo certo

Return True

Catch ex As System.Exception

Return False

End Try

End Function

 

E por fim no button instalar add o código:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[SuperFelipe1903 1]

Poderia postar a source para estudo , pois fiz como está no topico e não está criando o atalho no desktop ...

[Goldenrod 0]

ótimo tópico mais poderia fazer como nosso amigo postar uma source para estudos

ia ficar melhor