#NoTrayIcon
#include <Array.au3>
#include <WinAPIEx.au3>
Opt('WinWaitDelay', 100)
Local $aArrayDel[0], $aArrayAdd[0]
$iTCPID = _WinAPI_GetParentProcess(@AutoItPID)
While ProcessExists($iTCPID)
$aArrayAdd = __SearchFiles()
_ArrayConcatenate($aArrayDel, $aArrayAdd)
Sleep(100)
WEnd
__DeleteFiles($aArrayDel)
Func __SearchFiles()
Local $aList, $i, $hControl, $sTitle, $aFiles[0], $aNewArray
$aList = WinList('[CLASS:TLister]')
For $i = 1 To $aList[0][0]
$hControl = ControlGetHandle($aList[$i][1], '', 'TxbNavigator.UnicodeClass1')
If Not @error Then
$sTitle = WinGetTitle($aList[$i][1])
$sTitle = StringRegExpReplace($sTitle, '(?im)^(.*?) : (.*?) - ([a-z]:\\.*?)$', '\3')
_ArrayAdd($aFiles, $sTitle & '\schema.ini')
Else
ContinueLoop
EndIf
Next
Return $aFiles
EndFunc ;==>SearchFiles
Func __DeleteFiles($aArray)
Local $aNewArray, $i
If IsArray($aArray) Then
_ArraySort($aArray)
$aNewArray = _ArrayUnique($aArray)
For $i = 1 To $aNewArray[0]
FileSetAttrib($aNewArray[$i], '-RASHNOT')
FileDelete($aNewArray[$i])
Next
Return 1
Else
Return 0
EndIf
EndFunc ;==>__DeleteFiles |
