VC VB Delphi 清除IE缓存 internet临时文件 cookie 历史记录 表单记录 上网密码

 

 如果想命令行方式来清除ie缓冲，可以使用借助rundll32.exe 来运行internet选项的对应功能。

temporary internet files  （internet临时文件）

rundll32.exe inetcpl.cpl,clearmytracksbyprocess 8

cookies

rundll32.exe inetcpl.cpl,clearmytracksbyprocess 2

history (历史记录)

rundll32.exe inetcpl.cpl,clearmytracksbyprocess 1

form data （表单数据）

rundll32.exe inetcpl.cpl,clearmytracksbyprocess 16

passwords (密码）

rundll32.exe inetcpl.cpl,clearmytracksbyprocess 32

delete all  （全部删除）

rundll32.exe inetcpl.cpl,clearmytracksbyprocess 255

delete all - "also delete files and settings stored by add-ons"

rundll32.exe inetcpl.cpl,clearmytracksbyprocess 4351

 

想通过编程方式清除ie缓存， 调用win32 api函数 shellexecute 或者 createprocess 来执行以上的命令行就可以了。

例子：shellexecute(null, _t("open"), _t("rundll32.exe"),  _t("inetcpl.cpl,clearmytracksbyprocess 4351"), null, sw_shownormal);

 

 

 

TR代码段 哦呼呼 ~~

--------------------------------------------------------------------------------------------------------------------------------------------

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;