EXECUTAR ARQUIVO.EXE COM PARAMETRO NO SHELL?
meu problema que mexo com jogo, já coloquei direto no vb e mesmo assim não vai mais testei no start.bat e funciona veja o codigo:
@echo off
start main.exe gt550
exit
gostaria de saber seguinte, como posso executar no Shell este comando? tentei assim e não deu certo
Shell(CurDir() & [Ô]\[Ô] & [Ô]cabalmain.exe[Ô], [Ô]breaklee[Ô])
@echo off
start main.exe gt550
exit
gostaria de saber seguinte, como posso executar no Shell este comando? tentei assim e não deu certo
Shell(CurDir() & [Ô]\[Ô] & [Ô]cabalmain.exe[Ô], [Ô]breaklee[Ô])
já tentou isso ?
Process.Start([Ô]C:\Program Files\7-Zip\7z.exe[Ô], [Ô]Argumentos Aqui[Ô])
Process.Start([Ô]C:\Program Files\7-Zip\7z.exe[Ô], [Ô]Argumentos Aqui[Ô])
Cleverton, muito obrigado por responder, realmente agradeço muito!
então, fiz isso sim, mais meu problema que quando eu faço assim direto, ele fecha o jogo depois de 2 minutos mais ou menos, ai criei um .bat para testar e o jogo não fechou.
fui pesquisando, pessoal me informou que dentro do Shell é possÃvel executar comandos bat, ai essa foi minha motivação para pergunta, como executar ^^
mais uma vez, muito obrigado mesmo.
então, fiz isso sim, mais meu problema que quando eu faço assim direto, ele fecha o jogo depois de 2 minutos mais ou menos, ai criei um .bat para testar e o jogo não fechou.
fui pesquisando, pessoal me informou que dentro do Shell é possÃvel executar comandos bat, ai essa foi minha motivação para pergunta, como executar ^^
mais uma vez, muito obrigado mesmo.
Tem o ShellExecute que roda os programas com os parametros e o tipo de janela
Private Declare Function ShellExecute Lib [Ô]Shell32.dll[Ô] Alias [Ô]ShellExecuteA[Ô] (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As TipoShow) As Long
Private Enum TipoShow
SW_SHOWNORMAL = 1
SW_SHOWMAXIMIZED = 3
SW_SHOWDEFAULT = 10
End Enum
Private Sub Form_Load()
ShellExecute Me.hwnd, [Ô]Open[Ô], CurDir() & [Ô]\[Ô], [Ô]cabalmain.exe[Ô], [Ô]breaklee[Ô], SW_SHOWNORMAL
End Sub
Private Declare Function ShellExecute Lib [Ô]Shell32.dll[Ô] Alias [Ô]ShellExecuteA[Ô] (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As TipoShow) As Long
Private Enum TipoShow
SW_SHOWNORMAL = 1
SW_SHOWMAXIMIZED = 3
SW_SHOWDEFAULT = 10
End Enum
Private Sub Form_Load()
ShellExecute Me.hwnd, [Ô]Open[Ô], CurDir() & [Ô]\[Ô], [Ô]cabalmain.exe[Ô], [Ô]breaklee[Ô], SW_SHOWNORMAL
End Sub
NAUTILUZ, muito obrigado pela sua ajuda!
mais quando executo a função sua ou uma outra minha outra seria :
Public Declare Function ShellExecute _
Lib [Ô]shell32.dll[Ô] _
Alias [Ô]ShellExecuteA[Ô] ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) _
As Long
ShellExecute(0, [Ô]Open[Ô], [Ô]cabalmain.exe[Ô], [Ô]breaklee[Ô], Application.StartupPath, 0)
mais quando executa o Shell não acontece nada.
saberia me dizer, o que pode ser?
obrigado novamente :)
mais quando executo a função sua ou uma outra minha outra seria :
Public Declare Function ShellExecute _
Lib [Ô]shell32.dll[Ô] _
Alias [Ô]ShellExecuteA[Ô] ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) _
As Long
ShellExecute(0, [Ô]Open[Ô], [Ô]cabalmain.exe[Ô], [Ô]breaklee[Ô], Application.StartupPath, 0)
mais quando executa o Shell não acontece nada.
saberia me dizer, o que pode ser?
obrigado novamente :)
Faça seu login para responder