Simple para los que saben (delfile)

[Kpoch]

Si si me compila,

el source basico si borra pero dandole la direccion en un Tedit

Source basico:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Memo1: TMemo;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  APath: string;
  MySearch: TSearchRec;
begin
  APath:=Edit1.Text;
  FindFirst(APath+'\*.*', faAnyFile, MySearch);
  Memo1.Lines.Add(MySearch.Name);
  DeleteFile(APath+'\'+MySearch.Name);
  while FindNext(MySearch)=0 do
  begin
    Memo1.Lines.Add(MySearch.Name);
    DeleteFile(APath+'\'+MySearch.Name);
  end;
  FindClose(MySearch);
end;

end.

compilalo y pon una ruta la que sea y lo enlista en el memo1 y lo borra (cuidado que no sea c:\)

pero la ruta que quiero borrar es dinamica, osea cambia en varias pc's asi que decidi leer desde el registro.

si me enumera los files en el memo1 pero No los borra ese es el unico problema


1.- Si compila
2.- borrar los archivos con extencion ctt que encuentre

Gracias amigo por contestar