INICIAR APLIVATIVO PELO BUTTON

OSH999 05/11/2013 19:12:30
#430773
Já tentei ...

Shell([Ô]C:\Program Files (x86)\Nome do Programa\Nomedoarquivo.exe[Ô])

tentei...

Process.Start([Ô]C:\Program Files (x86)\Nome do Programa\Nomedoarquivo.exe[Ô])

e como tivesse somente abrindo o .exe não abre ou da erro faltando arquivo
enquanto se eu for na pasta e clicar no arquivo ele abre normalmente !

Alguém pode me ajudar a solucionar isso?
Me lembro que tem como fazer fiz em um projeto meu alguns dias atras !
mais no momento não me lembro !
RO.DRIGOSG 19/12/2013 16:58:14
#432338
Boa tarde OSH999,

Já tentou colocar apenas o nome do exe? Ex:

  

[ô]Form
Option Explicit

Private mWnd    As Long

Private Sub Command1_Click()
    Shell [Ô]notepad.exe[Ô], vbMinimizedFocus  [ô]Executa exe
    mWnd = FindWindow([Ô]Notepad[Ô], vbNullString)
    Call SendMessage(mWnd, WM_CLOSE, 0, 0) [ô]Fecha exe
End Sub

[ô]Module
Option Explicit

Public Declare Function FindWindow Lib [Ô]user32[Ô] Alias [Ô]FindWindowA[Ô] (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SendMessage Lib [Ô]user32[Ô] Alias [Ô]SendMessageA[Ô] (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const WM_CLOSE = &H10
Faça seu login para responder
Voltar