| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

... как можно очистить Tempory Internet Files и Cookies ... [D6, WinXP]

Delphi5.01 ©   (2004-10-22 09:38:00) 

Доброе время суток!
Может кто подскажет как можно очистить Tempory Internet Files и Cookies. Имею в виду с помощью какой функции, поиск на данном сайте ничего не дал даже королевство дельфи не помогло, ни буду говорить про результаты гугла, яндекса и рамблера!
Спасибо

---

Delphi5.01   (2004-10-22 17:31:00) [1]

2 Prov: Thanks bolshoe!
2 Anatoly Podgoretsky: a ia dumal chto posle win95 eta opcia udalena iz nastroek internet explorera! :D
Da bivaut je ludi ... :D

---

Anatoly Podgoretsky   (2004-10-22 15:16:00) [2]

Delphi5.01 ©   (22.10.04 09:38)  
Это делается настройками Интернет Эксплорер

---

Prov   (2004-10-22 15:03:00) [3]

Очистка куки
uses ShellApi, ShlObj,....
procedure EraseCookie;         //ОЧИСТКА КУКИСОВ
 var ppidl: PItemIDList; CookiePath: array[0..255] of Char;
     SHC: TSHFileOpStruct; TmpStringC: PChar;
begin
 FillChar(CookiePath, SizeOf(CookiePath), 0);
 FillChar(SHC, SizeOf(SHC), 0);
 shlobj.SHGetSpecialFolderLocation(0, CSIDL_COOKIES, ppidl);
 shlobj.SHGetPathFromIDList(ppidl, CookiePath);
 TmpStringC:= PChar(PChar(@CookiePath) + '\*.*' + #00);
 SHC.Wnd:= 0;
 SHC.wFunc:= FO_DELETE;
 SHC.pFrom:= TmpStringC;
 SHC.fFlags:= FOF_NOCONFIRMATION or FOF_SILENT;
 SHC.fAnyOperationsAborted:= FALSE;
 SHFileOperation(SHC);
end;

очистка Теморени Инет Файлс

procedure EraseIECache;           //ОЧИСТКА ИНТЕРНЕТ КЭША
 var IE_CACHE_LIST: PItemIDList; IECachePath: array[0..255] of Char;
     SHIE: TSHFileOpStruct;  TmpStringIEC: PChar;
begin
 FillChar(IE_CACHE_LIST, SizeOf(IE_CACHE_LIST), 0);
 FillChar(SHIE, SizeOf(SHIE), 0);
 SHGetSpecialFolderLocation(0, CSIDL_INTERNET_CACHE, IE_CACHE_LIST);
 SHGetPathFromIDList(IE_CACHE_LIST, IECachePath);
 TmpStringIEC:= PChar(PChar(@IECachePath) + '\Content.IE5\*.*' + #00);
 SHIE.Wnd:= 0;
 SHIE.wFunc:= FO_DELETE;
 SHIE.pFrom:= TMPStringIEC;
 SHIE.fFlags:= FOF_SILENT or FOF_NOCONFIRMATION;
 SHIE.fAnyOperationsAborted:= FALSE;
 SHFileOperation(SHIE);
end;

---

Наверх