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

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

Как удалить файл в корзину? [D6, Win2k]

Mishenka ©   (2004-03-01 22:44:00) 

Как удалить файл в корзину?

---

Alexander666   (2004-03-02 03:56:00) [1]

Не забудь подключить модуль ShellAPI

---

DDA   (2004-03-01 22:47:00) [2]

function Recycle(const FileName: string; Wnd: HWND = 0): Boolean;
var
FileOp: TSHFileOpStruct;
begin
FillChar(FileOp, SizeOf(FileOp), 0);
if Wnd = 0 then Wnd := Application.Handle;
FileOp.Wnd:=Wnd;
FileOp.wFunc:=FO_DELETE;
FileOp.pFrom:=PChar(FileName);
FileOp.fFlags:=FOF_ALLOWUNDO or FOF_NOERRORUI or FOF_SILENT;
Result:=(SHFileOperation(FileOp) = 0) and (not FileOp.fAnyOperationsAborted);
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Recycle(Edit1.Text, Handle);
end;


---

ser_ega   (2004-03-01 22:46:00) [3]

Где то видел ищи в Faq!!!

---

Наверх