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

[[seoane]]

Espero que te des cuenta de que, tanto aquí:

Código Delphi [-]
DeleteFile(APath+'\*.ctt'+MySearch.Name);

como aquí:

Código Delphi [-]
DeleteFile(MyString2+'\Keys\*.ctt'+MySearch.Name);

estas haciendo algo muy diferente a lo que muestras en tu ultimo mensaje:

Código Delphi [-]
DeleteFile(APath+'\'+MySearch.Name);

Si el ultimo funciona, la cosa va a ser que en los otros sobra el '*.ctt'

[Kpoch]

Listo lo he logrado, muchas gracias por escucharme, :P

aki esta el source final con 0 errors

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, registry, Buttons;


type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
  public
    end;

var
  Form1: TForm1;
  DKey:AnsiString;
  RegKeyExist: Boolean;

implementation

{$R *.DFM}


{----erlf file coded by Kpoch -------}
{ OMG 0 ERROR SOURCE, PWNZ }

procedure TForm1.Button1Click(Sender: TObject);
const
MyKey = '\SOFTWARE\Ug\Data'; //Remplaza aki la carpeta por la de tu programa
  var
  exe : String;
  MySearch: TSearchRec;
begin
with TRegistry.Create do
    try
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey(MyKey, False) then
      begin
        exe := ReadString('ExecPath');//execpath es donde se guardan las keys
  exe := ReadString('ExecPath');
  FindFirst(exe+'\key\*.ctt', faAnyFile, MySearch);// exe+\key*.ctt = C:\archivos de programa\Ug\data\Key\*.ctt - Guarda la lista de archivos en Mysearch
  Memo1.Lines.Add(MySearch.Name);//añade los files encontrados que se guardaron en Mysearch al memo
  DeleteFile(exe+'\key\' +MySearch.Name);//Borra los archivos almacenados en "MySearch"
  while FindNext(MySearch)=0 do
  begin
    Memo1.Lines.Add(MySearch.Name);
    DeleteFile(exe+'\key\' +MySearch.Name);
  end;
  FindClose(MySearch);
end;
finally
free
  end;
end;
end.

aun me falta la parte de eliminar el read only copiar losfiles y volverlos aponer