| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Корзина и файлы! [D6, D7, Win95/98, NT4, Win2k, WinXP]

SalCroW ©   (2003-04-10 17:00:00) 

Подскажите как удалить файл в "корзину" из окна программы.
Зарание благодарен.

---

Apollo   (2003-04-11 16:51:00) [1]


uses ShellAPI;

procedure SendToRecycleBin(FileName: string);
var
SHF: TSHFileOpStruct;
begin
with SHF do begin
Wnd := Application.Handle;
wFunc := FO_DELETE;
pFrom := PChar(FileName);
fFlags := FOF_SILENT or FOF_ALLOWUNDO;
end;
SHFileOperation(SHF);
end;


---

jel   (2003-04-10 17:18:00) [2]

смотри SHFileOperation

---

Наверх