Хороший код, я пользуюсь похожим - но только чистит он 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
Извините, уж слишком не причесывал - строчку \"unDiagn;\" таки надо было выбросить ;)
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.