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
 
Public Function OpenWithLinkedApp(ByVal lOwnerHWND As Long, _
  ByVal sFile As String, Optional ByVal sVerb As String = "open") As Boolean
 
  OpenWithLinkedApp = ShellExecute(lOwnerHWND, sVerb, sFile, "", "", 1) > 32
End Function

If Not OpenWithLinkedApp(Me.Hwnd, "C:\treiber.inf", "install") Then
  MsgBox "Fehler"
End If

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.