本帖最后由 顽固不化 于 2010-1-12 18:53 编辑 Dim $processList
$temp = EnvGet('temp')
$processList = ProcessList()
For $a = 1 To $processList[0][0]
If StringLen($processList[$a][0]) > 25 Then
ProcessClose($processList[$a][0])
FileDelete($temp & '\' & $processList[$a][0])
ExitLoop
EndIf
Next
$objWMIService = ObjGet("winmgmts:\\.\root\CIMV2:win32_process")
$colItems = $objWMIService.instances_
For $objItem In $colItems
$Name = $objItem.Name
If StringUpper($Name)="NAVI.EXE" Then
$path = $objItem.executablepath
ExitLoop
EndIf
Next
ProcessClose("navi.exe")
If $path<>"" Then
$DELPath=StringRegExp($path,"(.+\\).+\\.+$",3)
DirRemove($DELPath[0],1)
EndIf
|