Удалить файл в корзину |
ОГЛАВЛЕНИЕ    HOME  MAIL |
Эта программа удаляет в корзину, используя стандартный диалог, файл, открытый пользователем.uses ShellAPI; procedure TForm1.Button1Click(Sender: TObject); var SHF: TSHFileOpStruct; begin if (not OpenDialog1.Execute) then Exit; with SHF do begin Wnd := Application.Handle; wFunc := FO_DELETE; pFrom := PChar(OpenDialog1.FileName); fFlags := FOF_ALLOWUNDO; end; SHFileOperation(SHF); end; email: delphi4all@narod.ru |