uses ShellAPI;

function DeleteFileWithUndo(sFileName : string ): boolean;
var
  fos    : TSHFileOpStruct;
begin
  FillChar( fos, SizeOf( fos ), 0 );
  with fos do begin
    wFunc  := FO_DELETE;
    pFrom  := PChar( sFileName );
    fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION
              or FOF_SILENT;
  end;
  Result := ( 0 = ShFileOperation( fos ) );
end;

--
Jason Wallace
SL Software
Dark...@SLSoftware.reno.nv.us
--
"We are MicroSoft.  You will be assimilated.  Resistance is Futile."
--

Hi!

Can anyone tell me how to delete Files into the Windows 95
Recycle bin from within a D2 Program?

Thanks a lot,
Torsten

you could try using MoveFile to move it to the recycle bin directory.
I don't know if there is a function to get the location of the recycle
bin, but it is *usually* <Drive>:\Recycled.

On Mon, 18 Aug 1997 00:45:04 +0200, Torsten