del /f /s /q *.dcu
del /f /s /q *.~??
...
Luciano Calenzani Simões
- Mensagem original
De: Sandro Ricardo <[EMAIL PROTECTED]>
Para: [EMAIL PROTECTED]
Enviadas: Sexta-feira, 6 de Junho de 2008 15:42:28
Assunto: [delphi-br] Deletar .DCU / .~pas e tc...
Olá amigos Delphiano
Ola Sandro,
Essa procedure lista os arquivos de um diretório de acordo com a mascara
informada e te retorna em um stringlist.
ListarArquivos(aMask: string; aSt: TStringList);
var
sr: TSearchRec;
begin
aSt.Clear;
if FindFirst(aMask, faAnyFile - faDirectory, sr) = 0 then
begin
2 matches
Mail list logo