本文整理自网络，侵删。
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(0,'open','rundll32.exe','inetcpl.cpl,ClearMyTracksByProcess 8',nil,1); //IE缓存
//ShellExecute(0,'open','rundll32.exe','inetcpl.cpl,ClearMyTracksByProcess 2',nil,1); //IE cookies
ShellExecute(0,'open','rundll32.exe','inetcpl.cpl,ClearMyTracksByProcess 1',nil,1); //IE history
ShellExecute(0,'open','rundll32.exe','inetcpl.cpl,ClearMyTracksByProcess 16',nil,1); //form
ShellExecute(0,'open','rundll32.exe','inetcpl.cpl,ClearMyTracksByProcess 32',nil,1); //auto save pass
//ShellExecute(0,'open','rundll32.exe','inetcpl.cpl,ClearMyTracksByProcess 255',nil,1); //all
//ShellExecute(0,'open','rundll32.exe','inetcpl.cpl,ClearMyTracksByProcess 4351',nil,1); //all & addons
end;
相关阅读 >>
Delphi 如何从一张图片中裁剪一部分距形图片另存为文件（使用canvas.copyrect）
Delphi android应用程序中的java ui线程中执行处理
Delphi xe5的新功能“ tlistview内置搜索过滤”
Delphi unigui 安装和配置hyperserver
更多相关阅读请进入《Delphi》频道 >>
