救命啊,怎么把IE临时文件夹中的文件考出来?(100分)

  • 主题发起人 主题发起人 hpn_cao(小海)
  • 开始时间 开始时间
H

hpn_cao(小海)

Unregistered / Unconfirmed
GUEST, unregistred user!
我很苦恼
 
直接考啊
 
如果你是用Windows2000的话,就是下面的目录了。。<br>c:/Documents and Settings/Administrato/Local/Settings/Temporary Internet<br>Files/<br>如果是win9x的话,就查找Temporary Internet Files/这个目录了。。<br>方法当然跟楼上的DFW一样,copy!
 
另存不行吗?<br>我在网上下FLASH就这样弄啊?
 
要編程實現嗎?<br>問題無非是要把臨時文件夾的路徑找出來.有相應的API函數.<br>考貝也有相應的API,好像是CopyFile.<br>至于要實現什么花樣,看你怎么編程了.
 
不好意思,可能我没讲清楚<br>我要用程序实现,而该目录路径我用API已经得到,但是用CopyFile ,或者DHFileOperation<br>都不行,没有反应,我甚至用SetFileAttr重新设置文件属性也不行 。 <br>
 
这段函数,OK!呵呵,我的Tempory Files目录接近1G了,我可没有仔细实验,只是复制了20多M,都是正确的。<br>全部复制。<br><br>uses shellapi,FileCtrl;<br><br>function Copydirectory(Source: string; pDirectory: string; pFilter: string): boolean;<br>//目录拷贝source :源目录 &nbsp;directory:目标目录 &nbsp;pFilter:文件类型筛选'/*.*'或'/*.???'<br>var<br>&nbsp; OpStruc: TSHFileOpStruct;<br>&nbsp; frombuf, tobuf: array[0..128] of Char;<br><br>begin<br>&nbsp; FillChar(frombuf, Sizeof(frombuf), 0);<br>&nbsp; FillChar(tobuf, Sizeof(tobuf), 0);<br>&nbsp; StrPCopy(frombuf, Source + pFilter);<br>&nbsp; StrPCopy(tobuf, pdirectory);<br>&nbsp; if not directoryexists(pdirectory) then<br>&nbsp; &nbsp; if not createdir(pdirectory) then<br>&nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; showmessage('不能创建目录' + pdirectory + chr(13) + chr(10) + '或无该目录权限');<br>&nbsp; &nbsp; &nbsp; exit;<br>&nbsp; &nbsp; end;<br>&nbsp; with OpStruc do<br>&nbsp; begin Wnd := 0;<br>&nbsp; &nbsp; wFunc := FO_Copy;<br>&nbsp; &nbsp; pFrom := @frombuf;<br>&nbsp; &nbsp; pTo := @tobuf;<br>&nbsp; &nbsp; fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION or FOF_SILENT;<br>&nbsp; &nbsp; //or fof_filesonly<br>&nbsp; &nbsp; fAnyOperationsAborted := false;<br>&nbsp; &nbsp; hNameMappings := nil;<br>&nbsp; &nbsp; lpszProgressTitle := nil;<br>&nbsp; end;<br>&nbsp; try<br>&nbsp; &nbsp; ShFileOperation(OpStruc);<br>&nbsp; &nbsp; CopyDirectory := true;<br>&nbsp; except<br>&nbsp; &nbsp; CopyDirectory := false;<br>&nbsp; &nbsp; exit;<br>&nbsp; end;<br>end;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>Copydirectory('C:/Windows/Tempor~1','F:/aa','/*.*');<br>end;<br>
 
to yzhshi , 用SHFileOperation我已经试过了,不过好像是批量的烤<br>我想请问一下,怎么考一个已知文件?<br>就比如,我当前浏览的网页有一个Flash动画,我想把它从缓存考到硬盘上,怎么做?<br>好像有很多这样的软件,不知道他们怎么实现的?
 
uses Shellapi;<br><br>function TForm1.CopyFile(SourceName, TargetName: string): Boolean;<br>var<br>&nbsp; F: TShFileOpStruct;<br>begin<br>&nbsp; F.wnd := Handle;<br>&nbsp; F.wFunc := FO_COPY; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; {操作方式}<br>&nbsp; F.pFrom := PChar(SourceName + #0#0);<br>&nbsp; F.pTo := PChar(TargetName + #0#0);<br>&nbsp; F.fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION;<br>&nbsp; result := ShFileOperation(F) = 0;<br>end;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>CopyFile('C:/io.sys','D:/s.sys');<br>end;<br><br>end.<br>
 
你写的函数考普通文件没问题,可是我还是考不了缓存中的文件呀,会出现无法读源文件或磁盘<br>的提示,好像缓存文件都在一个Dat文件中?
 
你写的函数考普通文件没问题,可是我还是考不了缓存中的文件呀,会出现无法读源文件<br>或磁盘的提示,好像缓存文件都在一个Dat文件中?<br>
 
我顶,帮忙啊
 
没人知道么?
 
老兄,我不是写了吗?<br>在C:/Windows/Tempory inter...里面有很多子目录。<br>如果你真的使用那个进行拷贝,就必须指定真正的Dos目录!<br>而进行这个拷贝就不需要了,你进行整个拷贝到别的地方,<br>然后就能够在资源管理器里面看到目录结构了,就这个意思。
 
用看图软件acdsee32<br>我一直用它浏览Temporary Internet Files下的 图片和 网页
 
后退
顶部