Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.14;
Скачать: CL | DM;

Вниз

Temporary Internet Files   Найти похожие ветки 

 
Drw   (2003-02-13 10:22) [0]

Можно ли из программы удалить все временные файлы интернета (Temporary Internet Files)? Если да, то подскажите как...


 
Anatoly Podgoretsky ©   (2003-02-13 10:30) [1]

Нормально это делается только через WinInet.dll - описание функций есть в MSDN


 
AGGRESSOR   (2003-02-13 18:17) [2]

А не нормально- через DeleteFile из директории
...\windows\Temporary internet files


 
Anatoly Podgoretsky ©   (2003-02-13 18:26) [3]

Не нормально, по многим причинам, это варварство вообще то.


 
Drw   (2003-02-13 18:34) [4]

Спасибо за советы. Описание функции из WinInet.dll не нашёл, так что пожалуйста напишите это описание...

Что касается DeleteFile...пробовал, но не получилось, не видно всех файлов папки...


 
Александр Спелицин ©   (2003-02-13 20:44) [5]

Дело в том, что внутри директории "Temporary internet files" есть еще 4 невидимых поддиректории. Вот в них то и хранятся все эти файлы.
Только через проводник к этим директориям не достучишься. Используйте любой другой файловый менеджер: Winfile (File Manager), DN, FAR, NC, ...


 
HazMat   (2003-02-14 08:33) [6]

> Александр Спелицин
Не обязательно 4, может быть вплоть до 12-ти и больше.
Они все перечислены в index.dat, который валяется в
корне "Temp Int Files".
Я думаю нетрудно будет определить формат заголовка этого индекса... правда если игра стоит свечь - это решать тебе.


 
microlab ©   (2003-02-14 10:06) [7]

Подключаещь WinInet и используй вот эту процедуру

Procedure EmptyIECache;
Var
lpEntryInfo : PInternetCacheEntryInfo;
hCacheDir : LongWord;
dwEntrySize : LongWord;
dwLastError : LongWord;
Begin
dwEntrySize := 0;
FindFirstUrlCacheEntry( NIL, TInternetCacheEntryInfo( NIL^ ), dwEntrySize );
if dwEntrySize<>0 then
begin
GetMem( lpEntryInfo, dwEntrySize );
hCacheDir := FindFirstUrlCacheEntry( NIL, lpEntryInfo^, dwEntrySize );
If ( hCacheDir <> 0 ) Then
DeleteUrlCacheEntry( lpEntryInfo^.lpszSourceUrlName );
FreeMem( lpEntryInfo );
Repeat
dwEntrySize := 0;
FindNextUrlCacheEntry( hCacheDir, TInternetCacheEntryInfo( NIL^ ), dwEntrySize );
dwLastError := GetLastError();
If ( GetLastError = ERROR_INSUFFICIENT_BUFFER ) Then Begin
GetMem( lpEntryInfo, dwEntrySize );
If ( FindNextUrlCacheEntry( hCacheDir, lpEntryInfo^, dwEntrySize ) ) Then
DeleteUrlCacheEntry( lpEntryInfo^.lpszSourceUrlName );
FreeMem(lpEntryInfo);
End;
Until ( dwLastError = ERROR_NO_MORE_ITEMS );
end;
End;


 
Anatoly Podgoretsky ©   (2003-02-14 10:18) [8]

Drw (13.02.03 18:34)
Как можно не найти не понимаю, простой поиск на микрсофте даст достаточное коиличество ссылок, кроме того есть описания и на русском языке. Есле не волнует актуальность, то можно взять на моем сайте. А если более актуальную нужно то сделай поиск



Страницы: 1 вся ветка

Текущий архив: 2003.04.14;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.02 c
1-44209
Dimosha
2003-04-01 17:51
2003.04.14
ShellExecute or WinExec


3-43997
junior
2003-03-24 21:10
2003.04.14
Как в IB создать БД из Delphi?


14-44408
FLIZ
2003-03-28 15:21
2003.04.14
Как определить длину RTF текста? (+)


9-43985
12345678_
2002-11-15 09:29
2003.04.14
DirectPlay


1-44237
Serega
2003-04-02 10:30
2003.04.14
Как извлечь avi--файл из ресурса