Ir al contenido


Foto

[TRUCO DELPHI] Borrar archivos con la Posibilidad de UNDO.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 29 agosto 2016 - 08:30

[TRUCO DELPHI] Borrar archivos con la Posibilidad de UNDO.

 

hay que adicionar esta unidad:


delphi
  1. uses ShellAPI;


delphi
  1. function FileDeleteRB(
  2. FileName:string): boolean;
  3. var
  4. fos : TSHFileOpStruct;
  5. begin
  6. FillChar(fos, SizeOf(fos), 0);
  7. with fos do begin
  8. wFunc := FO_DELETE;
  9. pFrom := PChar(FileName);
  10. fFlags := FOF_ALLOWUNDO
  11. or FOF_NOCONFIRMATION
  12. or FOF_SILENT;
  13. end;
  14. Result := (ShFileOperation(fos)=0);
  15. end;

Saludos!


  • 2




IP.Board spam blocked by CleanTalk.