Digite em 'Pesquisar Dica' o que deseja procurar. Ex: DBGRID

PESQUISAR DICA:

WINDOWS - DELETAR PASTA POR CORINGA

implementation
uses ShellAPI;
{$R *.dfm}

function DeleteALL(cFileSpec: string): Boolean;
var
  F: TSHFileOpStruct;
  pFromc: array[0..255] of char;
  ResultVal: integer;
begin
  FillChar(pFromc, SizeOf(pFromc),0);
  StrPcopy(pFromc, ExpandFileName(cFileSpec)+#0#0);
  F.wnd := 0;
  F.wFunc := FO_DELETE;
  F.pFrom := pFromC;
  F.pTo   := nil;

  F.fFlags:= FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SIMPLEPROGRESS
or FOF_FILESONLY;

  F.fAnyOperationsAborted := False;
  F.hNameMappings := nil;
  Resultval := ShFileOperation(F);
  Result := (ResultVal = 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
  Result: integer;
const
  Path = 'D:\TESTES\';
begin
  Result := FindFirst(PATH + 'SS*.*', faDirectory, SR);
  while Result = 0 do
  begin
    DeleteAll(PATH + SR.Name + '\*.*');
    Application.ProcessMessages;
    RmDir(PATH + SR.Name);
    Result := FindNext(SR);
  end;
end;