[delphi-br] Remover Diretório

Alguem sabe como faço para apagar um diretório e tudo que estiver dentro dele com uma unica função do Delphi? Alex [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse:

Re: [delphi-br] Remover Diretório

{Delta pastas com todos os arquivos que tiver dentro} procedure DeleteDir( hHandle : THandle; Const sPath : String ); var OpStruc: TSHFileOpStruct; FromBuffer, ToBuffer: Array[0..128] of Char; begin fillChar( OpStruc, Sizeof(OpStruc), 0 ); FillChar( FromBuffer, Sizeof(FromBuffer), 0 );