1 (изменено: Archangel, 2008-12-25 00:40:20)

Тема: AutoHotkey: Очистка списка недавно используемых документов и корзины

Очистка списка недавно используемых документов и корзины.

#Persistent
szMessage = Would you like to clear the recent document menu and empty the Recycle bin?
szTitle = Cleaner

iButton := DllCall("MessageBox", int, 0, str, szMessage, str, szTitle, int, 4)
; Если нажата клавиша "Да"
If (iButton = 6) 
{
DllCall("shell32.dll\SHAddToRecentDocs", str, "SHARD_PATH", int, 0)
; Вызов функции SHAddToRecentDocs
DllCall("shell32.dll\SHEmptyRecycleBin", int, 0, int, 0, str, "SHERB_NOCONFIRMATION+SHERB_NOPROGRESSUI+SHERB_NOSOUND")
; Вызов функции SHEmptyRecycleBin

TrayTip, Cleaner, Recycle bin and recent document menu - is clear...
SetTimer, RemoveTrayTip, 5000
Return

RemoveTrayTip:
SetTimer, RemoveTrayTip, Off
TrayTip
ExitApp
Return
}
ExitApp

Использована API библиотека "Shell32.dll".

Счастья. Для всех. Даром. И пусть никто не уйдет обиженным... (с) Стругацкие "Пикник на обочине"