[Snake22]

Сообщение от StudentMarat

т.е. здесь в Uses нужно добавить ShellApi.
Компилятор у меня ругается на Wnd. Что нужно сделатьЮ чтобы не ругался????

Да ShellAPI в uses.
wnd вообще можно удалить.это так я со своего примера копировал,там он нужен был мне.

Код:

function Recycle( FileName: string): Boolean;
var
  FileOp: TSHFileOpStruct;
begin
  FillChar(FileOp, SizeOf(FileOp), 0);
  FileOp.Wnd := Application.Handle;
  FileOp.wFunc := FO_DELETE;
  FileOp.pFrom := PChar(FileName);
  FileOp.fFlags := FOF_NOERRORUI or FOF_NOCONFIRMATION;
  FileOp.fAnyOperationsAborted:=true;
  Result := (SHFileOperation(FileOp) = 0);
end;