如何彻底结束explorer进程？？就是结束之后不让它自动加载！

Question

因为有些文件被explorer使用之中（如ie缓存中的index.dat文件），所以想删除的话，就得先结束explorer进程，但是问题接着来了用dos或者vbs结束explorer进程之后，不过1秒，它自己有重新加载了！！！真的是烦死了！！！
因为如果想删除的文件比较大的话，在短短的1秒之内是无法删除的，所以常常是文件删除到一半的时候就因为拒绝权限而无法删除。
所以我想问一下如何实现彻底的结束explorer进程啊？？？
最好是有源码，没有的话也没有关系，只要说一下原理就可以了。
不过先声明的是我的操作系统是2000。没有taskkill命令，所以利用dos的taskkill命令的就不必劳神回复了。
如果各位大侠有这样的程序的话，给小弟推荐一个也可以，但是要是在dos下的，这样我才能利用vb的shell命令来利用啊！！！！
不管有没有，现在这里谢谢了啊！！！！！！！

Answer 1

hWnd = findwindow(vbnullstring,"Program Manager")
if hWnd then postmessage hWnd ,WM_CLOSE,0,0
试下

Answer 2

文件可以强制删除 
2000下用 MoveFileEx 
DELPHI例子
删除文件：  
MoveFileEx('c:winnt\system32\kernel32.dll', nil,MOVEFILE_REPLACE_EXISTING);  
MoveFileEx('c:winnt\system32\kernel32.dll', nil,MOVEFILE_DELAY_UNTIL_REBOOT);

Answer 3

模块文件 
------------------------------------------
Private Const TH32CS_SNAPPROCESS = &H2
Private Const TH32CS_SNAPheaplist = &H1
Private Const TH32CS_SNAPthread = &H4
Private Const TH32CS_SNAPmodule = &H8
Private Const TH32CS_SNAPall = TH32CS_SNAPPROCESS + TH32CS_SNAPheaplist + TH32CS_SNAPthread + TH32CS_SNAPmodule
Private Const MAX_PATH As Integer = 260
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
Private Const PROCESS_CREATE_PROCESS = &H80
Private Const PROCESS_CREATE_THREAD = &H2
Private Const PROCESS_DUP_HANDLE = &H40
Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const PROCESS_QUERY_LIMITED_INFORMATION = &H1000
Private Const PROCESS_SET_QUOTA = &H100
Private Const PROCESS_SET_INFORMATION = &H200
Private Const PROCESS_SUSPEND_RESUME = &H800
Private Const PROCESS_TERMINATE = &H1
Private Const PROCESS_VM_OPERATION = &H8
Private Const PROCESS_VM_READ = &H10
Private Const PROCESS_VM_WRITE = &H20
Private Const SYNCHRONIZE = &H100000Private Type PROCESSENTRY32
 dwSize As Long
 cntUsage As Long
 th32ProcessID As Long
 th32DefaultHeapID As Long
 th32ModuleID As Long
 cntThreads As Long
 th32ParentProcessID As Long
 pcPriClassBase As Long
 dwFlags As Long
 szExeFile As String * MAX_PATH
End TypePrivate Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) 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 Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As LongPublic Function GetTargetProcessID(ByVal lpProcess As String) As Long
 Dim dwRet As Long
 Dim hSnapShot As Long
 Dim pe32 As PROCESSENTRY32
 hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0)
 pe32.dwSize = LenB(pe32)
 ProcessFirst hSnapShot, pe32
 Do
 If InStr(pe32.szExeFile, lpProcess) > 0 Then
 dwRet = pe32.th32ProcessID
 Exit Do
 Else
 pe32.szExeFile = String(MAX_PATH, 0)
 End If
 Loop While (ProcessNext(hSnapShot, pe32))
 CloseHandle (hSnapShot)
 GetTargetProcessID = dwRet
End FunctionPublic Function CloseTargetProcess(ByVal dwProcessID As Long) As Boolean
 Dim hProcess As Long
 Dim lpExitCode As Long
 hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, dwProcessID)
 If hProcess = 0 Then
 CloseTargetProcess = False
 Exit Function
 End If
 If GetExitCodeProcess(hProcess, lpExitCode) = 0 Then
 CloseTargetProcess = False
 Exit Function
 End If
 If TerminateProcess(hProcess, 1) = 0 Then
 CloseTargetProcess = False
 Else
 CloseTargetProcess = True
 End If
 CloseHandle (hProcess)
End Function
-------------------------------------------------
Dim ret As Long
 
 ret = GetTargetProcessID("explorer.exe")

Answer 4

'以下内容写在模块里
Option ExplicitPublic Const sEndProess As String = "explorer.exe" '注意必须小写
Public Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
Public Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Public Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long
Public Declare Function TerminateProcess Lib "kernel32" (ByVal ApphProcess As Long, ByVal uExitCode As Long) As LongPublic Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * 1024
End TypePublic Const TH32CS_SNAPHEAPLIST = &H1
Public Const TH32CS_SNAPPROCESS = &H2
Public Const TH32CS_SNAPTHREAD = &H4
Public Const TH32CS_SNAPMODULE = &H8
Public Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Public Const TH32CS_INHERIT = &H80000000Public Sub Exitexplorer()
Dim pid As Long
Dim pname As String
Dim my As PROCESSENTRY32
Dim l As Long
Dim l1 As Long
Dim flag As Boolean
Dim mName As String
Dim i As Integerl = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
If l Then
my.dwSize = 1060
If (Process32First(l, my)) Then '遍历第一个进程
Do
i = InStr(1, my.szExeFile, Chr(0))
mName = LCase(Left(my.szExeFile, i - 1))
If mName = LCase(sEndProess) Then
pid = my.th32ProcessID
pname = mName
Dim mProcID As Long
mProcID = OpenProcess(1&, -1&, pid)
TerminateProcess mProcID, 1&'关键在这里,1表示关闭后不会自动加载,0表示关闭后Windows会自动重新加载explorer.exe
flag = True
Exit Sub
Else
flag = False
End If
Loop Until (Process32Next(l, my) < 1) '遍历所有进程知道返回值为False
End If
l1 = CloseHandle(l)
End If
End Sub'彻底结束explorer.exe,在需要的地方如下调用
Call Exitexplorer

Answer 5

关键是TerminateProcess这个API函数，第二个参数决定了关闭explorer.exe后是否自动加载
1表示不加载
0表示自动加载

Answer 6

前些天看见一个...好象就是坛子里的..
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoRestartShell设置为0