- 'La classe
-
- Imports System.Runtime.InteropServices
- Public Class Launch
- <DllImport("CoreDll.DLL", SetLastError:=True)> _
- Private Shared Function CreateProcess(ByVal imageName As String, ByVal cmdLine As String, ByVal lpProcessAttributes As IntPtr, ByVal lpThreadAttributes As IntPtr, ByVal boolInheritHandles As Int32, ByVal dwCreationFlags As Int32, ByVal lpEnvironment As IntPtr, ByVal lpszCurrentDir As IntPtr, ByVal si() As Byte, ByVal pi As ProcessInfo) As Integer
- End Function
-
- <DllImport("CoreDll.dll")> _
- Private Shared Function GetLastError() As Int32
- End Function
-
- Public Shared Function CreateProc(ByVal ExeName As String, ByVal CmdLine As String, ByVal pi As ProcessInfo) As Boolean
- If pi Is Nothing Then
- pi = New ProcessInfo
- End If
- Dim si(127) As Byte
- Return CreateProcess(ExeName, CmdLine, IntPtr.Zero, IntPtr.Zero, 0, 0, IntPtr.Zero, IntPtr.Zero, si, pi) <> 0
- End Function 'CreateProc
- End Class 'Externals
- Public Class ProcessInfo
- Public hProcess As IntPtr
- Public hThread As IntPtr
- Public ProcessId As Int32
- Public ThreadId As Int32
- End Class
-
- 'dans votre form
-
- Launch.CreateProc("\Windows\solitaire.exe", Nothing, Nothing)
- 'lancera le solitaire
'La classe
Imports System.Runtime.InteropServices
Public Class Launch
<DllImport("CoreDll.DLL", SetLastError:=True)> _
Private Shared Function CreateProcess(ByVal imageName As String, ByVal cmdLine As String, ByVal lpProcessAttributes As IntPtr, ByVal lpThreadAttributes As IntPtr, ByVal boolInheritHandles As Int32, ByVal dwCreationFlags As Int32, ByVal lpEnvironment As IntPtr, ByVal lpszCurrentDir As IntPtr, ByVal si() As Byte, ByVal pi As ProcessInfo) As Integer
End Function
<DllImport("CoreDll.dll")> _
Private Shared Function GetLastError() As Int32
End Function
Public Shared Function CreateProc(ByVal ExeName As String, ByVal CmdLine As String, ByVal pi As ProcessInfo) As Boolean
If pi Is Nothing Then
pi = New ProcessInfo
End If
Dim si(127) As Byte
Return CreateProcess(ExeName, CmdLine, IntPtr.Zero, IntPtr.Zero, 0, 0, IntPtr.Zero, IntPtr.Zero, si, pi) <> 0
End Function 'CreateProc
End Class 'Externals
Public Class ProcessInfo
Public hProcess As IntPtr
Public hThread As IntPtr
Public ProcessId As Int32
Public ThreadId As Int32
End Class
'dans votre form
Launch.CreateProc("\Windows\solitaire.exe", Nothing, Nothing)
'lancera le solitaire