ABRIR OUTRO PROGRAMA A PARTIR DO SEU

USUARIO.EXCLUIDOS 11/03/2005 15:15:04
#72405
estou com um problema: não sei como faço para o meu programa abrir um outro programa, como a calculadora do windows, por exemplo. Se alguém souber, por favor me explique como faço isso. valeus
USUARIO.EXCLUIDOS 11/03/2005 15:19:13
#72407 Resposta escolhida
use
o

shell ("c:\windows\seuprograma.exe")

Entendeu!!
USUARIO.EXCLUIDOS 11/03/2005 15:23:19
#72409
Vc pode implementar mais
tipo assim:


Private Sub Command1_Click()
Dim sCaminho As String
sCaminho = "C:\windows\Calc.exe"
If Dir(sCaminho) = "" Then
MsgBox "O Programa não foi encontrado: '" & sCaminho & "'"
Else
Shell sCaminho
End If
End Sub

[txt-color=#ff0000]Ps: Não se esqueça de encerrar o TÓ“PICO.[/txt-color]
USUARIO.EXCLUIDOS 12/03/2005 13:34:10
#72557
Germanir, muito obrigado pela dica. Valeus...
GUTO 12/03/2005 13:38:10
#72561
Dim AbrirArquivo as String

AbrirArquivo = Shell("c:windowsotepad.exe") '»Â»abre o programa notepad.
AbrirArquivo = Shell("c:windowscalc.exe") '»Â»abre o programa calculadora.
AbrirArquivo = Shell("start c:winntPescaria.bmp") '»Â»abre o arquivo Pescaria.bmp com o programa padrão.
AbrirArquivo = Shell("start iexplore www.uol.com.br") '»Â»abre o o programa internet explorer que abre o site do UOL.
AbrirArquivo = Shell("start mailto:seu_email@dominio.com.br") '»Â»abre o programa padrão p/ envio de mensagens de correio eletrà'nico que abre o site do UOL.

CD
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,3", vbNormalFocus)

Gerenciador de Dispositivos
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,1", vbNormalFocus)

Opções de Acessibilidade
Teclado
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1", vbNormalFocus)

Som
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2", vbNormalFocus)
e por ai vai
USUARIO.EXCLUIDOS 12/03/2005 22:35:32
#72683
cara, o comando "SHELL" serve para vc abrir programas, seja a sintaxe dele abaixo:

shell ("caminho do arquivo")

EXEMPLO:

shell ("C:\Documents and Settings\Server\Meus documentos\calc.exe"

Este comando vai suprir bem o seu problema
Tópico encerrado , respostas não são mais permitidas
Voltar