本文整理自网络,侵删。
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 一个绘制虚线的非常规函数(常规方法,打印机上绘制不出虚线)
Delphi 获取其它软件的tlistbox句柄,怎么取得listbox中的数据
Delphi fdmemtable中如何在已有的字段数据集上加入字段
Delphi xe5 android 开发实现手机打电话和发短信
更多相关阅读请进入《Delphi》频道 >>