Вопрос о удалении файла

[Valecus]

Добрый день дорогие фурумчане.
Вопрос- есть код который ниже приведен, при нажатии клавиши "удалить", сразу удаляется файл с компьютера, мне нужно сделать чтоб при нажатии появилось сообщение "Вы уверены что хотите удалить файл?-да- нет-удалить-... Но и чтоб удалял только в корзину.

procedure TForm1.DeleteClick(Sender: TObject);
begin
if enableF then begin
if getR(file1.SelectedFolder.PathName)<>'' then begin
assignfile(fromF,file1.SelectedFolder.PathName);
{$I-}
reset(fromF);
{$I+}
if ioresult=0 then begin
closefile(fromF);
erase(fromF);
end
else
showmessage('Не могу удалить файл');
end
else
if not myremovedir(file1.SelectedFolder.PathName) then
showmessage('Не могу удалить каталог');
file1.Refresh;
end
else begin
if getR(file2.SelectedFolder.PathName)<>'' then begin
assignfile(fromF,file2.SelectedFolder.PathName);
{$I-}
reset(fromF);
{$I+}
if ioresult=0 then begin
closefile(fromF);
erase(fromF);
end
else
showmessage('Не могу удалить файл');
end
else
if not myremovedir(file2.SelectedFolder.PathName) then
showmessage('Не могу удалить каталог');
file2.Refresh;
end;
end;

[Johnson]

procedure TSDIAppForm.Button3Click(Sender: TObject);
var
  FileName:String;
begin
  if Application.MessageBox('Удалить файл?','Удаление файла',MB_YESNO+MB_ICONQUESTION)=idYES then
    if not(DeleteFile('FileName')) then ShowMessage('Не могу удалить файл!');
end;

А вот про удаление в корзину - даже не задумывался никогда... Да и зачем?

[ex.cluz]

Нашел, но не проверял:

Функция удаляет файл, имя которого указаывается в аргументе FileName
в корзину. Второй необязательный параметр указывает на Handle окна,
которое будет родительским для отображаемых системой диалоговых окон

Зависимости: Windows, ShellAPI, Forms

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;

Пример использования:

procedure TForm1.Button1Click(Sender: TObject)
begin
  Recycle('d:\folder\filename.ext', Handle);
end;

Если интересно, есть статейка:
http://www.delphimaster.ru/articles/...pst/index.html

[Valecus]

спасибо))))) все сделал как нужно мне. Ну единственное в корзину не удаляет)))

[GunSmoker]

Программирование означает, что вам нужно сложить вместе несколько кусочков.

[Valecus]

Вот ещё одна проблема, нужно помимо файла и каталог удалять вместе с его содержимым... Чет не могу понять как это сделать, и что нужно изменить в коде моем...