Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как очистить:

Beginner-Designer © (2002-10-25 17:21:00)
1) папку Temp; 2)Корзину; 3)кэш интернета

Beginner-Designer (2002-10-26 09:30:00) [1]
HELP!!!!!!!!!

Beginner-Designer (2002-10-25 20:31:00) [2]
ну плиз

Beginner-Designer (2002-10-25 19:22:00) [3]
Как очистить корзину уже разобрался, а с остальным никак. Можете помочь с кодом?

Ученик (2002-10-25 18:45:00) [4]
Процедура удаления файлов и подкаталогов, наверно, есть

1. Для получения пути можно использовать

function GetTempDirectory : string;
var
szPath : array[0..MAX_PATH] of char;
begin
if GetTempPath(MAX_PATH, szPath) > 0 then
Result := StrPas(szPath)
else
Result := ""
end;

2. function SHEmptyRecycleBin(hwnd: HWND; pszRootPath: PChar; dwFlags: DWORD): HRESULT; external "shell32.dll" name "SHEmptyRecycleBinA";

3.

uses
ShellApi, ShlObj;

function GetSpecialFolder(const ID : Integer) : string;
var
szPath : array[0..MAX_PATH] of Char;
begin
if SHGetSpecialFolderPath(0, szPath, ID, False) then
Result := StrPas(szPath)
else
Result := ""
end;

GetSpecialFolder(CSIDL_INTERNET_CACHE)

Ricks (2002-10-25 18:27:00) [5]
Папку Temp, то можно - находишь её (через GetEnvironmentString или что-то такое) а потом все файлы удаляешь.
А корзину, по поему, можно как-то через SHFileOperation очистить.

Beginner-Designer (2002-10-25 18:18:00) [6]
Никто не поможет? 8*(

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »