ABRIR PROGRAMAS EM UM ATALHO FEITO EM VB6
eu queria ajuda pra mim abrir programas em um atalho que eu fiz.. exe:
eu crio um forme com varios botões.. cada botão ira abrir um programa.. bem eu queria coloca todos esses programas dentro de uma pasta..
me falaram do comando shell.. mais ele vc tem que especificar o direito .. eu tenho uma HD externa.. ai ela pode reconhecer como outra unidade.. tipo se no meu pc reconhece com G ai se eu colocar Shell ([Ô]G:\programas\lista\avast.exe[Ô]) no meu pc ele vai abrir, mais caso eu colocar em outro pc e minha hd reconhecer como F ele ja nao vai funcionar.. alguem sabe se tem como fazer de outro modo.. que eu posso colocar em outro pc e ele abrir normal?
eu crio um forme com varios botões.. cada botão ira abrir um programa.. bem eu queria coloca todos esses programas dentro de uma pasta..
me falaram do comando shell.. mais ele vc tem que especificar o direito .. eu tenho uma HD externa.. ai ela pode reconhecer como outra unidade.. tipo se no meu pc reconhece com G ai se eu colocar Shell ([Ô]G:\programas\lista\avast.exe[Ô]) no meu pc ele vai abrir, mais caso eu colocar em outro pc e minha hd reconhecer como F ele ja nao vai funcionar.. alguem sabe se tem como fazer de outro modo.. que eu posso colocar em outro pc e ele abrir normal?
ELUANCARDOSO bom dia tem sim.
Pega no meu tópico da duvida sobre o subreport e baix ele na sua máquina, e da uma olhaque que tem um config.ini e dentro do projeto tem como fazer para pegar os dados dele.
O que vc pode fazer é ter esse config.ini nas máquinas e colocar nele o caminho q vc deseja, assim se por um acaso acontecer o que vc colocou de mudar o drive, basta somente alterar o config que o sistema identifica perfeito
Pega no meu tópico da duvida sobre o subreport e baix ele na sua máquina, e da uma olhaque que tem um config.ini e dentro do projeto tem como fazer para pegar os dados dele.
O que vc pode fazer é ter esse config.ini nas máquinas e colocar nele o caminho q vc deseja, assim se por um acaso acontecer o que vc colocou de mudar o drive, basta somente alterar o config que o sistema identifica perfeito
bom minha sugestão é mais simples
no seu projeto coloque um botão para procurar disco removivel
coloque um common dialog control e procure a pasta indiferente de letra seja o atalho
e pronto.
no seu projeto coloque um botão para procurar disco removivel
coloque um common dialog control e procure a pasta indiferente de letra seja o atalho
e pronto.
Dica: colocas o ditos programas numa pasta, depois no form colocas um componente dir e um file:
e depois abres o programa que pretendes
ou
Dir1.Path = App.Path
File1.Path = Dir1.Path & [Ô]\Pasta_dos_programas\[Ô]
e depois abres o programa que pretendes
Shell File1.Path & file1.list(index) ou
Shell App.Path & [Ô]\Pasta_dos_Programas\[Ô] & [Ô]Nome_do_programa.exe[Ô] 
Shell app.path & [Ô]\programas\seuprograma.exe[Ô]
aonde [Ô]app.path[Ô], representa o diretorio aonde o executavel do seu programa se encontra, quando já compilado ou o seu arquivo .vbp. Desta forma quando o comando acima for executado, ele automaticamente irá abrir o diretorio [Ô]Programas[Ô] (que devera estar junto ao .exe ou .vbp) e executar [Ô]seuprograma.exe[Ô]
aonde [Ô]app.path[Ô], representa o diretorio aonde o executavel do seu programa se encontra, quando já compilado ou o seu arquivo .vbp. Desta forma quando o comando acima for executado, ele automaticamente irá abrir o diretorio [Ô]Programas[Ô] (que devera estar junto ao .exe ou .vbp) e executar [Ô]seuprograma.exe[Ô]
consegui aqui.. vlw a todos pela ajuda!
[ô]chamada
Private Sub Command1_Click()
subExecutar [Ô]\WINDOWS\SYSTEM32\[Ô], [Ô]CALC.EXE[Ô]
End Sub
[ô]sub/function auxiliar
Public Sub subExecutar(ByVal sPath As String, ByVal sExecutavel As String)
Dim iCont As Integer
Dim sDisco As String
sDisco = [Ô][Ô]
For iCont = 67 To 87
sDisco = funDisco(Chr(iCont) & [Ô]:[Ô] & sPath & sExecutavel)
If sDisco <> [Ô][Ô] Then Exit For
Next iCont
If sDisco <> [Ô][Ô] Then
Shell sDisco & sPath & sExecutavel
End If
End Sub
Public Function funDisco(ByVal sCaminho As String) As String
funDisco = [Ô][Ô]
On Error GoTo Fim
If Dir(sCaminho) <> [Ô][Ô] Then
funDisco = sCaminho
End If
Fim:
End Function
Private Sub Command1_Click()
subExecutar [Ô]\WINDOWS\SYSTEM32\[Ô], [Ô]CALC.EXE[Ô]
End Sub
[ô]sub/function auxiliar
Public Sub subExecutar(ByVal sPath As String, ByVal sExecutavel As String)
Dim iCont As Integer
Dim sDisco As String
sDisco = [Ô][Ô]
For iCont = 67 To 87
sDisco = funDisco(Chr(iCont) & [Ô]:[Ô] & sPath & sExecutavel)
If sDisco <> [Ô][Ô] Then Exit For
Next iCont
If sDisco <> [Ô][Ô] Then
Shell sDisco & sPath & sExecutavel
End If
End Sub
Public Function funDisco(ByVal sCaminho As String) As String
funDisco = [Ô][Ô]
On Error GoTo Fim
If Dir(sCaminho) <> [Ô][Ô] Then
funDisco = sCaminho
End If
Fim:
End Function
Tópico encerrado , respostas não são mais permitidas