Delphi清理Windows临时文件的例子及源码,这里的临时文件主要是InternetExplorer上网时产生的垃圾文件,上传源码前测试了一下,Windows7下还真清理成功了。不过清理过程中,窗口会假死一阵子,可能程序忙,不过也折射出程序仍需要优化完善,来看看下边的代码段吧,更多代码请在演示截图下边单击按钮下载。
begin
dwEntrySize:=0;
FindFirstUrlCacheEntry(nil,TInternetCacheEntryInfo(nil^),dwEntrySize);
GetMem(lpEntryInfo,dwEntry