Como excluir uma pasta do windows

Delphi

22/09/2008

Boa Tarde Galera, gostaria de um help se possível,
o sistema que eu fiz faz o backup do banco de dados em arquivo em TXT e zipa a pasta onde eu coloco os arquivos, so que quando os arquivos são zipados fica a pasta onde eu armazenei, eu gostaria de saber como faço para excluir esta pasta


Felipemarinho

Felipemarinho

Curtidas 0

Respostas

Nasguone

Nasguone

22/09/2008

De uma olhada neste site vc vai achar o que procura....

http://www.swissdelphicenter.ch/torry/showcode.php?id=855

espero que te ajude
E.C.S


GOSTEI 0
Martins

Martins

22/09/2008

Veja se o código abaixo te ajuda.

Inclua a unit SHELLAPI na clausula uses do seu form.

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 );
FillChar( ToBuffer, Sizeof(ToBuffer), 0 );
StrPCopy( FromBuffer, sPath);
With OpStruc Do
Begin
Wnd:= hHandle;
wFunc:=FO_DELETE;
pFrom:= @FromBuffer;
pTo:= @ToBuffer;
fFlags:= FOF_NOCONFIRMATION;
fAnyOperationsAborted:=False;
hNameMappings:=nil;
//lpszProgressTitle:=nil;
End;
ShFileOperation(OpStruc);
end;


Utilize a função assim:

procedure TForm1.Button1Click(Sender: TObject);
begin
   DeleteDir( Self.Handle, ´C:\TESTE´);
end;



GOSTEI 0
Felipemarinho

Felipemarinho

22/09/2008

valeu a sua dica deu certo, obrigado


GOSTEI 0
POSTAR