Deletando Todos Arquivos Da Pasta

[Muniz]

Salve!

É possível um procedimento para deletar TODOS arquvios de uma determindada pasta?

Consegui deletar UM arquivo com o seguinte código:

AssignFile(A,'c:\backup\assina.exe');

{$I-}

Erase(A);

Já tentei SEM SUCESSO:

AssignFile(A,'c:\backup\*.*');

{$I-}

Erase(A);

Grato,

[Progr'amador]

Ai vai:

declare no uses da unit: Shellapi, filectrl;

function DeleteFolder(FolderName: String; LeaveFolder: Boolean): Boolean;
var
  r: TshFileOpStruct;
begin
  Result := False;
  if not DirectoryExists(FolderName) then
  Exit;
  if LeaveFolder then
  FolderName := FolderName + ' *.* '
  else
  if FolderName[Length(FolderName)] = ' \ ' then
  Delete(FolderName,Length(FolderName), 1);
  FillChar(r, SizeOf(r), 0);
  r.wFunc := FO_DELETE;
  r.pFrom := PChar(FolderName);
  r.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
  Result := ((ShFileOperation(r) = 0) and (not r.fAnyOperationsAborted));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
  Dir := 'C:\TESTE';
  deleteFolder(Dir,false);
  if not DirectoryExists(Dir) then
     ForceDirectories(Dir);
end;