No hay respuestas en este tema

[sir.dev.a.lot]

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

 

hay que adicionar esta unidad:

delphi

uses ShellAPI;

delphi

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

Saludos!