Herbers Excel-Forum - das Archiv

' **********************************************************************
' Modul: Modul4  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private Declare Function OpenProcess Lib "kernel32.dll" ( _
    ByVal dwDesiredAccess As Long, _
    ByVal bInheritHandle As Long, _
    ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" ( _
    ByVal hProcess As Long, _
    ByVal uExitCode As Long) As Long

Private Const PROCESS_TERMINATE = &H1
Private Const PROCESS_VM_READ = &H10

Private lngTaskID As Long

Public Sub prcOpen_Explorer()
    lngTaskID = Shell("Explorer C:\", vbNormalFocus)
End Sub

Public Sub prcClose_Explorer()
    Dim lngHandle As Long
    lngHandle = OpenProcess(PROCESS_VM_READ Or PROCESS_TERMINATE, 0&, lngTaskID)
    TerminateProcess lngHandle, 0&
End Sub



Gruß


Nepumuk




Betrifft: AW: Explorer schließen



von: Andre´


Geschrieben am: 26.12.2006 20:47:12


Hallo Nepumuk,


danke für den Tipp funktioniert prima!


MFG


Andre