[VB6] AJUDA COM SHELL

GUGUSINBANSAI 14/02/2012 20:28:20
#394751
Olá galera tudo bem? Bom eu estou tentando executar um programa pela API shell porém o programa que estou tentando executar contem uma referencia a um arquivo (Tibia.dat).
Por isso eu precisaria de uma API onde eu colocasse assim como quando você cria um atalho o caminho [Ô]Iniciar em:[Ô]

Segue abaixo meu código:
Citação:


Shell Environ([Ô]ProgramFiles[Ô]) & [Ô]\Tibia\Tibia.exe[Ô], vbNormalFocus



Obrigado.
GUGUSINBANSAI 15/02/2012 19:36:05
#394839
Obrigado galera já consegui.

Pra quem estiver com o mesmo problema:


Declarations:

Citação:

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 Long) As Long



Código:

Citação:


ShellExecute hwnd, [Ô]open[Ô], (Environ([Ô]ProgramFiles[Ô]) & [Ô]\Tibia\Tibia.exe[Ô]), [Ô][Ô], (Environ([Ô]ProgramFiles[Ô]) & [Ô]\Tibia\[Ô]), 1

Tópico encerrado , respostas não são mais permitidas