파일을 휴지통으로 삭제하기

// 파일 휴지통으로 보내기.
function DeleteFileWithUndo(sFileName : String ) : Boolean;
var
   fos                              : TSHFileOpStruct;
begin
   FillChar( fos, SizeOf( fos ), 0 );

   with fos do
   begin
      //Wn       := application.handle;
      wFunc    := FO_DELETE;
      pFrom    := PChar( sFileName );
      fFlags   := FOF_ALLOWUNDO or FOF_NOCONFIRM!ATION or FOF_SILENT;
   end;
   
   Result := ( 0 = ShFileOperation( fos ) );
end;