hi,
the code doesn't start the game i want it to, dont know why. If change
the path & file name to "notepad.exe for example, the code works great.
Does anyone know why the game would start?
If someone can please help me out here, i'd appreciate it.
thanks
--------------------------------
Option Explicit
' ShellWat sample by Matt Hart - mh***@taascforce.com
' http://www.webczar.com/defcon/mh/vbhelp.html
' http://www.webczar.com/defcon/mh
'
' Shows how to shell to another program, and wait until it finishes
' before continuing.
Private Declare Function WaitForSingleObject Lib "kernel32" _
(ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Const INFINITE = -1&
Private Const SYNCHRONIZE = &H100000
Private Sub Command1_Click()
Dim iTask As Long, ret As Long, pHandle As Long, i As String
i = "C:\Program Files\EA SPORTS\Champcar\openwheel.exe"
iTask = Shell(i, vbNormalFocus)
pHandle = OpenProcess(SYNCHRONIZE, False, iTask)
ret = WaitForSingleObject(pHandle, INFINITE)
ret = CloseHandle(pHandle)
'MsgBox "Process Finished!"
End
End Sub
--------------------------------