Da error en la linea
DeleteFile(dir + sr.Name); Incompatible type String and Pchar.
cambiamos a Pchar ... deletefile (pchar(dir + sr.name))
Da error en la linea:
FindClose(sr); Incompatible type Cardinal and TSearchRec
De todas maneras creo que no esta bien enfocado del todo.
Gracias.
Última edición por serhasae fecha: 12-07-2005 a las 19:49:58.
|