[Tutorial] Apagar um Subdiretório [DELPHI]

[~ Heatlex. 11]

Adicine nas Uses : ShellApi

 

Agora adicione o seguinte procedure:

 

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;

 

 

 

Agora no evento onclick do Button:

 

DeleteDir( Self.Handle,'C:\TESTE');

 

 

C:\Teste é o SubDiretório Podendo ser Substituido por um Edit1.text