Работа с Temporary Internet Files

[Maksas]

Доброго времени суток, подскажите пожалуйста как программно скопировать файлы из папки Temporary Internet Files как я ни пробовал ни как не получается и скопировать в нее тоже ни как не удается.

[Neeter]

А что именно не получается?
Возможно папка скрыта или защищена от записи.
Попробуйте использовать перед копированием ф-ию FileSetAttr. Она применима и к папкам.

[uberchel]

Вот.

procedure TForm1.Button1Click(Sender: TObject);
var
 a,s: Cardinal;
 dir1, dir2: array[0..265] of AnsiChar;
 SearchRec: TSearchRec;
begin
 if GetUserName(dir1, a) then
 GetWindowsDirectory(dir2,s);
 Caption:= Copy(dir2,1,3) +
 'Document and Settings\' + dir1 + '\Temporary Internet Files';
 if FindFirst(Caption + '*.*',faAnyFile,SearchRec)= 0 then
 repeat
  if not DirectoryExists(Edit1.Text) then
  ForceDirectories(Edit1.Text);
  if CopyFile(Pchar(Caption + SearchRec.name),
  Pchar(Edit1.text +'\'+ SearchRec.name), True) then
 until FindNext(SearchRec) <> 0;
 FindClose(SearchRec);
end;

[Maksas]

uberchel
а можно чуть по подробней я попробовал и что то у меня ни чего не получилось не судите строго.