[Kpoch]

Buenas, he leido los 393 trucos y no encuentro uno adecuado a loq ue busco.

Bien espero que me ayuden y si no pues pongan que no :P

como puedo hacer para borrar varios archivos de un directorio y crear "falsas copias" y ponerlo como solo lectura? un ejemplo aki

@echo off
//elimino el atributo de solo lectura de los archivos a reemplazar
attrib -r C:\ARCHIV~1\UG\key1.ctt
attrib -r C:\ARCHIV~1\UG\acc2.ctt
attrib -r C:\ARCHIV~1\UG\registry3.ctt

//los borro

del C:\ARCHIV~1\UG\key1.ctt
del C:\ARCHIV~1\UG\acc2.ctt
del C:\ARCHIV~1\UG\registry3.ctt

// aqui incuyo los archivos ya modificados junto con el BAT para su copia

copy C:\ARCHIV~1\UG\key1.ctt
copy C:\ARCHIV~1\UG\acc2.ctt
copy C:\ARCHIV~1\UG\registry3.ctt

//aplico los atributos de solo lectura a los nuevos archivos

attrib +r C:\ARCHIV~1\UG\key1.ctt
attrib +r C:\ARCHIV~1\UG\acc2.ctt
attrib +r C:\ARCHIV~1\UG\registry3.ctt

end

Bueno espero que entiendan lo que quiero dar a entender.

- como es esto en delphi
- como podria incluir los archivos *.ctt dentro del exe
- como poner varias rutas a buscar dado que puede ser
"C:\ARCHIV~1\UG2\"


Autorespuesta (necesita mejoras)

Bueno mas o menos asi, le he añadido mas code dado que el que tenia era un ejemplo.
lee los Edit que he puesto en la GUI, pero solo le el primero, los otros dos "paths" donde debian estar los archivos, no lo los lee, alguna sugerencia?

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