Dicas - Apagando um subdiretório

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nesta dica, como apagar um subdiretório.

Apagando um Subdiretório

 

Inclua a unit ShellAPI na clausula uses do seu formulário.

 

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;

  end;

  ShFileOperation(OpStruc);

end;

 

Utilize a função assim:

procedure TForm1.Button1Click(Sender: TObject);

begin

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

end;

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?