Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Удалить временные файлы IE

Delphi , Интернет и Сети , Браузер

Удалить временные файлы IE

На конгрессе программистов зачитывают послание Президента России.... Пожелания удачи, и т.д. А в конце подпись
- "Ваш Президент.Ру"


uses 
  WinInet; 

procedure DeleteIECache; 
var 
  lpEntryInfo: PInternetCacheEntryInfo; 
  hCacheDir: LongWord; 
  dwEntrySize: LongWord; 
begin 
  dwEntrySize := 0; 
  FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize); 
  GetMem(lpEntryInfo, dwEntrySize); 
  if dwEntrySize > 0 then lpEntryInfo^.dwStructSize := dwEntrySize; 
  hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize); 
  if hCacheDir <> 0 then  
  begin 
    repeat 
      DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName); 
      FreeMem(lpEntryInfo, dwEntrySize); 
      dwEntrySize := 0; 
      FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize); 
      GetMem(lpEntryInfo, dwEntrySize); 
      if dwEntrySize > 0 then lpEntryInfo^.dwStructSize := dwEntrySize; 
    until not FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize); 
  end; 
  FreeMem(lpEntryInfo, dwEntrySize); 
  FindCloseUrlCache(hCacheDir); 
end; 


// Beispiel: 
// Example: 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  DeleteIECache; 
end;

Статья Удалить временные файлы IE раздела Интернет и Сети Браузер может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


:: 2009-10-10 22:01:08 :: re:Удалить временные файлы IE

пользователь: Tom d`Cat.

Хороший код, я пользуюсь похожим - но только чистит он Cookies. А \"C:\\Documents and Settings\\user\\Local Settings\\Temporary Internet Files\\Content.IE5\" чистятся вот так (причесывать не стал - код из работающей программы):

Uses ShellAPI;

procedure TForm1.But1IEClick(Sender: TObject);
begin
ShellExecute(0, \'open\', \'rundll32.exe\',
\'inetcpl.cpl,ClearMyTracksByProcess 8\', \'\', SW_SHOW);
ShowMessage(\'Кэш Internet Exlorer-а очищен.\');
WebBrowser1.SetFocus;
end;

//
// Вызов внешнего приложения.
//
procedure TForm1.ShExec(sF: string);
var
pFind: array [0..256] of Char;
begin
unDiagn;
if length(sF)>0 then
(ShellExecute(Application.MainForm.Handle
,nil
,StrPCopy(pFind,sF)
,nil
,nil
,SW_SHOW));
end; // ShExec


:: 2009-10-10 22:05:57 :: re:Удалить временные файлы IE

пользователь: Tom d`Cat.

Извините, уж слишком не причесывал - строчку \"unDiagn;\" таки надо было выбросить ;)


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Браузер ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 02:00:53/0.0045418739318848/2