[danyfebrero]

gracias casimiro
de todas formas encontré este codigo por roman

Código Delphi [-]
    if DirectoryExists(directorio) then
      begin
        extension:='*.*';
        archivosaborrar:=directorio+extension;
        FileInfo.Wnd := Handle;
        FileInfo.wFunc := FO_DELETE;
        FileInfo.pFrom :=  PChar(archivosaborrar);
        FileInfo.pTo := nil;
        FileInfo.fFlags := FOF_NOCONFIRMATION;

        ShFileOperation(FileInfo);

        RmDir(directorio);
      end;

me funcionó perfecto gracias nuevamente.