Для Win 7 использовал такую функцию
Но она не работает на Windows XP вылетает с ошибкой
Код:
Func _Clear($type, $visible)
; #############################################################################
; Типы очистки:
; 1 = Очистить Журнал
; 2 = Очистить файлы "Cookie"
; 8 = Очистить временные файлы Интернета
; 16 = Очистить данные веб-форм
; 32 = Очистить пароли
; 255 = Удалить все
; 4351 = Удалить все, включая данные и файлы созданные дополнениями (аддонами)
; #############################################################################
If $visible = 1 Then
RunWait('RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess ' & $type)
Else
RunWait('RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess ' & $type, '', @SW_HIDE)
EndIf
DirRemove(@UserProfileDir & '\Application Data\Macromedia\Flash Player', 1)
DirRemove(@UserProfileDir & '\Application Data\Adobe\Flash Player', 1)
EndFunc
Но она не работает на Windows XP вылетает с ошибкой