(Resolvido) shell não abri jogos

[charlehardware]

É O SEGUITE COM AJUDA DE UM MIGO ====>>> JPAULO

FIZ UM FORM COM SEGUITE BOTÃO:

AO CLICAR USANDO UMA DESSAS TREIS FORMAS, O JOGO ATÉ ABRI MAS FICA MEIO SEGO TIPO ASSIM DENTRO DA

PASTA SNOWY3\ EXISTE PASTAS QUE NA ABERTURA DO JOGO SÃO CARREDAS, QUE NA EXECUÇÃO, O EXE NÃO ACHA GERANDO ERROS E O NÃO CARREGAMENTO DO JOGO.

EXECUTO DIRETO E ABRI NORMAL.

E FIZ O MESMO TESTE USANDO ACALCULADORA DO WINDOWS funciona NORMAL

Shell "C:\Snowy3\treasurehunter3.exe", vbNormalFocus

'Shell "explore ""C:\Snowy3\treasurehunter3.exe""", vbNormalFocus

'Call Shell("C:\Snowy3\treasurehunter3.exe", vbMaximizedFocus)

Editado Fevereiro 25, 2009 por charlehardware

[Jonathan Queiroz]

Não consegui entender seu problema...

Qual mensagem de erro aparece quando você faz dessa forma:

Shell "C:\Snowy3\treasurehunter3.exe", vbNormalFocus

[charlehardware]

Não consegui entender seu problema...

Qual mensagem de erro aparece quando você faz dessa forma:

Shell "C:\Snowy3\treasurehunter3.exe", vbNormalFocus

FAZ QUE VAI ABRIR A TELA FICA PRETA E TUDO, AI DAR UNS ERROS DE CAMINHOS

C:\Snowy3\DATA\ALGUM-ARQ.*

OU SEJA ELE EXECULTA O ==>> treasurehunter3.exe

JUNTO COM EXE EXISTE A PASTA DATA, E COMO QUEM ESTAR EXECUTANDO É O ACCESS DE FORA DE TAL PASTA ELE NÃO ACHA A TAL PASTA DATA E DA ERROS LOGO NÃO ABRI O JOGO.

STAR VENDO A LINHA INICIAR EM:

REMOVIR ESSA LINHA E TENTEI ABRIR ATRAVES DO ATALHO, RESULTADO ACONTECE O MESMO, ERRO IDENTICO QUE DA NO ECCESS, CONCLUSÃO PRECISA ALG OUTRO COMMANDO LÁ NO ACCESS QUE RESOLVA O "INICIAR EM:"

Editado Fevereiro 25, 2009 por charlehardware

[Jonathan Queiroz]

Se você tentar abrir o programa direto pelo windows funciona ?

[charlehardware]

Se você tentar abrir o programa direto pelo windows funciona ?

SIM NORMAL.

[Leandro Abbade]

Bom dia,

Tenta executar novamente o seu exemplo deste modo:

Dim RetVal
RetVal = Shell("C:\Snowy3\treasurehunter3.exe", 1)

Vá trocando as númerações do final para ver se tem alguma alteração:

vbHide 0 - A janela fica oculta e o foco é passado para a janela oculta. A constante vbHide não é aplicável em plataformas Macintosh. 
vbNormalFocus 1 - A janela tem foco e é restaurada para seu tamanho e posição originais. 
vbMinimizedFocus 2 - A janela é exibida como um ícone com foco. 
vbMaximizedFocus 3 - A janela é maximizada com foco. 
vbNormalNoFocus 4 - A janela é restaurada para sua posição e tamanho mais recentes. A janela ativa atual permanece ativa. 
vbMinimizedNoFocus - 6 A janela é exibida como um ícone. A janela ativa atual permanece ativa.

Teste e retorne.

[charlehardware]

Bom dia,

Tenta executar novamente o seu exemplo deste modo:

Dim RetVal
RetVal = Shell("C:\Snowy3\treasurehunter3.exe", 1)

Vá trocando as númerações do final para ver se tem alguma alteração:

vbHide 0 - A janela fica oculta e o foco é passado para a janela oculta. A constante vbHide não é aplicável em plataformas Macintosh. 
vbNormalFocus 1 - A janela tem foco e é restaurada para seu tamanho e posição originais. 
vbMinimizedFocus 2 - A janela é exibida como um ícone com foco. 
vbMaximizedFocus 3 - A janela é maximizada com foco. 
vbNormalNoFocus 4 - A janela é restaurada para sua posição e tamanho mais recentes. A janela ativa atual permanece ativa. 
vbMinimizedNoFocus - 6 A janela é exibida como um ícone. A janela ativa atual permanece ativa.

Teste e retorne.

OI OBG PELA ATENÇÃO TENTEI COM SEU CODIGO E NADA.

RESOLVIR COM AJUDA DE UM AMIGO DE OUTRO FORUM ( JPAULO)

SOLUÇÃO:

Call Shell("cmd.exe /c Start " & "c:\Snowy3\Snowy3.lnk ")

PEGANDO DO ATALHO E NÃO DO .EXE AI DEU PRIMEIRA DE LUXO.