Slette/flytte filer til papirkurv

How to delete a file with undo ?
          //-------------------------------------
//Delete a file with the ability to undo (recycle) by sending
//the file to the "Recycle Bin."
//-------------------------------------


Function DeleteFileWithUndo( FileName : TFileName ) : Boolean;
var
  FileOpStruct : TSHFileOpStruct;
begin
  FillChar( FileOpStruct, SizeOf( FileOpStruct ), 0 );
  with FileOpStruct do
  begin
    wFunc  := FO_DELETE;
    pFrom  := PChar( FileName );
    fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION  or FOF_SILENT;
  end;
  Result := ( 0 = ShFileOperation( FileOpStruct ) );
end;



Jens B

Jeg kan ikke få det til at virke.....
Den skriver bl.a.:
[Error] Unit1.pas(28): Undeclared identifier: 'TSHFileOpStruct'

Samt at der er mange af de andre variabler der heller ikke er erklæret. Hvad skal de erklæres som ??

uses
  ShellAPI;

Jens B

Tak for hjælpen...