#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